]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/static_2/static/reqx_drops.ma
update in ground_2, static_2, basic_2
[helm.git] / matita / matita / contribs / lambdadelta / static_2 / static / reqx_drops.ma
index 2e82d705392c742b3f039fde206fa42e7388790b..6711a1d47584b25cf2cd1ed2bb1254f9a23b0e6a 100644 (file)
@@ -36,17 +36,17 @@ lemma reqx_inv_lifts_bi: โˆ€L1,L2,U. L1 โ‰›[U] L2 โ†’ โˆ€b,f. ๐”โชfโซ โ†’
                          โˆ€T. โ‡ง*[f] T โ‰˜ U โ†’ K1 โ‰›[T] K2.
 /2 width=10 by rex_inv_lifts_bi/ qed-.
 
-lemma reqx_inv_lref_pair_sn: โˆ€L1,L2,i. L1 โ‰›[#i] L2 โ†’ โˆ€I,K1,V1. โ‡ฉ*[i] L1 โ‰˜ K1.โ“‘[I]V1 โ†’
-                             โˆƒโˆƒK2,V2. โ‡ฉ*[i] L2 โ‰˜ K2.โ“‘[I]V2 & K1 โ‰›[V1] K2 & V1 โ‰› V2.
+lemma reqx_inv_lref_pair_sn: โˆ€L1,L2,i. L1 โ‰›[#i] L2 โ†’ โˆ€I,K1,V1. โ‡ฉ[i] L1 โ‰˜ K1.โ“‘[I]V1 โ†’
+                             โˆƒโˆƒK2,V2. โ‡ฉ[i] L2 โ‰˜ K2.โ“‘[I]V2 & K1 โ‰›[V1] K2 & V1 โ‰› V2.
 /2 width=3 by rex_inv_lref_pair_sn/ qed-.
 
-lemma reqx_inv_lref_pair_dx: โˆ€L1,L2,i. L1 โ‰›[#i] L2 โ†’ โˆ€I,K2,V2. โ‡ฉ*[i] L2 โ‰˜ K2.โ“‘[I]V2 โ†’
-                             โˆƒโˆƒK1,V1. โ‡ฉ*[i] L1 โ‰˜ K1.โ“‘[I]V1 & K1 โ‰›[V1] K2 & V1 โ‰› V2.
+lemma reqx_inv_lref_pair_dx: โˆ€L1,L2,i. L1 โ‰›[#i] L2 โ†’ โˆ€I,K2,V2. โ‡ฉ[i] L2 โ‰˜ K2.โ“‘[I]V2 โ†’
+                             โˆƒโˆƒK1,V1. โ‡ฉ[i] L1 โ‰˜ K1.โ“‘[I]V1 & K1 โ‰›[V1] K2 & V1 โ‰› V2.
 /2 width=3 by rex_inv_lref_pair_dx/ qed-.
 
 lemma reqx_inv_lref_pair_bi (L1) (L2) (i):
                             L1 โ‰›[#i] L2 โ†’
-                            โˆ€I1,K1,V1. โ‡ฉ*[i] L1 โ‰˜ K1.โ“‘[I1]V1 โ†’
-                            โˆ€I2,K2,V2. โ‡ฉ*[i] L2 โ‰˜ K2.โ“‘[I2]V2 โ†’
+                            โˆ€I1,K1,V1. โ‡ฉ[i] L1 โ‰˜ K1.โ“‘[I1]V1 โ†’
+                            โˆ€I2,K2,V2. โ‡ฉ[i] L2 โ‰˜ K2.โ“‘[I2]V2 โ†’
                             โˆงโˆง K1 โ‰›[V1] K2 & V1 โ‰› V2 & I1 = I2.
 /2 width=6 by rex_inv_lref_pair_bi/ qed-.