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))))