matches : term -> thm -> bool
> DB.matches (Term `(a = b) = c`) EQ_CLAUSES ; <<HOL message: inventing new type variable names: 'a>> val it = true: bool > DB.matches (Term `(a = b) = c`) EQ_TRANS ; <<HOL message: inventing new type variable names: 'a>> val it = false: bool