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