let declare tcomp _eqname =
         let eq_name = F.p_app2 (RecEqName.get_definition tcomp).d_name in
         let pool = F.pool() in
         let xa = F.p_fresh pool "a" (Model (Record tcomp)) in
         let ra = F.var xa in
         let p =  F.p_forall [xa] (eq_name ra ra) in
         Formula.Axiom p