]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/computation/lpxs_cpxs.ma
theory of cpy is complete!
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / computation / lpxs_cpxs.ma
index 2d197c95b2dabcc619574d1106314419d5cf50e2..10600383a97ccc1a1257208cbb2bf8ffc5127552 100644 (file)
@@ -107,7 +107,7 @@ lemma lpxs_fqus_trans: ∀h,g,G1,G2,L1,L2,T1,T2. ⦃G1, L1, T1⦄ ⊃* ⦃G2, L2
 #h #g #G1 #G2 #L1 #L2 #T1 #T2 #H @(fqus_ind … H) -G2 -L2 -T2 /2 width=5 by ex3_2_intro/
 #G #G2 #L #L2 #T #T2 #_ #H2 #IH1 #K1 #HLK1 elim (IH1 … HLK1) -L1
 #L0 #T0 #HT10 #HT0 #HL0 elim (lpxs_fquq_trans … H2 … HL0) -L
-#L #T3 #HT3 #HT32 #HL2 elim (fqus_cpxs_trans … HT0 … HT3) -T
+#L #T3 #HT3 #HT32 #HL2 elim (fqus_cpxs_trans … HT3 … HT0) -T
 /3 width=7 by cpxs_trans, fqus_strap1, ex3_2_intro/
 qed-.