let declare comp _ =
let xs = F.p_fresh (F.pool()) "s" (Model (Record comp)) in
let s = F.var xs in
Axiom (F.p_forall [xs]
(F.p_implies (L.is_comp comp s)
(F.p_eq ((s_of_data comp (data_of_s comp s))) s)))