X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fgr_eq.ma;h=c5d58eaf6034482988bb218df7ea4890e2d1575b;hp=d908f70337ad04e41e61ec3ee0b8516d2a911681;hb=2ed8d2abcc3b0687141b627061b63350a0b200bd;hpb=b367de0252e88d6b0476648d5ceac7e4aeffca27 diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/gr_eq.ma b/matita/matita/contribs/lambdadelta/ground/relocation/gr_eq.ma index d908f7033..c5d58eaf6 100644 --- a/matita/matita/contribs/lambdadelta/ground/relocation/gr_eq.ma +++ b/matita/matita/contribs/lambdadelta/ground/relocation/gr_eq.ma @@ -45,7 +45,7 @@ definition gr_eq_repl_back (R:predicate …) ≝ definition gr_eq_repl_fwd (R:predicate …) ≝ ∀f1. R f1 → ∀f2. f2 ≡ f1 → R f2. -(* Basic properties *********************************************************) +(* Basic constructions ******************************************************) (*** eq_sym *) corec lemma gr_eq_sym: symmetric … gr_eq. @@ -59,7 +59,7 @@ lemma gr_eq_repl_sym (R): gr_eq_repl_back R → gr_eq_repl_fwd R. /3 width=3 by gr_eq_sym/ qed-. -(* Alternative definition with stream_eq (specific) ***************************************************) +(* Alternative definition with stream_eq (specific) *************************) alias symbol "subseteq" (instance 1) = "relation inclusion".