X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fstatic%2Faaa_fqus.ma;h=576b0814e3c99f9189441d05e8feabce7e0caef7;hb=52e675f555f559c047d5449db7fc89a51b977d35;hp=e32e0b52993d38b2458b75000277141f40d40fc1;hpb=75fac6d60f67a4dfa38ea6c2cc45a18eda5d8996;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/aaa_fqus.ma b/matita/matita/contribs/lambdadelta/basic_2/static/aaa_fqus.ma index e32e0b529..576b0814e 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/static/aaa_fqus.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/static/aaa_fqus.ma @@ -23,7 +23,7 @@ lemma aaa_fqu_conf: ∀G1,G2,L1,L2,T1,T2. ⦃G1, L1, T1⦄ ⊐ ⦃G2, L2, T2⦄ ∀A1. ⦃G1, L1⦄ ⊢ T1 ⁝ A1 → ∃A2. ⦃G2, L2⦄ ⊢ T2 ⁝ A2. #G1 #G2 #L1 #L2 #T1 #T2 #H elim H -G1 -G2 -L1 -L2 -T1 -T2 [ #I #G #L #T #A #H elim (aaa_inv_lref … H) -H - #J #K #V #H #HA lapply (ldrop_inv_O2 … H) -H + #J #K #V #H #HA lapply (drop_inv_O2 … H) -H #H destruct /2 width=2 by ex_intro/ | * [ #a ] * #G #L #V #T #X #H [ elim (aaa_inv_abbr … H)