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)