X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Fsyntax%2Fpath_proper.ma;h=fca2eb91aae63a0d4f1b69d459df52cc54b98e05;hb=1b82038aa813e24e84959526e83dd35d849b51f2;hp=e519394f4e98d76220a7a3000ff6c7aeb96a28cd;hpb=ac8d0dc0c6fb995736e0c10486d996bd023f3c32;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/syntax/path_proper.ma b/matita/matita/contribs/lambdadelta/delayed_updating/syntax/path_proper.ma index e519394f4..fca2eb91a 100644 --- a/matita/matita/contribs/lambdadelta/delayed_updating/syntax/path_proper.ma +++ b/matita/matita/contribs/lambdadelta/delayed_updating/syntax/path_proper.ma @@ -13,7 +13,8 @@ (**************************************************************************) include "delayed_updating/syntax/path.ma". -include "delayed_updating/notation/relations/predicate_p_tail_1.ma". +include "delayed_updating/notation/functions/class_p_0.ma". +include "ground/lib/subset.ma". include "ground/xoa/ex_1_2.ma". (* PROPER CONDITION FOR PATH ************************************************) @@ -24,18 +25,18 @@ definition ppc: predicate path ≝ interpretation "proper condition (path)" - 'PredicatePTail p = (ppc p). + 'ClassP = (ppc). (* Basic constructions ******************************************************) -lemma ppc_lcons (l) (q): Ꝕ(l◗q). +lemma ppc_lcons (l) (q): l◗q ϵ 𝐏. #l #p #H destruct qed. (* Basic inversions ********************************************************) lemma ppc_inv_lcons (p): - Ꝕp → ∃∃l,q. l◗q = p. + p ϵ 𝐏 → ∃∃l,q. l◗q = p. * [ #H elim H -H // | #l #q #_ /2 width=3 by ex1_2_intro/