X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Funfold%2Fgr2_gr2.ma;h=20ce856d68d4fbe9e50496152842e5a32d0587e3;hb=cc21d0caa6229b7d1a905f9b62de2af4f40cc863;hp=438605e85cf190dd93f2fffa29e8930fef46125e;hpb=eb918fc784eacd2094e3986ba321ef47690d9983;p=helm.git diff --git a/matita/matita/contribs/lambda_delta/basic_2/unfold/gr2_gr2.ma b/matita/matita/contribs/lambda_delta/basic_2/unfold/gr2_gr2.ma index 438605e85..20ce856d6 100644 --- a/matita/matita/contribs/lambda_delta/basic_2/unfold/gr2_gr2.ma +++ b/matita/matita/contribs/lambda_delta/basic_2/unfold/gr2_gr2.ma @@ -12,13 +12,13 @@ (* *) (**************************************************************************) -include "Basic_2/unfold/gr2.ma". +include "basic_2/unfold/gr2.ma". (* GENERIC RELOCATION WITH PAIRS ********************************************) (* Main properties **********************************************************) -theorem at_mono: ∀des,i,i1. @[i] des ≡ i1 → ∀i2. @[i] des ≡ i2 → i1 = i2. +theorem at_mono: ∀des,i,i1. @⦃i, des⦄ ≡ i1 → ∀i2. @⦃i, des⦄ ≡ i2 → i1 = i2. #des #i #i1 #H elim H -des -i -i1 [ #i #x #H <(at_inv_nil … H) -x // | #des #d #e #i #i1 #Hid #_ #IHi1 #x #H