let declare comp _ = 
         let xd = F.p_fresh (F.pool()) "d" (Model t_data) in 
         let d = F.var xd in 
         Axiom (F.p_forall [xd] (L.is_comp comp (s_of_data comp d)))