X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fsyntax%2Fteqx.ma;h=fbe372f561474ced7b5689c859a5bd4290f8c16d;hb=d8d00d6f6694155be5be486a8239f5953efe28b7;hp=6c1ddd17efa049a5d101af6e7c78f1ab09faafb3;hpb=adb9ba187619cea977d1d22971eba27eb437cd6a;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/teqx.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/teqx.ma index 6c1ddd17e..fbe372f56 100644 --- a/matita/matita/contribs/lambdadelta/static_2/syntax/teqx.ma +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/teqx.ma @@ -12,6 +12,7 @@ (* *) (**************************************************************************) +include "ground_2/xoa/ex_3_2.ma". include "static_2/notation/relations/stareq_2.ma". include "static_2/syntax/term.ma". @@ -173,7 +174,7 @@ qed-. (* Negated inversion lemmas *************************************************) lemma tneqx_inv_pair: ∀I1,I2,V1,V2,T1,T2. - (②{I1}V1.T1 ≛ ②{I2}V2.T2 → ⊥) → + (②{I1}V1.T1 ≛ ②{I2}V2.T2 → ⊥) → ∨∨ I1 = I2 → ⊥ | (V1 ≛ V2 → ⊥) | (T1 ≛ T2 → ⊥).