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