X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fstatic%2Freqx_fqup.ma;h=bc021d8b9506360632192f54f6dbb3c8f23f3bbc;hp=d3190178402cdc3ab1c10e22d89e4b2b1cc19006;hb=bd53c4e895203eb049e75434f638f26b5a161a2b;hpb=3b7b8afcb429a60d716d5226a5b6ab0d003228b1 diff --git a/matita/matita/contribs/lambdadelta/static_2/static/reqx_fqup.ma b/matita/matita/contribs/lambdadelta/static_2/static/reqx_fqup.ma index d31901784..bc021d8b9 100644 --- a/matita/matita/contribs/lambdadelta/static_2/static/reqx_fqup.ma +++ b/matita/matita/contribs/lambdadelta/static_2/static/reqx_fqup.ma @@ -23,17 +23,17 @@ lemma reqx_refl: ∀T. reflexive … (reqx T). /2 width=1 by rex_refl/ qed. lemma reqx_pair_refl: ∀V1,V2. V1 ≛ V2 → - ∀I,L. ∀T:term. L.ⓑ{I}V1 ≛[T] L.ⓑ{I}V2. + ∀I,L. ∀T:term. L.ⓑ[I]V1 ≛[T] L.ⓑ[I]V2. /2 width=1 by rex_pair_refl/ qed. (* Advanced inversion lemmas ************************************************) -lemma reqx_inv_bind_void: ∀p,I,L1,L2,V,T. L1 ≛[ⓑ{p,I}V.T] L2 → +lemma reqx_inv_bind_void: ∀p,I,L1,L2,V,T. L1 ≛[ⓑ[p,I]V.T] L2 → L1 ≛[V] L2 ∧ L1.ⓧ ≛[T] L2.ⓧ. /2 width=3 by rex_inv_bind_void/ qed-. (* Advanced forward lemmas **************************************************) lemma reqx_fwd_bind_dx_void: ∀p,I,L1,L2,V,T. - L1 ≛[ⓑ{p,I}V.T] L2 → L1.ⓧ ≛[T] L2.ⓧ. + L1 ≛[ⓑ[p,I]V.T] L2 → L1.ⓧ ≛[T] L2.ⓧ. /2 width=4 by rex_fwd_bind_dx_void/ qed-.