let declare tcomp _axname = let eq_name = RecEqName.get_definition tcomp in RecEqSym.define tcomp ; RecEqTrans.define tcomp ; Formula.Axiom(eq_record_definition tcomp eq_name.d_name)