From: Ferruccio Guidi Date: Sat, 14 Dec 2013 22:29:06 +0000 (+0000) Subject: one file was still missing X-Git-Tag: make_still_working~1019 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=fbb1435e16f0c737f3941fae83140a7d6454997e;p=helm.git one file was still missing --- diff --git a/matita/matita/contribs/lambdadelta/basic_2/computation/fsb_aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/computation/fsb_aaa.ma index 095d1fb11..49b11f971 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/computation/fsb_aaa.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/computation/fsb_aaa.ma @@ -28,7 +28,7 @@ theorem aaa_fsba: ∀h,g,G,L,T,A. ⦃G, L⦄ ⊢ T ⁝ A → ⦃G, L⦄ ⊢ ⦥ /3 width=2 by fsb_fsba, aaa_fsb/ qed. (* Advanced eliminators on atomica arity assignment for terms ***************) - +(* fact aaa_ind_fpbu: ∀h,g. ∀R:relation3 genv lenv term. (∀G1,L1,T1,A. ⦃G1, L1⦄ ⊢ T1 ⁝ A → (∀G2,L2,T2. ⦃G1, L1, T1⦄ ≻[h, g] ⦃G2, L2, T2⦄ → R G2 L2 T2) → @@ -37,4 +37,5 @@ fact aaa_ind_fpbu: ∀h,g. ∀R:relation3 genv lenv term. ∀G,L,T. ⦃G, L⦄ ⊢ ⬊*[h, g] T → ∀A. ⦃G, L⦄ ⊢ T ⁝ A → R G L T. #h #g #R #IH #G #L #T #H @(csx_ind_fpbu … H) -G -L -T #G1 #L1 #T1 #H1 #IH1 #A1 #HTA1 @IH -IH // -#G2 #L2 #T2 #H12 @IH1 // \ No newline at end of file +#G2 #L2 #T2 #H12 @IH1 // +*)