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