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 xb = F.p_fresh pool "b" (Model (Record tcomp)) in
         let rb = F.var xb in
         let xc = F.p_fresh pool "c" (Model (Record tcomp)) in
         let rc = F.var xc in
         Formula.Axiom
           (F.p_forall [xa;xb;xc]
              (F.p_implies (eq_name ra rb)
                 (F.p_implies (eq_name rb rc) (eq_name ra rc))))