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