X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fsyntax%2Flveq.ma;h=a895a58112277d5adb3bec01e88b9fa6f8873959;hb=d8d00d6f6694155be5be486a8239f5953efe28b7;hp=e6d2fcbfc37a30a8714ffa23f1451faf90f02da6;hpb=5b5dca0c118dfbe3ba8f0514ef07549544eb7810;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/lveq.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/lveq.ma index e6d2fcbfc..a895a5811 100644 --- a/matita/matita/contribs/lambdadelta/static_2/syntax/lveq.ma +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/lveq.ma @@ -12,6 +12,8 @@ (* *) (**************************************************************************) +include "ground_2/xoa/ex_3_4.ma". +include "ground_2/xoa/ex_4_1.ma". include "static_2/notation/relations/voidstareq_4.ma". include "static_2/syntax/lenv.ma". @@ -98,7 +100,7 @@ lemma lveq_inv_bind: ∀I1,I2,K1,K2. K1.ⓘ{I1} ≋ⓧ*[0,0] K2.ⓘ{I2} → K1 #I1 #I2 #K1 #K2 #H elim (lveq_inv_zero … H) -H * [| #Z1 #Z2 #Y1 #Y2 #HY ] #H1 #H2 destruct // qed-. - + lemma lveq_inv_atom_atom: ∀n1,n2. ⋆ ≋ⓧ*[n1,n2] ⋆ → ∧∧ 0 = n1 & 0 = n2. * [2: #n1 ] * [2,4: #n2 ] #H [ elim (lveq_inv_succ … H)