From: Ferruccio Guidi Date: Mon, 2 Jul 2018 14:10:32 +0000 (+0200) Subject: syntactic components detached from basic_2 become static_2 X-Git-Tag: make_still_working~301 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=ff612dc35167ec0c145864c9aa8ae5e1ebe20a48;p=helm.git syntactic components detached from basic_2 become static_2 + web site updated accordingly --- diff --git a/.gitignore b/.gitignore index a457deb5b..928986366 100644 --- a/.gitignore +++ b/.gitignore @@ -50,6 +50,8 @@ helm/www/lambdadelta/xslt/apps_2_sum.xsl helm/www/lambdadelta/xslt/basic_2_blk.xsl helm/www/lambdadelta/xslt/basic_2_src.xsl helm/www/lambdadelta/xslt/basic_2_sum.xsl +helm/www/lambdadelta/xslt/static_2_src.xsl +helm/www/lambdadelta/xslt/static_2_sum.xsl helm/www/lambdadelta/xslt/ground_2_src.xsl helm/www/lambdadelta/xslt/ground_2_sum.xsl helm/www/lambdadelta/xslt/basic_1_blk.xsl diff --git a/helm/www/lambdadelta/web/home/sitemap.tbl b/helm/www/lambdadelta/web/home/sitemap.tbl index 14e8ac71a..e76cdd5f8 100644 --- a/helm/www/lambdadelta/web/home/sitemap.tbl +++ b/helm/www/lambdadelta/web/home/sitemap.tbl @@ -14,7 +14,8 @@ table [ class "white" { [ @@("html/specification" "specification") * ] [ @@("html/specification#v2" "version 2") - "(" ^ @@("html/ground_2" "background") + "-" + + "(" ^ @@("html/ground_2" "background") + "-" + + @@("html/static_2" "syntax") + "-" + @@("html/basic_2" "core") + "-" + @@("html/apps_2" "applications") ^ ")" * ] diff --git a/helm/www/lambdadelta/web/home/specification.ldw.xml b/helm/www/lambdadelta/web/home/specification.ldw.xml index 93208df02..c58b253a8 100644 --- a/helm/www/lambdadelta/web/home/specification.ldw.xml +++ b/helm/www/lambdadelta/web/home/specification.ldw.xml @@ -82,6 +82,7 @@ Informational pages on the parts of the specification: Background, + Syntax, Core, Applications. diff --git a/matita/matita/contribs/lambdadelta/Makefile b/matita/matita/contribs/lambdadelta/Makefile index 0c03faa0c..073dc33a2 100644 --- a/matita/matita/contribs/lambdadelta/Makefile +++ b/matita/matita/contribs/lambdadelta/Makefile @@ -32,7 +32,7 @@ WWW := ../../../../helm/www/lambdadelta TAGS := all xoa xoa2 orig elim deps top leaf stats tbls trim contrib clean \ www up-html -PACKAGES := ground_2 basic_2 apps_2 alpha_1 +PACKAGES := ground_2 basic_2 static_2 apps_2 alpha_1 XPACKAGES := ground_2 basic_2 LDWS := $(shell find -name "*.ldw.xml") diff --git a/matita/matita/contribs/lambdadelta/apps_2/models/model.ma b/matita/matita/contribs/lambdadelta/apps_2/models/model.ma index 88703cfa2..86c624e1b 100644 --- a/matita/matita/contribs/lambdadelta/apps_2/models/model.ma +++ b/matita/matita/contribs/lambdadelta/apps_2/models/model.ma @@ -15,7 +15,7 @@ include "ground_2/notation/relations/ringeq_3.ma". include "apps_2/notation/models/at_3.ma". include "apps_2/notation/models/wbrackets_4.ma". -include "basic_2/syntax/term.ma". +include "static_2/syntax/term.ma". (* MODEL ********************************************************************) diff --git a/matita/matita/contribs/lambdadelta/apps_2/models/model_gi.ma b/matita/matita/contribs/lambdadelta/apps_2/models/model_gi.ma index 49a0d6754..1c354a621 100644 --- a/matita/matita/contribs/lambdadelta/apps_2/models/model_gi.ma +++ b/matita/matita/contribs/lambdadelta/apps_2/models/model_gi.ma @@ -12,6 +12,6 @@ (* *) (**************************************************************************) -include "basic_2/syntax/genv.ma". +include "static_2/syntax/genv.ma". (* GLOBAL ENVIRONMENT INTERPRETATION ***************************************) diff --git a/matita/matita/contribs/lambdadelta/apps_2/models/model_li.ma b/matita/matita/contribs/lambdadelta/apps_2/models/model_li.ma index 30d7d60d2..6be3c60c6 100644 --- a/matita/matita/contribs/lambdadelta/apps_2/models/model_li.ma +++ b/matita/matita/contribs/lambdadelta/apps_2/models/model_li.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/syntax/lenv.ma". +include "static_2/syntax/lenv.ma". include "apps_2/models/model_vlift.ma". include "apps_2/notation/models/inwbrackets_4.ma". diff --git a/matita/matita/contribs/lambdadelta/apps_2/models/veq_lifts.ma b/matita/matita/contribs/lambdadelta/apps_2/models/veq_lifts.ma index 80a103a48..905b1a336 100644 --- a/matita/matita/contribs/lambdadelta/apps_2/models/veq_lifts.ma +++ b/matita/matita/contribs/lambdadelta/apps_2/models/veq_lifts.ma @@ -13,7 +13,7 @@ (**************************************************************************) include "ground_2/relocation/rtmap_basic.ma". -include "basic_2/relocation/lifts.ma". +include "static_2/relocation/lifts.ma". include "apps_2/models/veq.ma". (* EVALUATION EQUIVALENCE **************************************************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_fqus.ma b/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_fqus.ma index 341a3b1cb..cb79dfcc8 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_fqus.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/dynamic/cnv_fqus.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/s_computation/fqus_fqup.ma". +include "static_2/s_computation/fqus_fqup.ma". include "basic_2/dynamic/cnv_drops.ma". (* CONTEXT_SENSITIVE NATIVE VALIDITY FOR TERMS ******************************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/dynamic/lsubsv_lsubd.ma b/matita/matita/contribs/lambdadelta/basic_2/dynamic/lsubsv_lsubd.ma index f2ecbb50a..7f9e72946 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/dynamic/lsubsv_lsubd.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/dynamic/lsubsv_lsubd.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/lsubd.ma". +include "static_2/static/lsubd.ma". include "basic_2/dynamic/lsubsv.ma". (* LOCAL ENVIRONMENT REFINEMENT FOR STRATIFIED NATIVE VALIDITY **************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/dynamic/lsubsv_scpds.ma b/matita/matita/contribs/lambdadelta/basic_2/dynamic/lsubsv_scpds.ma index 0694ae50a..cac43d361 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/dynamic/lsubsv_scpds.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/dynamic/lsubsv_scpds.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/lsubd_da.ma". +include "static_2/static/lsubd_da.ma". include "basic_2/dynamic/lsubsv_lsubd.ma". include "basic_2/dynamic/lsubsv_lstas.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/dynamic/snv_da_lpr.ma b/matita/matita/contribs/lambdadelta/basic_2/dynamic/snv_da_lpr.ma index acaf6f038..e4f1699fd 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/dynamic/snv_da_lpr.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/dynamic/snv_da_lpr.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/lsubd_da.ma". +include "static_2/static/lsubd_da.ma". include "basic_2/dynamic/snv_aaa.ma". include "basic_2/dynamic/snv_scpes.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs.ma b/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs.ma deleted file mode 100644 index e8bd0a2bd..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs.ma +++ /dev/null @@ -1,195 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "ground_2/lib/star.ma". -include "basic_2/notation/relations/relationstar_4.ma". -include "basic_2/static/rex.ma". - -(* ITERATED EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ***) - -definition rexs (R): term â relation lenv â CTC â¦ (rex R). - -interpretation "iterated extension on referred entries (local environment)" - 'RelationStar R T L1 L2 = (rexs R T L1 L2). - -(* Basic properties *********************************************************) - -lemma rexs_step_dx: âR,L1,L,T. L1 âª¤*[R, T] L â - âL2. L âª¤[R, T] L2 â L1 âª¤*[R, T] L2. -#R #L1 #L2 #T #HL1 #L2 @step @HL1 (**) (* auto fails *) -qed-. - -lemma rexs_step_sn: âR,L1,L,T. L1 âª¤[R, T] L â - âL2. L âª¤*[R, T] L2 â L1 âª¤*[R, T] L2. -#R #L1 #L2 #T #HL1 #L2 @TC_strap @HL1 (**) (* auto fails *) -qed-. - -lemma rexs_atom: âR,I. â âª¤*[R, âª{I}] â. -/2 width=1 by inj/ qed. - -lemma rexs_sort: âR,I,L1,L2,V1,V2,s. - L1 âª¤*[R, âs] L2 â L1.â{I}V1 âª¤*[R, âs] L2.â{I}V2. -#R #I #L1 #L2 #V1 #V2 #s #H elim H -L2 -/3 width=4 by rex_sort, rexs_step_dx, inj/ -qed. - -lemma rexs_pair: âR. (âL. reflexive â¦ (R L)) â - âI,L1,L2,V. L1 âª¤*[R, V] L2 â - L1.â{I}V âª¤*[R, #0] L2.â{I}V. -#R #HR #I #L1 #L2 #V #H elim H -L2 -/3 width=5 by rex_pair, rexs_step_dx, inj/ -qed. - -lemma rexs_unit: âR,f,I,L1,L2. ðâ¦fâ¦ â L1 âª¤[cext2 R, cfull, f] L2 â - L1.â¤{I} âª¤*[R, #0] L2.â¤{I}. -/3 width=3 by rex_unit, inj/ qed. - -lemma rexs_lref: âR,I,L1,L2,V1,V2,i. - L1 âª¤*[R, #i] L2 â L1.â{I}V1 âª¤*[R, #âi] L2.â{I}V2. -#R #I #L1 #L2 #V1 #V2 #i #H elim H -L2 -/3 width=4 by rex_lref, rexs_step_dx, inj/ -qed. - -lemma rexs_gref: âR,I,L1,L2,V1,V2,l. - L1 âª¤*[R, Â§l] L2 â L1.â{I}V1 âª¤*[R, Â§l] L2.â{I}V2. -#R #I #L1 #L2 #V1 #V2 #l #H elim H -L2 -/3 width=4 by rex_gref, rexs_step_dx, inj/ -qed. - -lemma rexs_co: âR1,R2. (âL,T1,T2. R1 L T1 T2 â R2 L T1 T2) â - âL1,L2,T. L1 âª¤*[R1, T] L2 â L1 âª¤*[R2, T] L2. -#R1 #R2 #HR #L1 #L2 #T #H elim H -L2 -/4 width=5 by rex_co, rexs_step_dx, inj/ -qed-. - -(* Basic inversion lemmas ***************************************************) - -(* Basic_2A1: uses: TC_lpx_sn_inv_atom1 *) -lemma rexs_inv_atom_sn: âR,I,Y2. â âª¤*[R, âª{I}] Y2 â Y2 = â. -#R #I #Y2 #H elim H -Y2 /3 width=3 by inj, rex_inv_atom_sn/ -qed-. - -(* Basic_2A1: uses: TC_lpx_sn_inv_atom2 *) -lemma rexs_inv_atom_dx: âR,I,Y1. Y1 âª¤*[R, âª{I}] â â Y1 = â. -#R #I #Y1 #H @(TC_ind_dx ??????? H) -Y1 -/3 width=3 by inj, rex_inv_atom_dx/ -qed-. - -lemma rexs_inv_sort: âR,Y1,Y2,s. Y1 âª¤*[R, âs] Y2 â - â¨â¨ â§â§ Y1 = â & Y2 = â - | ââI1,I2,L1,L2. L1 âª¤*[R, âs] L2 & - Y1 = L1.â{I1} & Y2 = L2.â{I2}. -#R #Y1 #Y2 #s #H elim H -Y2 -[ #Y2 #H elim (rex_inv_sort â¦ H) -H * - /4 width=8 by ex3_4_intro, inj, or_introl, or_intror, conj/ -| #Y #Y2 #_ #H elim (rex_inv_sort â¦ H) -H * - [ #H #H2 * * /3 width=7 by ex3_4_intro, or_introl, or_intror, conj/ - | #I #I2 #L #L2 #HL2 #H #H2 * * - [ #H1 #H0 destruct - | #I1 #I0 #L1 #L0 #HL10 #H1 #H0 destruct - /4 width=7 by ex3_4_intro, rexs_step_dx, or_intror/ - ] - ] -] -qed-. - -lemma rexs_inv_gref: âR,Y1,Y2,l. Y1 âª¤*[R, Â§l] Y2 â - â¨â¨ â§â§ Y1 = â & Y2 = â - | ââI1,I2,L1,L2. L1 âª¤*[R, Â§l] L2 & - Y1 = L1.â{I1} & Y2 = L2.â{I2}. -#R #Y1 #Y2 #l #H elim H -Y2 -[ #Y2 #H elim (rex_inv_gref â¦ H) -H * - /4 width=8 by ex3_4_intro, inj, or_introl, or_intror, conj/ -| #Y #Y2 #_ #H elim (rex_inv_gref â¦ H) -H * - [ #H #H2 * * /3 width=7 by ex3_4_intro, or_introl, or_intror, conj/ - | #I #I2 #L #L2 #HL2 #H #H2 * * - [ #H1 #H0 destruct - | #I1 #I0 #L1 #L0 #HL10 #H1 #H0 destruct - /4 width=7 by ex3_4_intro, rexs_step_dx, or_intror/ - ] - ] -] -qed-. - -lemma rexs_inv_bind: âR. (âL. reflexive â¦ (R L)) â - âp,I,L1,L2,V,T. L1 âª¤*[R, â{p,I}V.T] L2 â - â§â§ L1 âª¤*[R, V] L2 & L1.â{I}V âª¤*[R, T] L2.â{I}V. -#R #HR #p #I #L1 #L2 #V #T #H elim H -L2 -[ #L2 #H elim (rex_inv_bind â¦ V ? H) -H /3 width=1 by inj, conj/ -| #L #L2 #_ #H * elim (rex_inv_bind â¦ V ? H) -H /3 width=3 by rexs_step_dx, conj/ -] -qed-. - -lemma rexs_inv_flat: âR,I,L1,L2,V,T. L1 âª¤*[R, â{I}V.T] L2 â - â§â§ L1 âª¤*[R, V] L2 & L1 âª¤*[R, T] L2. -#R #I #L1 #L2 #V #T #H elim H -L2 -[ #L2 #H elim (rex_inv_flat â¦ H) -H /3 width=1 by inj, conj/ -| #L #L2 #_ #H * elim (rex_inv_flat â¦ H) -H /3 width=3 by rexs_step_dx, conj/ -] -qed-. - -(* Advanced inversion lemmas ************************************************) - -lemma rexs_inv_sort_bind_sn: âR,I1,Y2,L1,s. L1.â{I1} âª¤*[R, âs] Y2 â - ââI2,L2. L1 âª¤*[R, âs] L2 & Y2 = L2.â{I2}. -#R #I1 #Y2 #L1 #s #H elim (rexs_inv_sort â¦ H) -H * -[ #H destruct -| #Z #I2 #Y1 #L2 #Hs #H1 #H2 destruct /2 width=4 by ex2_2_intro/ -] -qed-. - -lemma rexs_inv_sort_bind_dx: âR,I2,Y1,L2,s. Y1 âª¤*[R, âs] L2.â{I2} â - ââI1,L1. L1 âª¤*[R, âs] L2 & Y1 = L1.â{I1}. -#R #I2 #Y1 #L2 #s #H elim (rexs_inv_sort â¦ H) -H * -[ #_ #H destruct -| #I1 #Z #L1 #Y2 #Hs #H1 #H2 destruct /2 width=4 by ex2_2_intro/ -] -qed-. - -lemma rexs_inv_gref_bind_sn: âR,I1,Y2,L1,l. L1.â{I1} âª¤*[R, Â§l] Y2 â - ââI2,L2. L1 âª¤*[R, Â§l] L2 & Y2 = L2.â{I2}. -#R #I1 #Y2 #L1 #l #H elim (rexs_inv_gref â¦ H) -H * -[ #H destruct -| #Z #I2 #Y1 #L2 #Hl #H1 #H2 destruct /2 width=4 by ex2_2_intro/ -] -qed-. - -lemma rexs_inv_gref_bind_dx: âR,I2,Y1,L2,l. Y1 âª¤*[R, Â§l] L2.â{I2} â - ââI1,L1. L1 âª¤*[R, Â§l] L2 & Y1 = L1.â{I1}. -#R #I2 #Y1 #L2 #l #H elim (rexs_inv_gref â¦ H) -H * -[ #_ #H destruct -| #I1 #Z #L1 #Y2 #Hl #H1 #H2 destruct /2 width=4 by ex2_2_intro/ -] -qed-. - -(* Basic forward lemmas *****************************************************) - -lemma rexs_fwd_pair_sn: âR,I,L1,L2,V,T. L1 âª¤*[R, â¡{I}V.T] L2 â L1 âª¤*[R, V] L2. -#R #I #L1 #L2 #V #T #H elim H -L2 -/3 width=5 by rex_fwd_pair_sn, rexs_step_dx, inj/ -qed-. - -lemma rexs_fwd_bind_dx: âR. (âL. reflexive â¦ (R L)) â - âp,I,L1,L2,V,T. L1 âª¤*[R, â{p,I}V.T] L2 â - L1.â{I}V âª¤*[R, T] L2.â{I}V. -#R #HR #p #I #L1 #L2 #V #T #H elim (rexs_inv_bind â¦ H) -H // -qed-. - -lemma rexs_fwd_flat_dx: âR,I,L1,L2,V,T. L1 âª¤*[R, â{I}V.T] L2 â L1 âª¤*[R, T] L2. -#R #I #L1 #L2 #V #T #H elim (rexs_inv_flat â¦ H) -H // -qed-. - -(* Basic_2A1: removed theorems 2: - TC_lpx_sn_inv_pair1 TC_lpx_sn_inv_pair2 -*) diff --git a/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs_drops.ma deleted file mode 100644 index 3ace3be2e..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs_drops.ma +++ /dev/null @@ -1,72 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/relocation/seq_seq.ma". -include "basic_2/static/rex_drops.ma". -include "basic_2/i_static/rexs.ma". - -(* ITERATED EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ***) - -definition tc_f_dedropable_sn: predicate (relation3 lenv term term) â - Î»R. âb,f,L1,K1. â¬*[b, f] L1 â K1 â - âK2,T. K1 âª¤*[R, T] K2 â âU. â¬*[f] T â U â - ââL2. L1 âª¤*[R, U] L2 & â¬*[b, f] L2 â K2 & L1 â¡[f] L2. - -definition tc_f_dropable_sn: predicate (relation3 lenv term term) â - Î»R. âb,f,L1,K1. â¬*[b, f] L1 â K1 â ðâ¦fâ¦ â - âL2,U. L1 âª¤*[R, U] L2 â âT. â¬*[f] T â U â - ââK2. K1 âª¤*[R, T] K2 & â¬*[b, f] L2 â K2. - -definition tc_f_dropable_dx: predicate (relation3 lenv term term) â - Î»R. âL1,L2,U. L1 âª¤*[R, U] L2 â - âb,f,K2. â¬*[b, f] L2 â K2 â ðâ¦fâ¦ â âT. â¬*[f] T â U â - ââK1. â¬*[b, f] L1 â K1 & K1 âª¤*[R, T] K2. - -(* Properties with generic slicing for local environments *******************) - -lemma dedropable_sn_CTC: âR. f_dedropable_sn R â tc_f_dedropable_sn R. -#R #HR #b #f #L1 #K1 #HLK1 #K2 #T #H elim H -K2 -[ #K2 #HK12 #U #HTU elim (HR â¦ HLK1 â¦ HK12 â¦ HTU) -K1 -T -HR - /3 width=4 by ex3_intro, inj/ -| #K #K2 #_ #HK2 #IH #U #HTU -HLK1 - elim (IH â¦ HTU) -IH #L #HL1 #HLK - elim (HR â¦ HLK â¦ HK2 â¦ HTU) -K -T -HR - /3 width=6 by seq_trans, rexs_step_dx, ex3_intro/ -] -qed-. - -(* Inversion lemmas with generic slicing for local environments *************) - -lemma dropable_sn_CTC: âR. f_dropable_sn R â tc_f_dropable_sn R. -#R #HR #b #f #L1 #K1 #HLK1 #Hf #L2 #U #H elim H -L2 -[ #L2 #HL12 #T #HTU elim (HR â¦ HLK1 â¦ HL12 â¦ HTU) -L1 -U -HR - /3 width=3 by inj, ex2_intro/ -| #L #L2 #_ #HL2 #IH #T #HTU -HLK1 - elim (IH â¦ HTU) -IH #K #HK1 #HLK - elim (HR â¦ HLK â¦ HL2 â¦ HTU) -L -U -HR - /3 width=3 by rexs_step_dx, ex2_intro/ -] -qed-. - -lemma dropable_dx_CTC: âR. f_dropable_dx R â tc_f_dropable_dx R. -#R #HR #L1 #L2 #U #H elim H -L2 -[ #L2 #HL12 #b #f #K2 #HLK2 #Hf #T #HTU - elim (HR â¦ HL12 â¦ HLK2 â¦ HTU) -L2 -U -HR - /3 width=3 by inj, ex2_intro/ -| #L #L2 #_ #HL2 #IH #b #f #K2 #HLK2 #Hf #T #HTU - elim (HR â¦ HL2 â¦ HLK2 â¦ HTU) -L2 -HR // #K #HLK #HK2 - elim (IH â¦ HLK â¦ HTU) -IH -L -U - /3 width=5 by rexs_step_dx, ex2_intro/ -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs_fqup.ma b/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs_fqup.ma deleted file mode 100644 index ad5adc659..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs_fqup.ma +++ /dev/null @@ -1,75 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/static/rex_fqup.ma". -include "basic_2/i_static/rexs.ma". - -(* ITERATED EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ***) - -(* Advanced properties ******************************************************) - -lemma rexs_refl: âR. c_reflexive â¦ R â - âT. reflexive â¦ (rexs R T). -/3 width=1 by rex_refl, inj/ qed. - -(* Basic_2A1: uses: TC_lpx_sn_pair TC_lpx_sn_pair_refl *) -lemma rexs_pair_refl: âR. c_reflexive â¦ R â - âL,V1,V2. CTC â¦ R L V1 V2 â âI,T. L.â{I}V1 âª¤*[R, T] L.â{I}V2. -#R #HR #L #V1 #V2 #H elim H -V2 -/3 width=3 by rexs_step_dx, rex_pair_refl, inj/ -qed. - -lemma rexs_tc: âR,L1,L2,T,f. ðâ¦fâ¦ â TC â¦ (sex cfull (cext2 R) f) L1 L2 â - L1 âª¤*[R, T] L2. -#R #L1 #L2 #T #f #Hf #H elim H -L2 -[ elim (frees_total L1 T) | #L elim (frees_total L T) ] -/5 width=7 by sex_sdj, rexs_step_dx, sdj_isid_sn, inj, ex2_intro/ -qed. - -(* Advanced eliminators *****************************************************) - -lemma rexs_ind_sn: âR. c_reflexive â¦ R â - âL1,T. âQ:predicate â¦. Q L1 â - (âL,L2. L1 âª¤*[R, T] L â L âª¤[R, T] L2 â Q L â Q L2) â - âL2. L1 âª¤*[R, T] L2 â Q L2. -#R #HR #L1 #T #Q #HL1 #IHL1 #L2 #HL12 -@(TC_star_ind â¦ HL1 IHL1 â¦ HL12) /2 width=1 by rex_refl/ -qed-. - -lemma rexs_ind_dx: âR. c_reflexive â¦ R â - âL2,T. âQ:predicate â¦. Q L2 â - (âL1,L. L1 âª¤[R, T] L â L âª¤*[R, T] L2 â Q L â Q L1) â - âL1. L1 âª¤*[R, T] L2 â Q L1. -#R #HR #L2 #Q #HL2 #IHL2 #L1 #HL12 -@(TC_star_ind_dx â¦ HL2 IHL2 â¦ HL12) /2 width=4 by rex_refl/ -qed-. - -(* Advanced inversion lemmas ************************************************) - -lemma rexs_inv_bind_void: âR. c_reflexive â¦ R â - âp,I,L1,L2,V,T. L1 âª¤*[R, â{p,I}V.T] L2 â - â§â§ L1 âª¤*[R, V] L2 & L1.â§ âª¤*[R, T] L2.â§. -#R #HR #p #I #L1 #L2 #V #T #H @(rexs_ind_sn â¦ HR â¦ H) -L2 -[ /3 width=1 by rexs_refl, conj/ -| #L #L2 #_ #H * elim (rex_inv_bind_void â¦ H) -H /3 width=3 by rexs_step_dx, conj/ -] -qed-. - -(* Advanced forward lemmas **************************************************) - -lemma rexs_fwd_bind_dx_void: âR. c_reflexive â¦ R â - âp,I,L1,L2,V,T. L1 âª¤*[R, â{p,I}V.T] L2 â - L1.â§ âª¤*[R, T] L2.â§. -#R #HR #p #I #L1 #L2 #V #T #H elim (rexs_inv_bind_void â¦ H) -H // -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs_length.ma b/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs_length.ma deleted file mode 100644 index 9b1e1263b..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs_length.ma +++ /dev/null @@ -1,29 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/static/rex_length.ma". -include "basic_2/i_static/rexs.ma". - -(* ITERATED EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ***) - -(* Forward lemmas with length for local environments ************************) - -(* Basic_2A1: uses: TC_lpx_sn_fwd_length *) -lemma rexs_fwd_length: âR,L1,L2,T. L1 âª¤*[R, T] L2 â |L1| = |L2|. -#R #L1 #L2 #T #H elim H -L2 -[ #L2 #HL12 >(rex_fwd_length â¦ HL12) -HL12 // -| #L #L2 #_ #HL2 #IHL1 - >IHL1 -L1 >(rex_fwd_length â¦ HL2) -HL2 // -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs_lex.ma b/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs_lex.ma deleted file mode 100644 index c46649efe..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs_lex.ma +++ /dev/null @@ -1,58 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/relocation/lex_tc.ma". -include "basic_2/static/req_fqup.ma". -include "basic_2/static/req_fsle.ma". -include "basic_2/i_static/rexs_fqup.ma". - -(* ITERATED EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ***) - -(* Properties with generic extension of a context sensitive relation ********) - -lemma rexs_lex: âR. c_reflexive â¦ R â - âL1,L2,T. L1 âª¤[CTC â¦ R] L2 â L1 âª¤*[R, T] L2. -#R #HR #L1 #L2 #T * -/5 width=7 by rexs_tc, sex_inv_tc_dx, sex_co, ext2_inv_tc, ext2_refl/ -qed. - -lemma rexs_lex_req: âR. c_reflexive â¦ R â - âL1,L. L1 âª¤[CTC â¦ R] L â âL2,T. L â¡[T] L2 â - L1 âª¤*[R, T] L2. -/3 width=3 by rexs_lex, rexs_step_dx, req_fwd_rex/ qed. - -(* Inversion lemmas with generic extension of a context sensitive relation **) - -(* Note: s_rs_transitive_lex_inv_isid could be invoked in the last auto but makes it too slow *) -lemma rexs_inv_lex_req: âR. c_reflexive â¦ R â - rex_fsge_compatible R â - s_rs_transitive â¦ R (Î»_.lex R) â - req_transitive R â - âL1,L2,T. L1 âª¤*[R, T] L2 â - ââL. L1 âª¤[CTC â¦ R] L & L â¡[T] L2. -#R #H1R #H2R #H3R #H4R #L1 #L2 #T #H -lapply (s_rs_transitive_lex_inv_isid â¦ H3R) -H3R #H3R -@(rexs_ind_sn â¦ H1R â¦ H) -H -L2 -[ /4 width=3 by req_refl, lex_refl, inj, ex2_intro/ -| #L0 #L2 #_ #HL02 * #L * #f0 #Hf0 #HL1 #HL0 - lapply (req_rex_trans â¦ HL0 â¦ HL02) -L0 // * #f1 #Hf1 #HL2 - elim (sex_sdj_split â¦ ceq_ext â¦ HL2 f0 ?) -HL2 - [ #L0 #HL0 #HL02 |*: /2 width=1 by ext2_refl, sdj_isid_dx/ ] - lapply (sex_sdj â¦ HL0 f1 ?) /2 width=1 by sdj_isid_sn/ #H - elim (frees_sex_conf â¦ Hf1 â¦ H) // -H2R -H #f2 #Hf2 #Hf21 - lapply (sle_sex_trans â¦ HL02 â¦ Hf21) -f1 // #HL02 - lapply (sex_co ?? cfull (CTC â¦ (cext2 R)) â¦ HL1) -HL1 /2 width=1 by ext2_inv_tc/ #HL1 - /8 width=11 by sex_inv_tc_dx, sex_tc_dx, sex_co, ext2_tc, ext2_refl, step, ex2_intro/ (**) (* full auto too slow *) -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs_rexs.ma b/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs_rexs.ma deleted file mode 100644 index 7b0b83d48..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/i_static/rexs_rexs.ma +++ /dev/null @@ -1,33 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/static/rex_fsle.ma". -include "basic_2/i_static/rexs.ma". - -(* ITERATED EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ***) - -(* Advanced properties ******************************************************) - -lemma rexs_sym: âR. rex_fsge_compatible R â - (âL1,L2,T1,T2. R L1 T1 T2 â R L2 T2 T1) â - âT. symmetric â¦ (rexs R T). -#R #H1R #H2R #T #L1 #L2 #H elim H -L2 -/4 width=3 by rex_sym, rexs_step_sn, inj/ -qed-. - -(* Main properties **********************************************************) - -theorem rexs_trans: âR,T. Transitive â¦ (rexs R T). -#R #T #L1 #L #HL1 #L2 #HL2 @(trans_TC â¦ HL1 HL2) (**) (* auto fails *) -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxabbr_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxabbr_2.ma deleted file mode 100644 index 1eea5226e..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxabbr_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( L. break â T1 )" - left associative with precedence 50 - for @{ 'DxAbbr $L $T1 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxabst_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxabst_2.ma deleted file mode 100644 index 3bb334e86..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxabst_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( L. break â T1 )" - left associative with precedence 51 - for @{ 'DxAbst $L $T1 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxbind1_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxbind1_2.ma deleted file mode 100644 index 5e78eeb18..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxbind1_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( L. break â¤ { term 46 I } )" - non associative with precedence 47 - for @{ 'DxBind1 $L $I }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxbind2_3.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxbind2_3.ma deleted file mode 100644 index 6800d8e5c..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxbind2_3.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( L. break â { term 46 I } break term 49 T1 )" - non associative with precedence 48 - for @{ 'DxBind2 $L $I $T1 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxitem_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxitem_2.ma deleted file mode 100644 index c2e0b42dd..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxitem_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( L. â { break term 46 I } )" - non associative with precedence 46 - for @{'DxItem $L $I }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxvoid_1.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxvoid_1.ma deleted file mode 100644 index 58faf0664..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/dxvoid_1.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( L. â§ )" - non associative with precedence 49 - for @{ 'DxVoid $L }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/gref_1.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/gref_1.ma deleted file mode 100644 index c67265063..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/gref_1.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( Â§ term 90 l )" - non associative with precedence 55 - for @{ 'GRef $l }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/item0_0.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/item0_0.ma deleted file mode 100644 index b6e471d3d..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/item0_0.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "âª" - non associative with precedence 55 - for @{ 'Item0 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/item0_1.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/item0_1.ma deleted file mode 100644 index 2c9e41aef..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/item0_1.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( âª { term 46 I } )" - non associative with precedence 55 - for @{ 'Item0 $I }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/lref_1.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/lref_1.ma deleted file mode 100644 index ebab03c01..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/lref_1.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( # term 90 i )" - non associative with precedence 55 - for @{ 'LRef $i }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabbr_3.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabbr_3.ma deleted file mode 100644 index 192f6cd70..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabbr_3.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â { term 46 p } break term 55 T1. break term 55 T2 )" - non associative with precedence 55 - for @{ 'SnAbbr $p $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabbrneg_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabbrneg_2.ma deleted file mode 100644 index ecd1a7c63..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabbrneg_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( - â term 55 T1. break term 55 T2 )" - non associative with precedence 55 - for @{ 'SnAbbrNeg $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabbrpos_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabbrpos_2.ma deleted file mode 100644 index 84aa4d213..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabbrpos_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( + â term 55 T1. break term 55 T2 )" - non associative with precedence 55 - for @{ 'SnAbbrPos $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabst_3.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabst_3.ma deleted file mode 100644 index 2c9253d98..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabst_3.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â { term 46 p } break term 55 T1. break term 55 T2 )" - non associative with precedence 55 - for @{ 'SnAbst $p $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabstneg_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabstneg_2.ma deleted file mode 100644 index e4dc84a10..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabstneg_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( - â term 55 T1. break term 55 T2 )" - non associative with precedence 55 - for @{ 'SnAbstNeg $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabstpos_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabstpos_2.ma deleted file mode 100644 index a54fadce2..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snabstpos_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( + â term 55 T1. break term 55 T2 )" - non associative with precedence 55 - for @{ 'SnAbstPos $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snappl_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snappl_2.ma deleted file mode 100644 index 615e70bd3..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snappl_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â term 55 T1. break term 55 T2 )" - non associative with precedence 55 - for @{ 'SnAppl $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snbind2_4.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snbind2_4.ma deleted file mode 100644 index b36457861..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snbind2_4.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â { term 46 p, break term 46 I } break term 55 T1. break term 55 T )" - non associative with precedence 55 - for @{ 'SnBind2 $p $I $T1 $T }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snbind2neg_3.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snbind2neg_3.ma deleted file mode 100644 index c75fe170d..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snbind2neg_3.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( - â { term 46 I } break term 55 T1. break term 55 T )" - non associative with precedence 55 - for @{ 'SnBind2Neg $I $T1 $T }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snbind2pos_3.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snbind2pos_3.ma deleted file mode 100644 index ca7a9d921..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snbind2pos_3.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( + â { term 46 I } break term 55 T1. break term 55 T )" - non associative with precedence 55 - for @{ 'SnBind2Pos $I $T1 $T }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/sncast_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/sncast_2.ma deleted file mode 100644 index eddb2e583..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/sncast_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â term 55 T1. break term 55 T2 )" - non associative with precedence 55 - for @{ 'SnCast $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snflat2_3.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snflat2_3.ma deleted file mode 100644 index b0fdc8987..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snflat2_3.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â { term 46 I } break term 55 T1. break term 55 T )" - non associative with precedence 55 - for @{ 'SnFlat2 $I $T1 $T }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snitem2_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snitem2_2.ma deleted file mode 100644 index 90bc4ed5b..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snitem2_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¡ term 55 T1. break term 55 T )" - non associative with precedence 55 - for @{ 'SnItem2 $T1 $T }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snitem2_3.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snitem2_3.ma deleted file mode 100644 index d455b5103..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/snitem2_3.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¡ { term 46 I } break term 55 T1. break term 55 T )" - non associative with precedence 55 - for @{ 'SnItem2 $I $T1 $T }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/star_0.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/star_0.ma deleted file mode 100644 index 8cf6da569..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/star_0.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "â" - non associative with precedence 46 - for @{ 'Star }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/star_1.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/star_1.ma deleted file mode 100644 index af8fa6675..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/constructors/star_1.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â term 90 s )" - non associative with precedence 55 - for @{ 'Star $s }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snabbr_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snabbr_2.ma deleted file mode 100644 index 25c3ca773..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snabbr_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â term 55 T. break term 55 L )" - non associative with precedence 55 - for @{ 'SnAbbr $T $L }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snabst_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snabst_2.ma deleted file mode 100644 index f5219bf69..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snabst_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â term 55 T. break term 55 L )" - non associative with precedence 55 - for @{ 'SnAbst $T $L }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snapplvector_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snapplvector_2.ma deleted file mode 100644 index a7c92b4fe..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snapplvector_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¶ term 55 T1. break term 55 T )" - non associative with precedence 55 - for @{ 'SnApplVector $T1 $T }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snbind1_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snbind1_2.ma deleted file mode 100644 index 8cac6eac6..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snbind1_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¤ { term 46 I }. break term 55 L )" - non associative with precedence 55 - for @{ 'SnBind1 $I $L }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snbind2_3.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snbind2_3.ma deleted file mode 100644 index 7e73c0fb5..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snbind2_3.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â { term 46 I } break term 55 T. break term 55 L )" - non associative with precedence 55 - for @{ 'SnBind2 $I $T $L }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snitem_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snitem_2.ma deleted file mode 100644 index 7046d2247..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snitem_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â { term 46 I }. break term 55 L )" - non associative with precedence 55 - for @{ 'SnItem $I $L }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snvoid_1.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snvoid_1.ma deleted file mode 100644 index 2615d8c66..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/snvoid_1.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â§. term 55 L )" - non associative with precedence 55 - for @{ 'SnVoid $L }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/weight_1.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/functions/weight_1.ma deleted file mode 100644 index 3cd52cc2f..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/weight_1.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¯ { term 46 X } )" - non associative with precedence 90 - for @{ 'Weight $X }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/weight_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/functions/weight_2.ma deleted file mode 100644 index 8d13242c1..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/weight_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¯ { term 46 L, break term 46 T } )" - non associative with precedence 90 - for @{ 'Weight $L $T }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/weight_3.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/functions/weight_3.ma deleted file mode 100644 index de765db43..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/functions/weight_3.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¯ { term 46 G, break term 46 L, break term 46 T } )" - non associative with precedence 90 - for @{ 'Weight $G $L $T }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/atomicarity_4.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/atomicarity_4.ma deleted file mode 100644 index 9659409b9..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/atomicarity_4.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¦ term 46 G, break term 46 Lâ¦ â¢ break term 46 T â break term 46 A )" - non associative with precedence 45 - for @{ 'AtomicArity $G $L $T $A }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/freestar_3.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/freestar_3.ma deleted file mode 100644 index 02c33853c..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/freestar_3.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( L â¢ ð * â¦ break term 46 T â¦ â break term 46 f )" - non associative with precedence 45 - for @{ 'FreeStar $L $T $f }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/ideqsn_3.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/ideqsn_3.ma deleted file mode 100644 index 3ba302519..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/ideqsn_3.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( L1 â¡ [ break term 46 f ] break term 46 L2 )" - non associative with precedence 45 - for @{ 'IdEqSn $f $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/ineint_5.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/ineint_5.ma deleted file mode 100644 index 1705b31be..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/ineint_5.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¦ term 46 G, break term 46 L, break term 46 T â¦ Ïµ [ break term 46 R ] ã break term 46 A ã )" - non associative with precedence 45 - for @{ 'InEInt $R $G $L $T $A }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/lrsubeqa_3.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/lrsubeqa_3.ma deleted file mode 100644 index c3b74a96a..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/lrsubeqa_3.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( G â¢ break term 46 L1 â« â break term 46 L2 )" - non associative with precedence 45 - for @{ 'LRSubEqA $G $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/lrsubeqc_2.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/lrsubeqc_2.ma deleted file mode 100644 index 3a6e5eded..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/lrsubeqc_2.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( L1 â« break term 46 L2 )" - non associative with precedence 45 - for @{ 'LRSubEqC $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/lrsubeqc_4.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/lrsubeqc_4.ma deleted file mode 100644 index 6b9fa4dfd..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/lrsubeqc_4.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( G â¢ break term 46 L1 â« [ break term 46 R ] break term 46 L2 )" - non associative with precedence 45 - for @{ 'LRSubEqC $R $G $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/lrsubeqf_4.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/lrsubeqf_4.ma deleted file mode 100644 index 413553ccd..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/lrsubeqf_4.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¦ term 46 L1, break term 46 f1 â¦ â« ð* â¦ break term 46 L2, break term 46 f2 â¦ )" - non associative with precedence 45 - for @{ 'LRSubEqF $L1 $f1 $L2 $f2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/rdropstar_3.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/rdropstar_3.ma deleted file mode 100644 index 0e0a3273d..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/rdropstar_3.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¬ * [ term 46 i ] break term 46 L1 â break term 46 L2 )" - non associative with precedence 45 - for @{ 'RDropStar $i $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/rdropstar_4.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/rdropstar_4.ma deleted file mode 100644 index ce4ce12b9..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/rdropstar_4.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¬ * [ term 46 b, break term 46 f ] break term 46 L1 â break term 46 L2 )" - non associative with precedence 45 - for @{ 'RDropStar $b $f $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/relation_3.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/relation_3.ma deleted file mode 100644 index 251dbf3f9..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/relation_3.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( L1 âª¤ [ break term 46 R ] break term 46 L2 )" - non associative with precedence 45 - for @{ 'Relation $R $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/relation_4.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/relation_4.ma deleted file mode 100644 index 6d4e20cea..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/relation_4.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( L1 âª¤[ break term 46 R, break term 46 T ] break term 46 L2 )" - non associative with precedence 45 - for @{ 'Relation $R $T $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/relation_5.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/relation_5.ma deleted file mode 100644 index 6ad4bb3e7..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/relation_5.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( L1 âª¤[ break term 46 R1, break term 46 R2, break term 46 f ] break term 46 L2 )" - non associative with precedence 45 - for @{ 'Relation $R1 $R2 $f $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/relationstar_4.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/relationstar_4.ma deleted file mode 100644 index bc5939830..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/relationstar_4.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( L1 âª¤*[ break term 46 R, break term 46 T ] break term 46 L2 )" - non associative with precedence 45 - for @{ 'RelationStar $R $T $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/rliftstar_3.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/rliftstar_3.ma deleted file mode 100644 index 26d0262de..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/rliftstar_3.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¬ * [ term 46 f ] break term 46 T1 â break term 46 T2 )" - non associative with precedence 45 - for @{ 'RLiftStar $f $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/simple_1.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/simple_1.ma deleted file mode 100644 index 0acfb4ef7..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/simple_1.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( ð â¦ term 46 T â¦ )" - non associative with precedence 45 - for @{ 'Simple $T }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/stareq_4.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/stareq_4.ma deleted file mode 100644 index 0f67a8382..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/stareq_4.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( T1 â [ break term 46 h, break term 46 o ] break term 46 T2 )" - non associative with precedence 45 - for @{ 'StarEq $h $o $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/stareq_5.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/stareq_5.ma deleted file mode 100644 index 553205960..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/stareq_5.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( L â¢ break term 46 T1 â [ break term 46 h, break term 46 o ] break term 46 T2 )" - non associative with precedence 45 - for @{ 'StarEq $h $o $L $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/stareqsn_5.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/stareqsn_5.ma deleted file mode 100644 index af611f765..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/stareqsn_5.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( L1 â [ break term 46 h, break term 46 o, break term 46 T ] break term 46 L2 )" - non associative with precedence 45 - for @{ 'StarEqSn $h $o $T $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/stareqsn_8.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/stareqsn_8.ma deleted file mode 100644 index 6e4ed5d11..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/stareqsn_8.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¦ term 46 G1, break term 46 L1, break term 46 T1 â¦ â [ break term 46 h, break term 46 o ] â¦ break term 46 G2, break term 46 L2, break term 46 T2 â¦ )" - non associative with precedence 45 - for @{ 'StarEqSn $h $o $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/subseteq_4.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/subseteq_4.ma deleted file mode 100644 index f7a000112..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/subseteq_4.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¦ term 46 L1, break term 46 T1 â¦ â â¦ break term 46 L2, break term 46 T2 â¦ )" - non associative with precedence 45 - for @{ 'SubSetEq $L1 $T1 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/supterm_6.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/supterm_6.ma deleted file mode 100644 index 72533dc3c..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/supterm_6.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¦ term 46 G1, break term 46 L1, break term 46 T1 â¦ â â¦ break term 46 G2, break term 46 L2, break term 46 T2 â¦ )" - non associative with precedence 45 - for @{ 'SupTerm $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/supterm_7.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/supterm_7.ma deleted file mode 100644 index 2e12296b4..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/supterm_7.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¦ term 46 G1, break term 46 L1, break term 46 T1 â¦ â [ break term 46 b ] â¦ break term 46 G2, break term 46 L2, break term 46 T2 â¦ )" - non associative with precedence 45 - for @{ 'SupTerm $b $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermopt_6.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermopt_6.ma deleted file mode 100644 index 62a8cbb0b..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermopt_6.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¦ term 46 G1, break term 46 L1, break term 46 T1 â¦ ââ¸® â¦ break term 46 G2, break term 46 L2, break term 46 T2 â¦ )" - non associative with precedence 45 - for @{ 'SupTermOpt $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermopt_7.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermopt_7.ma deleted file mode 100644 index dd6db78c2..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermopt_7.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¦ term 46 G1, break term 46 L1, break term 46 T1 â¦ ââ¸® [ break term 46 b ] â¦ break term 46 G2, break term 46 L2, break term 46 T2 â¦ )" - non associative with precedence 45 - for @{ 'SupTermOpt $b $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermplus_6.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermplus_6.ma deleted file mode 100644 index 57bdc3d94..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermplus_6.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¦ term 46 G1, term 46 L1, break term 46 T1 â¦ â + â¦ break term 46 G2, term 46 L2, break term 46 T2 â¦ )" - non associative with precedence 45 - for @{ 'SupTermPlus $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermplus_7.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermplus_7.ma deleted file mode 100644 index 3bbe31a83..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermplus_7.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¦ term 46 G1, term 46 L1, break term 46 T1 â¦ â + [ break term 46 b ] â¦ break term 46 G2, term 46 L2, break term 46 T2 â¦ )" - non associative with precedence 45 - for @{ 'SupTermPlus $b $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermstar_6.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermstar_6.ma deleted file mode 100644 index a0bf55faa..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermstar_6.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¦ term 46 G1, term 46 L1, break term 46 T1 â¦ â * â¦ break term 46 G2, break term 46 L2, break term 46 T2 â¦ )" - non associative with precedence 45 - for @{ 'SupTermStar $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermstar_7.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermstar_7.ma deleted file mode 100644 index 865019860..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/suptermstar_7.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( â¦ term 46 G1, term 46 L1, break term 46 T1 â¦ â * [ break term 46 b ] â¦ break term 46 G2, break term 46 L2, break term 46 T2 â¦ )" - non associative with precedence 45 - for @{ 'SupTermStar $b $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/topiso_4.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/topiso_4.ma deleted file mode 100644 index e8c080f6a..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/topiso_4.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( T1 â©³ [ break term 46 h, break term 46 o ] break term 46 T2 )" - non associative with precedence 45 - for @{ 'TopIso $h $o $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/voidstareq_4.ma b/matita/matita/contribs/lambdadelta/basic_2/notation/relations/voidstareq_4.ma deleted file mode 100644 index 77841c6bb..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/notation/relations/voidstareq_4.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) - -notation "hvbox( L1 ââ§* [ break term 46 n1, break term 46 n2 ] break term 46 L2 )" - non associative with precedence 45 - for @{ 'VoidStarEq $L1 $n1 $n2 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/drops.ma deleted file mode 100644 index f982cb1a6..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops.ma +++ /dev/null @@ -1,469 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "ground_2/relocation/rtmap_coafter.ma". -include "basic_2/notation/relations/rdropstar_3.ma". -include "basic_2/notation/relations/rdropstar_4.ma". -include "basic_2/relocation/seq.ma". -include "basic_2/relocation/lifts_bind.ma". - -(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) - -(* Basic_1: includes: drop_skip_bind drop1_skip_bind *) -(* Basic_2A1: includes: drop_atom drop_pair drop_drop drop_skip - drop_refl_atom_O2 drop_drop_lt drop_skip_lt -*) -inductive drops (b:bool): rtmap â relation lenv â -| drops_atom: âf. (b = â â ðâ¦fâ¦) â drops b (f) (â) (â) -| drops_drop: âf,I,L1,L2. drops b f L1 L2 â drops b (âf) (L1.â{I}) L2 -| drops_skip: âf,I1,I2,L1,L2. - drops b f L1 L2 â â¬*[f] I2 â I1 â - drops b (â«¯f) (L1.â{I1}) (L2.â{I2}) -. - -interpretation "uniform slicing (local environment)" - 'RDropStar i L1 L2 = (drops true (uni i) L1 L2). - -interpretation "generic slicing (local environment)" - 'RDropStar b f L1 L2 = (drops b f L1 L2). - -definition d_liftable1: predicate (relation2 lenv term) â - Î»R. âK,T. R K T â âb,f,L. â¬*[b, f] L â K â - âU. â¬*[f] T â U â R L U. - -definition d_liftable1_isuni: predicate (relation2 lenv term) â - Î»R. âK,T. R K T â âb,f,L. â¬*[b, f] L â K â ðâ¦fâ¦ â - âU. â¬*[f] T â U â R L U. - -definition d_deliftable1: predicate (relation2 lenv term) â - Î»R. âL,U. R L U â âb,f,K. â¬*[b, f] L â K â - âT. â¬*[f] T â U â R K T. - -definition d_deliftable1_isuni: predicate (relation2 lenv term) â - Î»R. âL,U. R L U â âb,f,K. â¬*[b, f] L â K â ðâ¦fâ¦ â - âT. â¬*[f] T â U â R K T. - -definition d_liftable2_sn: âC:Type[0]. âS:rtmap â relation C. - predicate (lenv â relation C) â - Î»C,S,R. âK,T1,T2. R K T1 T2 â âb,f,L. â¬*[b, f] L â K â - âU1. S f T1 U1 â - ââU2. S f T2 U2 & R L U1 U2. - -definition d_deliftable2_sn: âC:Type[0]. âS:rtmap â relation C. - predicate (lenv â relation C) â - Î»C,S,R. âL,U1,U2. R L U1 U2 â âb,f,K. â¬*[b, f] L â K â - âT1. S f T1 U1 â - ââT2. S f T2 U2 & R K T1 T2. - -definition d_liftable2_bi: âC:Type[0]. âS:rtmap â relation C. - predicate (lenv â relation C) â - Î»C,S,R. âK,T1,T2. R K T1 T2 â âb,f,L. â¬*[b, f] L â K â - âU1. S f T1 U1 â - âU2. S f T2 U2 â R L U1 U2. - -definition d_deliftable2_bi: âC:Type[0]. âS:rtmap â relation C. - predicate (lenv â relation C) â - Î»C,S,R. âL,U1,U2. R L U1 U2 â âb,f,K. â¬*[b, f] L â K â - âT1. S f T1 U1 â - âT2. S f T2 U2 â R K T1 T2. - -definition co_dropable_sn: predicate (rtmap â relation lenv) â - Î»R. âb,f,L1,K1. â¬*[b, f] L1 â K1 â ðâ¦fâ¦ â - âf2,L2. R f2 L1 L2 â âf1. f ~â f1 â f2 â - ââK2. R f1 K1 K2 & â¬*[b, f] L2 â K2. - -definition co_dropable_dx: predicate (rtmap â relation lenv) â - Î»R. âf2,L1,L2. R f2 L1 L2 â - âb,f,K2. â¬*[b, f] L2 â K2 â ðâ¦fâ¦ â - âf1. f ~â f1 â f2 â - ââK1. â¬*[b, f] L1 â K1 & R f1 K1 K2. - -definition co_dedropable_sn: predicate (rtmap â relation lenv) â - Î»R. âb,f,L1,K1. â¬*[b, f] L1 â K1 â âf1,K2. R f1 K1 K2 â - âf2. f ~â f1 â f2 â - ââL2. R f2 L1 L2 & â¬*[b, f] L2 â K2 & L1 â¡[f] L2. - -(* Basic properties *********************************************************) - -lemma drops_atom_F: âf. â¬*[â», f] â â â. -#f @drops_atom #H destruct -qed. - -lemma drops_eq_repl_back: âb,L1,L2. eq_repl_back â¦ (Î»f. â¬*[b, f] L1 â L2). -#b #L1 #L2 #f1 #H elim H -f1 -L1 -L2 -[ /4 width=3 by drops_atom, isid_eq_repl_back/ -| #f1 #I #L1 #L2 #_ #IH #f2 #H elim (eq_inv_nx â¦ H) -H - /3 width=3 by drops_drop/ -| #f1 #I1 #I2 #L1 #L2 #_ #HI #IH #f2 #H elim (eq_inv_px â¦ H) -H - /3 width=3 by drops_skip, liftsb_eq_repl_back/ -] -qed-. - -lemma drops_eq_repl_fwd: âb,L1,L2. eq_repl_fwd â¦ (Î»f. â¬*[b, f] L1 â L2). -#b #L1 #L2 @eq_repl_sym /2 width=3 by drops_eq_repl_back/ (**) (* full auto fails *) -qed-. - -(* Basic_2A1: includes: drop_FT *) -lemma drops_TF: âf,L1,L2. â¬*[â, f] L1 â L2 â â¬*[â», f] L1 â L2. -#f #L1 #L2 #H elim H -f -L1 -L2 -/3 width=1 by drops_atom, drops_drop, drops_skip/ -qed. - -(* Basic_2A1: includes: drop_gen *) -lemma drops_gen: âb,f,L1,L2. â¬*[â, f] L1 â L2 â â¬*[b, f] L1 â L2. -* /2 width=1 by drops_TF/ -qed-. - -(* Basic_2A1: includes: drop_T *) -lemma drops_F: âb,f,L1,L2. â¬*[b, f] L1 â L2 â â¬*[â», f] L1 â L2. -* /2 width=1 by drops_TF/ -qed-. - -lemma d_liftable2_sn_bi: âC,S. (âf,c. is_mono â¦ (S f c)) â - âR. d_liftable2_sn C S R â d_liftable2_bi C S R. -#C #S #HS #R #HR #K #T1 #T2 #HT12 #b #f #L #HLK #U1 #HTU1 #U2 #HTU2 -elim (HR â¦ HT12 â¦ HLK â¦ HTU1) -HR -K -T1 #X #HTX #HUX -<(HS â¦ HTX â¦ HTU2) -T2 -U2 -b -f // -qed-. - -lemma d_deliftable2_sn_bi: âC,S. (âf. is_inj2 â¦ (S f)) â - âR. d_deliftable2_sn C S R â d_deliftable2_bi C S R. -#C #S #HS #R #HR #L #U1 #U2 #HU12 #b #f #K #HLK #T1 #HTU1 #T2 #HTU2 -elim (HR â¦ HU12 â¦ HLK â¦ HTU1) -HR -L -U1 #X #HUX #HTX -<(HS â¦ HUX â¦ HTU2) -U2 -T2 -b -f // -qed-. - -(* Basic inversion lemmas ***************************************************) - -fact drops_inv_atom1_aux: âb,f,X,Y. â¬*[b, f] X â Y â X = â â - Y = â â§ (b = â â ðâ¦fâ¦). -#b #f #X #Y * -f -X -Y -[ /3 width=1 by conj/ -| #f #I #L1 #L2 #_ #H destruct -| #f #I1 #I2 #L1 #L2 #_ #_ #H destruct -] -qed-. - -(* Basic_1: includes: drop_gen_sort *) -(* Basic_2A1: includes: drop_inv_atom1 *) -lemma drops_inv_atom1: âb,f,Y. â¬*[b, f] â â Y â Y = â â§ (b = â â ðâ¦fâ¦). -/2 width=3 by drops_inv_atom1_aux/ qed-. - -fact drops_inv_drop1_aux: âb,f,X,Y. â¬*[b, f] X â Y â âg,I,K. X = K.â{I} â f = âg â - â¬*[b, g] K â Y. -#b #f #X #Y * -f -X -Y -[ #f #Hf #g #J #K #H destruct -| #f #I #L1 #L2 #HL #g #J #K #H1 #H2 <(injective_next â¦ H2) -g destruct // -| #f #I1 #I2 #L1 #L2 #_ #_ #g #J #K #_ #H2 elim (discr_push_next â¦ H2) -] -qed-. - -(* Basic_1: includes: drop_gen_drop *) -(* Basic_2A1: includes: drop_inv_drop1_lt drop_inv_drop1 *) -lemma drops_inv_drop1: âb,f,I,K,Y. â¬*[b, âf] K.â{I} â Y â â¬*[b, f] K â Y. -/2 width=6 by drops_inv_drop1_aux/ qed-. - -fact drops_inv_skip1_aux: âb,f,X,Y. â¬*[b, f] X â Y â âg,I1,K1. X = K1.â{I1} â f = â«¯g â - ââI2,K2. â¬*[b, g] K1 â K2 & â¬*[g] I2 â I1 & Y = K2.â{I2}. -#b #f #X #Y * -f -X -Y -[ #f #Hf #g #J1 #K1 #H destruct -| #f #I #L1 #L2 #_ #g #J1 #K1 #_ #H2 elim (discr_next_push â¦ H2) -| #f #I1 #I2 #L1 #L2 #HL #HI #g #J1 #K1 #H1 #H2 <(injective_push â¦ H2) -g destruct - /2 width=5 by ex3_2_intro/ -] -qed-. - -(* Basic_1: includes: drop_gen_skip_l *) -(* Basic_2A1: includes: drop_inv_skip1 *) -lemma drops_inv_skip1: âb,f,I1,K1,Y. â¬*[b, â«¯f] K1.â{I1} â Y â - ââI2,K2. â¬*[b, f] K1 â K2 & â¬*[f] I2 â I1 & Y = K2.â{I2}. -/2 width=5 by drops_inv_skip1_aux/ qed-. - -fact drops_inv_skip2_aux: âb,f,X,Y. â¬*[b, f] X â Y â âg,I2,K2. Y = K2.â{I2} â f = â«¯g â - ââI1,K1. â¬*[b, g] K1 â K2 & â¬*[g] I2 â I1 & X = K1.â{I1}. -#b #f #X #Y * -f -X -Y -[ #f #Hf #g #J2 #K2 #H destruct -| #f #I #L1 #L2 #_ #g #J2 #K2 #_ #H2 elim (discr_next_push â¦ H2) -| #f #I1 #I2 #L1 #L2 #HL #HV #g #J2 #K2 #H1 #H2 <(injective_push â¦ H2) -g destruct - /2 width=5 by ex3_2_intro/ -] -qed-. - -(* Basic_1: includes: drop_gen_skip_r *) -(* Basic_2A1: includes: drop_inv_skip2 *) -lemma drops_inv_skip2: âb,f,I2,X,K2. â¬*[b, â«¯f] X â K2.â{I2} â - ââI1,K1. â¬*[b, f] K1 â K2 & â¬*[f] I2 â I1 & X = K1.â{I1}. -/2 width=5 by drops_inv_skip2_aux/ qed-. - -(* Basic forward lemmas *****************************************************) - -fact drops_fwd_drop2_aux: âb,f2,X,Y. â¬*[b, f2] X â Y â âI,K. Y = K.â{I} â - ââf1,f. ðâ¦f1â¦ & f2 â âf1 â f & â¬*[b, f] X â K. -#b #f2 #X #Y #H elim H -f2 -X -Y -[ #f2 #Hf2 #J #K #H destruct -| #f2 #I #L1 #L2 #_ #IHL #J #K #H elim (IHL â¦ H) -IHL - /3 width=7 by after_next, ex3_2_intro, drops_drop/ -| #f2 #I1 #I2 #L1 #L2 #HL #_ #_ #J #K #H destruct - lapply (after_isid_dx ðð â¦ f2) /3 width=9 by after_push, ex3_2_intro, drops_drop/ -] -qed-. - -lemma drops_fwd_drop2: âb,f2,I,X,K. â¬*[b, f2] X â K.â{I} â - ââf1,f. ðâ¦f1â¦ & f2 â âf1 â f & â¬*[b, f] X â K. -/2 width=4 by drops_fwd_drop2_aux/ qed-. - -(* Properties with test for identity ****************************************) - -(* Basic_2A1: includes: drop_refl *) -lemma drops_refl: âb,L,f. ðâ¦fâ¦ â â¬*[b, f] L â L. -#b #L elim L -L /2 width=1 by drops_atom/ -#L #I #IHL #f #Hf elim (isid_inv_gen â¦ Hf) -Hf -/3 width=1 by drops_skip, liftsb_refl/ -qed. - -(* Forward lemmas test for identity *****************************************) - -(* Basic_1: includes: drop_gen_refl *) -(* Basic_2A1: includes: drop_inv_O2 *) -lemma drops_fwd_isid: âb,f,L1,L2. â¬*[b, f] L1 â L2 â ðâ¦fâ¦ â L1 = L2. -#b #f #L1 #L2 #H elim H -f -L1 -L2 // -[ #f #I #L1 #L2 #_ #_ #H elim (isid_inv_next â¦ H) // -| /5 width=5 by isid_inv_push, liftsb_fwd_isid, eq_f2, sym_eq/ -] -qed-. - -lemma drops_after_fwd_drop2: âb,f2,I,X,K. â¬*[b, f2] X â K.â{I} â - âf1,f. ðâ¦f1â¦ â f2 â âf1 â f â â¬*[b, f] X â K. -#b #f2 #I #X #K #H #f1 #f #Hf1 #Hf elim (drops_fwd_drop2 â¦ H) -H -#g1 #g #Hg1 #Hg #HK lapply (after_mono_eq â¦ Hg â¦ Hf ??) -Hg -Hf -/3 width=5 by drops_eq_repl_back, isid_inv_eq_repl, eq_next/ -qed-. - -(* Forward lemmas with test for finite colength *****************************) - -lemma drops_fwd_isfin: âf,L1,L2. â¬*[â, f] L1 â L2 â ðâ¦fâ¦. -#f #L1 #L2 #H elim H -f -L1 -L2 -/3 width=1 by isfin_next, isfin_push, isfin_isid/ -qed-. - -(* Properties with test for uniformity **************************************) - -lemma drops_isuni_ex: âf. ðâ¦fâ¦ â âL. âK. â¬*[â», f] L â K. -#f #H elim H -f /4 width=2 by drops_refl, drops_TF, ex_intro/ -#f #_ #g #H #IH destruct * /2 width=2 by ex_intro/ -#L #I elim (IH L) -IH /3 width=2 by drops_drop, ex_intro/ -qed-. - -(* Inversion lemmas with test for uniformity ********************************) - -lemma drops_inv_isuni: âf,L1,L2. â¬*[â, f] L1 â L2 â ðâ¦fâ¦ â - (ðâ¦fâ¦ â§ L1 = L2) â¨ - ââg,I,K. â¬*[â, g] K â L2 & ðâ¦gâ¦ & L1 = K.â{I} & f = âg. -#f #L1 #L2 * -f -L1 -L2 -[ /4 width=1 by or_introl, conj/ -| /4 width=7 by isuni_inv_next, ex4_3_intro, or_intror/ -| /7 width=6 by drops_fwd_isid, liftsb_fwd_isid, isuni_inv_push, isid_push, or_introl, conj, eq_f2, sym_eq/ -] -qed-. - -(* Basic_2A1: was: drop_inv_O1_pair1 *) -lemma drops_inv_bind1_isuni: âb,f,I,K,L2. ðâ¦fâ¦ â â¬*[b, f] K.â{I} â L2 â - (ðâ¦fâ¦ â§ L2 = K.â{I}) â¨ - ââg. ðâ¦gâ¦ & â¬*[b, g] K â L2 & f = âg. -#b #f #I #K #L2 #Hf #H elim (isuni_split â¦ Hf) -Hf * #g #Hg #H0 destruct -[ lapply (drops_inv_skip1 â¦ H) -H * #Z #Y #HY #HZ #H destruct - <(drops_fwd_isid â¦ HY Hg) -Y >(liftsb_fwd_isid â¦ HZ Hg) -Z - /4 width=3 by isid_push, or_introl, conj/ -| lapply (drops_inv_drop1 â¦ H) -H /3 width=4 by ex3_intro, or_intror/ -] -qed-. - -(* Basic_2A1: was: drop_inv_O1_pair2 *) -lemma drops_inv_bind2_isuni: âb,f,I,K,L1. ðâ¦fâ¦ â â¬*[b, f] L1 â K.â{I} â - (ðâ¦fâ¦ â§ L1 = K.â{I}) â¨ - ââg,I1,K1. ðâ¦gâ¦ & â¬*[b, g] K1 â K.â{I} & L1 = K1.â{I1} & f = âg. -#b #f #I #K * -[ #Hf #H elim (drops_inv_atom1 â¦ H) -H #H destruct -| #L1 #I1 #Hf #H elim (drops_inv_bind1_isuni â¦ Hf H) -Hf -H * - [ #Hf #H destruct /3 width=1 by or_introl, conj/ - | /3 width=7 by ex4_3_intro, or_intror/ - ] -] -qed-. - -lemma drops_inv_bind2_isuni_next: âb,f,I,K,L1. ðâ¦fâ¦ â â¬*[b, âf] L1 â K.â{I} â - ââI1,K1. â¬*[b, f] K1 â K.â{I} & L1 = K1.â{I1}. -#b #f #I #K #L1 #Hf #H elim (drops_inv_bind2_isuni â¦ H) -H /2 width=3 by isuni_next/ -Hf * -[ #H elim (isid_inv_next â¦ H) -H // -| /2 width=4 by ex2_2_intro/ -] -qed-. - -fact drops_inv_TF_aux: âf,L1,L2. â¬*[â», f] L1 â L2 â ðâ¦fâ¦ â - âI,K. L2 = K.â{I} â â¬*[â, f] L1 â K.â{I}. -#f #L1 #L2 #H elim H -f -L1 -L2 -[ #f #_ #_ #J #K #H destruct -| #f #I #L1 #L2 #_ #IH #Hf #J #K #H destruct - /4 width=3 by drops_drop, isuni_inv_next/ -| #f #I1 #I2 #L1 #L2 #HL12 #HI21 #_ #Hf #J #K #H destruct - lapply (isuni_inv_push â¦ Hf ??) -Hf [1,2: // ] #Hf - <(drops_fwd_isid â¦ HL12) -K // <(liftsb_fwd_isid â¦ HI21) -I1 - /3 width=3 by drops_refl, isid_push/ -] -qed-. - -(* Basic_2A1: includes: drop_inv_FT *) -lemma drops_inv_TF: âf,I,L,K. â¬*[â», f] L â K.â{I} â ðâ¦fâ¦ â â¬*[â, f] L â K.â{I}. -/2 width=3 by drops_inv_TF_aux/ qed-. - -(* Basic_2A1: includes: drop_inv_gen *) -lemma drops_inv_gen: âb,f,I,L,K. â¬*[b, f] L â K.â{I} â ðâ¦fâ¦ â â¬*[â, f] L â K.â{I}. -* /2 width=1 by drops_inv_TF/ -qed-. - -(* Basic_2A1: includes: drop_inv_T *) -lemma drops_inv_F: âb,f,I,L,K. â¬*[â», f] L â K.â{I} â ðâ¦fâ¦ â â¬*[b, f] L â K.â{I}. -* /2 width=1 by drops_inv_TF/ -qed-. - -(* Forward lemmas with test for uniformity **********************************) - -(* Basic_1: was: drop_S *) -(* Basic_2A1: was: drop_fwd_drop2 *) -lemma drops_isuni_fwd_drop2: âb,f,I,X,K. ðâ¦fâ¦ â â¬*[b, f] X â K.â{I} â â¬*[b, âf] X â K. -/3 width=7 by drops_after_fwd_drop2, after_isid_isuni/ qed-. - -(* Inversion lemmas with uniform relocations ********************************) - -lemma drops_inv_atom2: âb,L,f. â¬*[b, f] L â â â - âân,f1. â¬*[b, ðâ´nâµ] L â â & ðâ´nâµ â f1 â f. -#b #L elim L -L -[ /3 width=4 by drops_atom, after_isid_sn, ex2_2_intro/ -| #L #I #IH #f #H elim (pn_split f) * #g #H0 destruct - [ elim (drops_inv_skip1 â¦ H) -H #J #K #_ #_ #H destruct - | lapply (drops_inv_drop1 â¦ H) -H #HL - elim (IH â¦ HL) -IH -HL /3 width=8 by drops_drop, after_next, ex2_2_intro/ - ] -] -qed-. - -lemma drops_inv_succ: âL1,L2,i. â¬*[âi] L1 â L2 â - ââI,K. â¬*[i] K â L2 & L1 = K.â{I}. -#L1 #L2 #i #H elim (drops_inv_isuni â¦ H) -H // * -[ #H elim (isid_inv_next â¦ H) -H // -| /2 width=4 by ex2_2_intro/ -] -qed-. - -(* Properties with uniform relocations **************************************) - -lemma drops_F_uni: âL,i. â¬*[â», ðâ´iâµ] L â â â¨ ââI,K. â¬*[i] L â K.â{I}. -#L elim L -L /2 width=1 by or_introl/ -#L #I #IH * /4 width=3 by drops_refl, ex1_2_intro, or_intror/ -#i elim (IH i) -IH /3 width=1 by drops_drop, or_introl/ -* /4 width=3 by drops_drop, ex1_2_intro, or_intror/ -qed-. - -(* Basic_2A1: includes: drop_split *) -lemma drops_split_trans: âb,f,L1,L2. â¬*[b, f] L1 â L2 â âf1,f2. f1 â f2 â f â ðâ¦f1â¦ â - ââL. â¬*[b, f1] L1 â L & â¬*[b, f2] L â L2. -#b #f #L1 #L2 #H elim H -f -L1 -L2 -[ #f #H0f #f1 #f2 #Hf #Hf1 @(ex2_intro â¦ (â)) @drops_atom - #H lapply (H0f H) -b - #H elim (after_inv_isid3 â¦ Hf H) -f // -| #f #I #L1 #L2 #HL12 #IHL12 #f1 #f2 #Hf #Hf1 elim (after_inv_xxn â¦ Hf) -Hf [1,3: * |*: // ] - [ #g1 #g2 #Hf #H1 #H2 destruct - lapply (isuni_inv_push â¦ Hf1 ??) -Hf1 [1,2: // ] #Hg1 - elim (IHL12 â¦ Hf) -f - /4 width=5 by drops_drop, drops_skip, liftsb_refl, isuni_isid, ex2_intro/ - | #g1 #Hf #H destruct elim (IHL12 â¦ Hf) -f - /3 width=5 by ex2_intro, drops_drop, isuni_inv_next/ - ] -| #f #I1 #I2 #L1 #L2 #_ #HI21 #IHL12 #f1 #f2 #Hf #Hf1 elim (after_inv_xxp â¦ Hf) -Hf [2,3: // ] - #g1 #g2 #Hf #H1 #H2 destruct elim (liftsb_split_trans â¦ HI21 â¦ Hf) -HI21 - elim (IHL12 â¦ Hf) -f /3 width=5 by ex2_intro, drops_skip, isuni_fwd_push/ -] -qed-. - -lemma drops_split_div: âb,f1,L1,L. â¬*[b, f1] L1 â L â âf2,f. f1 â f2 â f â ðâ¦f2â¦ â - ââL2. â¬*[â», f2] L â L2 & â¬*[â», f] L1 â L2. -#b #f1 #L1 #L #H elim H -f1 -L1 -L -[ #f1 #Hf1 #f2 #f #Hf #Hf2 @(ex2_intro â¦ (â)) @drops_atom #H destruct -| #f1 #I #L1 #L #HL1 #IH #f2 #f #Hf #Hf2 elim (after_inv_nxx â¦ Hf) -Hf [2,3: // ] - #g #Hg #H destruct elim (IH â¦ Hg) -IH -Hg /3 width=5 by drops_drop, ex2_intro/ -| #f1 #I1 #I #L1 #L #HL1 #HI1 #IH #f2 #f #Hf #Hf2 - elim (after_inv_pxx â¦ Hf) -Hf [1,3: * |*: // ] - #g2 #g #Hg #H2 #H0 destruct - [ lapply (isuni_inv_push â¦ Hf2 ??) -Hf2 [1,2: // ] #Hg2 -IH - lapply (after_isid_inv_dx â¦ Hg â¦ Hg2) -Hg #Hg - /5 width=7 by drops_eq_repl_back, drops_F, drops_refl, drops_skip, liftsb_eq_repl_back, isid_push, ex2_intro/ - | lapply (isuni_inv_next â¦ Hf2 ??) -Hf2 [1,2: // ] #Hg2 -HL1 -HI1 - elim (IH â¦ Hg) -f1 /3 width=3 by drops_drop, ex2_intro/ - ] -] -qed-. - -(* Properties with application **********************************************) - -lemma drops_tls_at: âf,i1,i2. @â¦i1,fâ¦ â i2 â - âb,L1,L2. â¬*[b,â«±*[i2]f] L1 â L2 â - â¬*[b,â«¯â«±*[âi2]f] L1 â L2. -/3 width=3 by drops_eq_repl_fwd, at_inv_tls/ qed-. - -lemma drops_split_trans_bind2: âb,f,I,L,K0. â¬*[b, f] L â K0.â{I} â âi. @â¦O, fâ¦ â i â - ââJ,K. â¬*[i]L â K.â{J} & â¬*[b, â«±*[âi]f] K â K0 & â¬*[â«±*[âi]f] I â J. -#b #f #I #L #K0 #H #i #Hf -elim (drops_split_trans â¦ H) -H [ |5: @(after_uni_dx â¦ Hf) |2,3: skip ] /2 width=1 by after_isid_dx/ #Y #HLY #H -lapply (drops_tls_at â¦ Hf â¦ H) -H #H -elim (drops_inv_skip2 â¦ H) -H #J #K #HK0 #HIJ #H destruct -/3 width=5 by drops_inv_gen, ex3_2_intro/ -qed-. - -(* Properties with context-sensitive equivalence for terms ******************) - -lemma ceq_lift_sn: d_liftable2_sn â¦ liftsb ceq_ext. -#K #I1 #I2 #H <(ceq_ext_inv_eq â¦ H) -I2 -/2 width=3 by ex2_intro/ qed-. - -lemma ceq_inv_lift_sn: d_deliftable2_sn â¦ liftsb ceq_ext. -#L #J1 #J2 #H <(ceq_ext_inv_eq â¦ H) -J2 -/2 width=3 by ex2_intro/ qed-. - -(* Note: d_deliftable2_sn cfull does not hold *) -lemma cfull_lift_sn: d_liftable2_sn â¦ liftsb cfull. -#K #I1 #I2 #_ #b #f #L #_ #J1 #_ -K -I1 -b -elim (liftsb_total I2 f) /2 width=3 by ex2_intro/ -qed-. - -(* Basic_2A1: removed theorems 12: - drops_inv_nil drops_inv_cons d1_liftable_liftables - drop_refl_atom_O2 drop_inv_pair1 - drop_inv_Y1 drop_Y1 drop_O_Y drop_fwd_Y2 - drop_fwd_length_minus2 drop_fwd_length_minus4 -*) -(* Basic_1: removed theorems 53: - drop1_gen_pnil drop1_gen_pcons drop1_getl_trans - drop_ctail drop_skip_flat - cimp_flat_sx cimp_flat_dx cimp_bind cimp_getl_conf - drop_clear drop_clear_O drop_clear_S - clear_gen_sort clear_gen_bind clear_gen_flat clear_gen_flat_r - clear_gen_all clear_clear clear_mono clear_trans clear_ctail clear_cle - getl_ctail_clen getl_gen_tail clear_getl_trans getl_clear_trans - getl_clear_bind getl_clear_conf getl_dec getl_drop getl_drop_conf_lt - getl_drop_conf_ge getl_conf_ge_drop getl_drop_conf_rev - drop_getl_trans_lt drop_getl_trans_le drop_getl_trans_ge - getl_drop_trans getl_flt getl_gen_all getl_gen_sort getl_gen_O - getl_gen_S getl_gen_2 getl_gen_flat getl_gen_bind getl_conf_le - getl_trans getl_refl getl_head getl_flat getl_ctail getl_mono -*) diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_cext2.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_cext2.ma deleted file mode 100644 index f2a857d64..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_cext2.ma +++ /dev/null @@ -1,29 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/relocation/drops.ma". - -(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) - -(* Properties with the extension to binders of a context-sensitive relation *) - -lemma cext2_d_liftable2_sn: âR. d_liftable2_sn â¦ lifts R â - d_liftable2_sn â¦ liftsb (cext2 R). -#R #HR #K #I1 #I2 * -I1 -I2 #I [| #T1 #T2 #HT12 ] -#b #f #L #HLK #Z1 #H -[ lapply (liftsb_inv_unit_sn â¦ H) -| lapply (liftsb_inv_pair_sn â¦ H) * #U1 #HTU1 -] -H #H destruct /3 width=3 by ext2_unit, ex2_intro/ -elim (HR â¦ HT12 â¦ HLK â¦ HTU1) -HR -b -K -T1 /3 width=3 by ext2_pair, ex2_intro/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_ctc.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_ctc.ma deleted file mode 100644 index de5d1ce48..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_ctc.ma +++ /dev/null @@ -1,72 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "ground_2/lib/star.ma". -include "basic_2/relocation/seq_seq.ma". - -(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) - -(* Properties with contextual transitive closure ****************************) - -(* Basic_2A1: was: d_liftable_LTC *) -lemma d2_liftable_sn_CTC: âC,S,R. d_liftable2_sn C S R â d_liftable2_sn C S (CTC â¦ R). -#C #S #R #HR #K #T1 #T2 #H elim H -T2 -[ #T2 #HT12 #b #f #L #HLK #U1 #HTU1 - elim (HR â¦ HT12 â¦ HLK â¦ HTU1) /3 width=3 by inj, ex2_intro/ -| #T #T2 #_ #HT2 #IHT1 #b #f #L #HLK #U1 #HTU1 - elim (IHT1 â¦ HLK â¦ HTU1) -T1 #U #HTU #HU1 - elim (HR â¦ HT2 â¦ HLK â¦ HTU) -HR -K -T /3 width=5 by step, ex2_intro/ -] -qed-. - -(* Basic_2A1: was: d_deliftable_sn_LTC *) -lemma d2_deliftable_sn_CTC: âC,S,R. d_deliftable2_sn C S R â d_deliftable2_sn C S (CTC â¦ R). -#C #S #R #HR #L #U1 #U2 #H elim H -U2 -[ #U2 #HU12 #b #f #K #HLK #T1 #HTU1 - elim (HR â¦ HU12 â¦ HLK â¦ HTU1) -HR -L -U1 /3 width=3 by inj, ex2_intro/ -| #U #U2 #_ #HU2 #IHU1 #b #f #K #HLK #T1 #HTU1 - elim (IHU1 â¦ HLK â¦ HTU1) -IHU1 -U1 #T #HTU #HT1 - elim (HR â¦ HU2 â¦ HLK â¦ HTU) -HR -L -U /3 width=5 by step, ex2_intro/ -] -qed-. - -lemma co_dropable_sn_CTC: âR. co_dropable_sn R â co_dropable_sn (CTC â¦ R). -#R #HR #b #f #L1 #K1 #HLK1 #Hf #f2 #L2 #H elim H -L2 -[ #L2 #HL12 #f1 #H elim (HR â¦ HLK1 â¦ Hf â¦ HL12 â¦ H) -HR -Hf -f2 -L1 - /3 width=3 by inj, ex2_intro/ -| #L #L2 #_ #HL2 #IH #f1 #H elim (IH â¦ H) -IH - #K #HK1 #HLK elim (HR â¦ HLK â¦ HL2 â¦ H) -HR -f2 -L - /3 width=3 by step, ex2_intro/ -] -qed-. - -lemma co_dropable_dx_CTC: âR. co_dropable_dx R â co_dropable_dx (CTC â¦ R). -#R #HR #f2 #L1 #L2 #H elim H -L2 -[ #L2 #HL12 #b #f #K2 #HLK2 #Hf #f1 #Hf2 elim (HR â¦ HL12 â¦ HLK2 â¦ Hf â¦ Hf2) -HR -Hf -f2 -L2 - /3 width=3 by inj, ex2_intro/ -| #L #L2 #_ #HL2 #IHL1 #b #f #K2 #HLK2 #Hf #f1 #Hf2 elim (HR â¦ HL2 â¦ HLK2 â¦ Hf â¦ Hf2) -HR -L2 - #K #HLK #HK2 elim (IHL1 â¦ HLK â¦ Hf â¦ Hf2) -Hf -f2 -L - /3 width=5 by step, ex2_intro/ -] -qed-. - -lemma co_dedropable_sn_CTC: âR. co_dedropable_sn R â co_dedropable_sn (CTC â¦ R). -#R #HR #b #f #L1 #K1 #HLK1 #f1 #K2 #H elim H -K2 -[ #K2 #HK12 #f2 #Hf elim (HR â¦ HLK1 â¦ HK12 â¦ Hf) -HR -f1 -K1 - /3 width=4 by inj, ex3_intro/ -| #K #K2 #_ #HK2 #IH #f2 #Hf elim (IH â¦ Hf) -IH -K1 - #L #H1L1 #HLK #H2L1 elim (HR â¦ HLK â¦ HK2 â¦ Hf) -HR -f1 -K - /3 width=6 by seq_trans, step, ex3_intro/ -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_drops.ma deleted file mode 100644 index 8549cf02a..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_drops.ma +++ /dev/null @@ -1,133 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/relocation/lifts_lifts_bind.ma". -include "basic_2/relocation/drops_weight.ma". - -(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) - -(* Main properties **********************************************************) - -(* Basic_2A1: includes: drop_conf_ge drop_conf_be drop_conf_le *) -theorem drops_conf: âb1,f1,L1,L. â¬*[b1, f1] L1 â L â - âb2,f,L2. â¬*[b2, f] L1 â L2 â - âf2. f1 â f2 â f â â¬*[b2, f2] L â L2. -#b1 #f1 #L1 #L #H elim H -f1 -L1 -L -[ #f1 #_ #b2 #f #L2 #HL2 #f2 #Hf12 elim (drops_inv_atom1 â¦ HL2) -b1 -HL2 - #H #Hf destruct @drops_atom - #H elim (after_inv_isid3 â¦ Hf12) -Hf12 /2 width=1 by/ -| #f1 #I1 #K1 #K #_ #IH #b2 #f #L2 #HL2 #f2 #Hf elim (after_inv_nxx â¦ Hf) -Hf [2,3: // ] - #g #Hg #H destruct /3 width=3 by drops_inv_drop1/ -| #f1 #I1 #I #K1 #K #_ #HI1 #IH #b2 #f #L2 #HL2 #f2 #Hf elim (after_inv_pxx â¦ Hf) -Hf [1,3: * |*:// ] - #g2 #g #Hf #H1 #H2 destruct - [ elim (drops_inv_skip1 â¦ HL2) -HL2 /3 width=6 by drops_skip, liftsb_div3/ - | /4 width=3 by drops_inv_drop1, drops_drop/ - ] -] -qed-. - -(* Basic_1: was: drop1_trans *) -(* Basic_2A1: includes: drop_trans_ge drop_trans_le drop_trans_ge_comm - drops_drop_trans -*) -theorem drops_trans: âb1,f1,L1,L. â¬*[b1, f1] L1 â L â - âb2,f2,L2. â¬*[b2, f2] L â L2 â - âf. f1 â f2 â f â â¬*[b1â§b2, f] L1 â L2. -#b1 #f1 #L1 #L #H elim H -f1 -L1 -L -[ #f1 #Hf1 #b2 #f2 #L2 #HL2 #f #Hf elim (drops_inv_atom1 â¦ HL2) -HL2 - #H #Hf2 destruct @drops_atom #H elim (andb_inv_true_dx â¦ H) -H - #H1 #H2 lapply (after_isid_inv_sn â¦ Hf ?) -Hf - /3 width=3 by isid_eq_repl_back/ -| #f1 #I1 #K1 #K #_ #IH #b2 #f2 #L2 #HL2 #f #Hf elim (after_inv_nxx â¦ Hf) -Hf - /3 width=3 by drops_drop/ -| #f1 #I1 #I #K1 #K #_ #HI1 #IH #b2 #f2 #L2 #HL2 #f #Hf elim (after_inv_pxx â¦ Hf) -Hf [1,3: * |*: // ] - #g2 #g #Hg #H1 #H2 destruct - [ elim (drops_inv_skip1 â¦ HL2) -HL2 /3 width=6 by drops_skip, liftsb_trans/ - | /4 width=3 by drops_inv_drop1, drops_drop/ - ] -] -qed-. - -theorem drops_conf_div: âf1,L,K. â¬*[â,f1] L â K â âf2. â¬*[â,f2] L â K â - ðâ¦f1â¦ â ðâ¦f2â¦ â f1 â¡ f2. -#f1 #L #K #H elim H -f1 -L -K -[ #f1 #Hf1 #f2 #Hf2 elim (drops_inv_atom1 â¦ Hf2) -Hf2 - /3 width=1 by isid_inv_eq_repl/ -| #f1 #I #L #K #Hf1 #IH #f2 elim (pn_split f2) * - #g2 #H2 #Hf2 #HU1 #HU2 destruct - [ elim (drops_inv_skip1 â¦ Hf2) -IH -HU1 -Hf2 #Y2 #X2 #HY2 #_ #H destruct - lapply (drops_fwd_isid â¦ HY2 ?) -HY2 /2 width=3 by isuni_inv_push/ -HU2 - #H destruct elim (drops_inv_x_bind_xy â¦ Hf1) - | /4 width=5 by drops_inv_drop1, isuni_inv_next, eq_next/ - ] -| #f1 #I1 #I2 #L #K #Hf1 #_ #IH #f2 elim (pn_split f2) * - #g2 #H2 #Hf2 #HU1 #HU2 destruct - [ elim (drops_inv_skip1 â¦ Hf2) -Hf2 #Y2 #X2 #HY2 #_ #H destruct -Hf1 - /4 width=5 by isuni_fwd_push, eq_push/ - | lapply (drops_inv_drop1 â¦ Hf2) -Hf2 -IH -HU2 #Hg2 - lapply (drops_fwd_isid â¦ Hf1 ?) -Hf1 /2 width=3 by isuni_inv_push/ -HU1 - #H destruct elim (drops_inv_x_bind_xy â¦ Hg2) - ] -] -qed-. - -(* Advanced properties ******************************************************) - -(* Basic_2A1: includes: drop_mono *) -lemma drops_mono: âb1,f,L,L1. â¬*[b1, f] L â L1 â - âb2,L2. â¬*[b2, f] L â L2 â L1 = L2. -#b1 #f #L #L1 lapply (after_isid_dx ðð â¦ f) -/3 width=8 by drops_conf, drops_fwd_isid/ -qed-. - -(* Basic_2A1: includes: drop_conf_lt *) -lemma drops_conf_skip1: âb2,f,L,L2. â¬*[b2, f] L â L2 â - âb1,f1,I1,K1. â¬*[b1, f1] L â K1.â{I1} â - âf2. f1 â â«¯f2 â f â - ââI2,K2. L2 = K2.â{I2} & - â¬*[b2, f2] K1 â K2 & â¬*[f2] I2 â I1. -#b2 #f #L #L2 #H2 #b1 #f1 #I1 #K1 #H1 #f2 #Hf lapply (drops_conf â¦ H1 â¦ H2 â¦ Hf) -L -Hf -#H elim (drops_inv_skip1 â¦ H) -H /2 width=5 by ex3_2_intro/ -qed-. - -(* Basic_2A1: includes: drop_trans_lt *) -lemma drops_trans_skip2: âb1,f1,L1,L. â¬*[b1, f1] L1 â L â - âb2,f2,I2,K2. â¬*[b2, f2] L â K2.â{I2} â - âf. f1 â f2 â â«¯f â - ââI1,K1. L1 = K1.â{I1} & - â¬*[b1â§b2, f] K1 â K2 & â¬*[f] I2 â I1. -#b1 #f1 #L1 #L #H1 #b2 #f2 #I2 #K2 #H2 #f #Hf -lapply (drops_trans â¦ H1 â¦ H2 â¦ Hf) -L -Hf -#H elim (drops_inv_skip2 â¦ H) -H /2 width=5 by ex3_2_intro/ -qed-. - -(* Basic_2A1: includes: drops_conf_div *) -lemma drops_conf_div_bind: âf1,f2,I1,I2,L,K. - â¬*[â, f1] L â K.â{I1} â â¬*[â, f2] L â K.â{I2} â - ðâ¦f1â¦ â ðâ¦f2â¦ â f1 â¡ f2 â§ I1 = I2. -#f1 #f2 #I1 #I2 #L #K #Hf1 #Hf2 #HU1 #HU2 -lapply (drops_isuni_fwd_drop2 â¦ Hf1) // #H1 -lapply (drops_isuni_fwd_drop2 â¦ Hf2) // #H2 -lapply (drops_conf_div â¦ H1 â¦ H2 ??) /2 width=3 by isuni_next/ -H1 -H2 -HU1 -HU2 #H -lapply (eq_inv_nn â¦ H ????) -H [5: |*: // ] #H12 -lapply (drops_eq_repl_back â¦ Hf1 â¦ H12) -Hf1 #H0 -lapply (drops_mono â¦ H0 â¦ Hf2) -L #H -destruct /2 width=1 by conj/ -qed-. - -lemma drops_inv_uni: âL,i. â¬*[â», ðâ´iâµ] L â â â âI,K. â¬*[i] L â K.â{I} â â¥. -#L #i #H1 #I #K #H2 -lapply (drops_F â¦ H2) -H2 #H2 -lapply (drops_mono â¦ H2 â¦ H1) -L -i #H destruct -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_length.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_length.ma deleted file mode 100644 index 7543a5559..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_length.ma +++ /dev/null @@ -1,125 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/syntax/lenv_length.ma". -include "basic_2/relocation/drops.ma". - -(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) - -(* Forward lemmas with length for local environments ************************) - -(* Basic_2A1: includes: drop_fwd_length_le4 *) -lemma drops_fwd_length_le4: âb,f,L1,L2. â¬*[b, f] L1 â L2 â |L2| â¤ |L1|. -#b #f #L1 #L2 #H elim H -f -L1 -L2 /2 width=1 by le_S, le_S_S/ -qed-. - -(* Basic_2A1: includes: drop_fwd_length_eq1 *) -theorem drops_fwd_length_eq1: âb1,b2,f,L1,K1. â¬*[b1, f] L1 â K1 â - âL2,K2. â¬*[b2, f] L2 â K2 â - |L1| = |L2| â |K1| = |K2|. -#b1 #b2 #f #L1 #K1 #HLK1 elim HLK1 -f -L1 -K1 -[ #f #_ #L2 #K2 #HLK2 #H lapply (length_inv_zero_sn â¦ H) -H - #H destruct elim (drops_inv_atom1 â¦ HLK2) -HLK2 // -| #f #I1 #L1 #K1 #_ #IH #X2 #K2 #HX #H elim (length_inv_succ_sn â¦ H) -H - #I2 #L2 #H12 #H destruct lapply (drops_inv_drop1 â¦ HX) -HX - #HLK2 @(IH â¦ HLK2 H12) (**) (* auto fails *) -| #f #I1 #I2 #L1 #K1 #_ #_ #IH #X2 #Y2 #HX #H elim (length_inv_succ_sn â¦ H) -H - #I2 #L2 #H12 #H destruct elim (drops_inv_skip1 â¦ HX) -HX - #I2 #K2 #HLK2 #_ #H destruct - lapply (IH â¦ HLK2 H12) -f >length_bind >length_bind /2 width=1 by/ (**) (* full auto fails *) -] -qed-. - -(* forward lemmas with finite colength assignment ***************************) - -lemma drops_fwd_fcla: âf,L1,L2. â¬*[â, f] L1 â L2 â - âân. ðâ¦fâ¦ â n & |L1| = |L2| + n. -#f #L1 #L2 #H elim H -f -L1 -L2 -[ /4 width=3 by fcla_isid, ex2_intro/ -| #f #I #L1 #L2 #_ * >length_bind /3 width=3 by fcla_next, ex2_intro, eq_f/ -| #f #I1 #I2 #L1 #L2 #_ #_ * >length_bind >length_bind /3 width=3 by fcla_push, ex2_intro/ -] -qed-. - -(* Basic_2A1: includes: drop_fwd_length *) -lemma drops_fcla_fwd: âf,L1,L2,n. â¬*[â, f] L1 â L2 â ðâ¦fâ¦ â n â - |L1| = |L2| + n. -#f #l1 #l2 #n #Hf #Hn elim (drops_fwd_fcla â¦ Hf) -Hf -#k #Hm #H <(fcla_mono â¦ Hm â¦ Hn) -f // -qed-. - -lemma drops_fwd_fcla_le2: âf,L1,L2. â¬*[â, f] L1 â L2 â - âân. ðâ¦fâ¦ â n & n â¤ |L1|. -#f #L1 #L2 #H elim (drops_fwd_fcla â¦ H) -H /2 width=3 by ex2_intro/ -qed-. - -(* Basic_2A1: includes: drop_fwd_length_le2 *) -lemma drops_fcla_fwd_le2: âf,L1,L2,n. â¬*[â, f] L1 â L2 â ðâ¦fâ¦ â n â - n â¤ |L1|. -#f #L1 #L2 #n #H #Hn elim (drops_fwd_fcla_le2 â¦ H) -H -#k #Hm #H <(fcla_mono â¦ Hm â¦ Hn) -f // -qed-. - -lemma drops_fwd_fcla_lt2: âf,L1,I2,K2. â¬*[â, f] L1 â K2.â{I2} â - âân. ðâ¦fâ¦ â n & n < |L1|. -#f #L1 #I2 #K2 #H elim (drops_fwd_fcla â¦ H) -H -#n #Hf #H >H -L1 /3 width=3 by le_S_S, ex2_intro/ -qed-. - -(* Basic_2A1: includes: drop_fwd_length_lt2 *) -lemma drops_fcla_fwd_lt2: âf,L1,I2,K2,n. - â¬*[â, f] L1 â K2.â{I2} â ðâ¦fâ¦ â n â - n < |L1|. -#f #L1 #I2 #K2 #n #H #Hn elim (drops_fwd_fcla_lt2 â¦ H) -H -#k #Hm #H <(fcla_mono â¦ Hm â¦ Hn) -f // -qed-. - -(* Basic_2A1: includes: drop_fwd_length_lt4 *) -lemma drops_fcla_fwd_lt4: âf,L1,L2,n. â¬*[â, f] L1 â L2 â ðâ¦fâ¦ â n â 0 < n â - |L2| < |L1|. -#f #L1 #L2 #n #H #Hf #Hn lapply (drops_fcla_fwd â¦ H Hf) -f -/2 width=1 by lt_minus_to_plus_r/ qed-. - -(* Basic_2A1: includes: drop_inv_length_eq *) -lemma drops_inv_length_eq: âf,L1,L2. â¬*[â, f] L1 â L2 â |L1| = |L2| â ðâ¦fâ¦. -#f #L1 #L2 #H #HL12 elim (drops_fwd_fcla â¦ H) -H -#n #Hn H1 -L1 -elim (drops_fwd_fcla â¦ HLK2) -HLK2 #n2 #Hn2 #H2 >H2 -L2 -<(fcla_mono â¦ Hn2 â¦ Hn1) -f // -qed-. - -theorem drops_conf_div: âf1,f2,L1,L2. â¬*[â, f1] L1 â L2 â â¬*[â, f2] L1 â L2 â - âân. ðâ¦f1â¦ â n & ðâ¦f2â¦ â n. -#f1 #f2 #L1 #L2 #H1 #H2 -elim (drops_fwd_fcla â¦ H1) -H1 #n1 #Hf1 #H1 -elim (drops_fwd_fcla â¦ H2) -H2 #n2 #Hf2 >H1 -L1 #H -lapply (injective_plus_r â¦ H) -L2 #H destruct /2 width=3 by ex2_intro/ -qed-. - -theorem drops_conf_div_fcla: âf1,f2,L1,L2,n1,n2. - â¬*[â, f1] L1 â L2 â â¬*[â, f2] L1 â L2 â ðâ¦f1â¦ â n1 â ðâ¦f2â¦ â n2 â - n1 = n2. -#f1 #f2 #L1 #L2 #n1 #n2 #Hf1 #Hf2 #Hn1 #Hn2 -lapply (drops_fcla_fwd â¦ Hf1 Hn1) -f1 #H1 -lapply (drops_fcla_fwd â¦ Hf2 Hn2) -f2 >H1 -L1 -/2 width=1 by injective_plus_r/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_lex.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_lex.ma deleted file mode 100644 index 793ed1810..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_lex.ma +++ /dev/null @@ -1,83 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/relocation/lex.ma". -include "basic_2/relocation/drops_cext2.ma". -include "basic_2/relocation/drops_sex.ma". - -(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) - -definition dedropable_sn: predicate â¦ â - Î»R. âb,f,L1,K1. â¬*[b, f] L1 â K1 â âK2. K1 âª¤[R] K2 â - ââL2. L1 âª¤[R] L2 & â¬*[b, f] L2 â K2 & L1 â¡[f] L2. - -definition dropable_sn: predicate â¦ â - Î»R. âb,f,L1,K1. â¬*[b, f] L1 â K1 â ðâ¦fâ¦ â âL2. L1 âª¤[R] L2 â - ââK2. K1 âª¤[R] K2 & â¬*[b, f] L2 â K2. - -definition dropable_dx: predicate â¦ â - Î»R. âL1,L2. L1 âª¤[R] L2 â âb,f,K2. â¬*[b, f] L2 â K2 â ðâ¦fâ¦ â - ââK1. â¬*[b, f] L1 â K1 & K1 âª¤[R] K2. - -(* Properties with generic extension ****************************************) - -(* Basic_2A1: was: lpx_sn_liftable_dedropable *) -lemma lex_liftable_dedropable_sn (R): c_reflexive â¦ R â - d_liftable2_sn â¦ lifts R â dedropable_sn R. -#R #H1R #H2R #b #f #L1 #K1 #HLK1 #K2 * #f1 #Hf1 #HK12 -elim (sex_liftable_co_dedropable_sn â¦ HLK1 â¦ HK12) -K1 -/3 width=6 by cext2_d_liftable2_sn, cfull_lift_sn, ext2_refl, coafter_isid_dx, ex3_intro, ex2_intro/ -qed-. - -(* Inversion lemmas with generic extension **********************************) - -(* Basic_2A1: was: lpx_sn_deliftable_dropable *) -lemma lex_dropable_sn (R): dropable_sn R. -#R #b #f #L1 #K1 #HLK1 #H1f #L2 * #f2 #Hf2 #HL12 -elim (sex_co_dropable_sn â¦ HLK1 â¦ HL12) -L1 -/3 width=3 by coafter_isid_dx, ex2_intro/ -qed-. - -(* Basic_2A1: was: lpx_sn_dropable *) -lemma lex_dropable_dx (R): dropable_dx R. -#R #L1 #L2 * #f2 #Hf2 #HL12 #b #f #K2 #HLK2 #Hf -elim (sex_co_dropable_dx â¦ HL12 â¦ HLK2) -L2 -/3 width=5 by coafter_isid_dx, ex2_intro/ -qed-. - -(* Basic_2A1: includes: lpx_sn_drop_conf *) -lemma lex_drops_conf_pair (R): âL1,L2. L1 âª¤[R] L2 â - âb,f,I,K1,V1. â¬*[b, f] L1 â K1.â{I}V1 â ðâ¦fâ¦ â - ââK2,V2. â¬*[b, f] L2 â K2.â{I}V2 & K1 âª¤[R] K2 & R K1 V1 V2. -#R #L1 #L2 * #f2 #Hf2 #HL12 #b #f #I #K1 #V1 #HLK1 #Hf -elim (sex_drops_conf_push â¦ HL12 â¦ HLK1 Hf f2) -L1 -Hf -[ #Z2 #K2 #HLK2 #HK12 #H - elim (ext2_inv_pair_sn â¦ H) -H #V2 #HV12 #H destruct - /3 width=5 by ex3_2_intro, ex2_intro/ -| /3 width=3 by coafter_isid_dx, isid_push/ -] -qed-. - -(* Basic_2A1: includes: lpx_sn_drop_trans *) -lemma lex_drops_trans_pair (R): âL1,L2. L1 âª¤[R] L2 â - âb,f,I,K2,V2. â¬*[b, f] L2 â K2.â{I}V2 â ðâ¦fâ¦ â - ââK1,V1. â¬*[b, f] L1 â K1.â{I}V1 & K1 âª¤[R] K2 & R K1 V1 V2. -#R #L1 #L2 * #f2 #Hf2 #HL12 #b #f #I #K2 #V2 #HLK2 #Hf -elim (sex_drops_trans_push â¦ HL12 â¦ HLK2 Hf f2) -L2 -Hf -[ #Z1 #K1 #HLK1 #HK12 #H - elim (ext2_inv_pair_dx â¦ H) -H #V1 #HV12 #H destruct - /3 width=5 by ex3_2_intro, ex2_intro/ -| /3 width=3 by coafter_isid_dx, isid_push/ -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_ltc.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_ltc.ma deleted file mode 100644 index 62ae1ecc6..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_ltc.ma +++ /dev/null @@ -1,95 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "ground_2/lib/ltc.ma". -include "basic_2/relocation/seq_seq.ma". - -(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) - -(* Properties with labeled transitive closure *******************************) - -lemma d2_liftable_sn_ltc: âA,f. associative â¦ f â - âC,S,R. (ân. d_liftable2_sn C S (Î»L. R L n)) â - ân. d_liftable2_sn C S (Î»L. ltc A f â¦ (R L) n). -#A #g #Hg #C #S #R #HR #n #K #T1 #T2 #H -@(ltc_ind_dx â¦ Hg ???? H) -n -T2 -[ #n #T2 #HT12 #b #g #L #HLK #U1 #HTU1 - elim (HR â¦ HT12 â¦ HLK â¦ HTU1) -b -K -T1 -HR - /3 width=3 by ltc_rc, ex2_intro/ -| #n1 #n2 #T #T2 #_ #IHT1 #HT2 #b #f #L #HLK #U1 #HTU1 - elim (IHT1 â¦ HLK â¦ HTU1) -T1 #U #HTU #HU1 - elim (HR â¦ HT2 â¦ HLK â¦ HTU) -HR -K -T - /3 width=5 by ltc_dx, ex2_intro/ -] -qed-. - -lemma d2_deliftable_sn_ltc: âA,f. associative â¦ f â - âC,S,R. (ân. d_deliftable2_sn C S (Î»L. R L n)) â - ân. d_deliftable2_sn C S (Î»L. ltc A f â¦ (R L) n). -#A #g #Hg #C #S #R #HR #n #L #U1 #U2 #H -@(ltc_ind_dx â¦ Hg ???? H) -n -U2 -[ #n #U2 #HU12 #b #g #K #HLK #T1 #HTU1 - elim (HR â¦ HU12 â¦ HLK â¦ HTU1) -b -L -U1 -HR - /3 width=3 by ltc_rc, ex2_intro/ -| #n1 #n2 #U #U2 #_ #IHU1 #HU2 #b #f #K #HLK #T1 #HTU1 - elim (IHU1 â¦ HLK â¦ HTU1) -IHU1 -U1 #T #HTU #HT1 - elim (HR â¦ HU2 â¦ HLK â¦ HTU) -L -U -HR - /3 width=5 by ltc_dx, ex2_intro/ -] -qed-. - -lemma co_dropable_sn_ltc: âA,f. associative â¦ f â - âR. (ân. co_dropable_sn (Î»L. R L n)) â - ân. co_dropable_sn (Î»L. ltc A f â¦ (R L) n). -#A #g #Hg #R #HR #n #b #f #L1 #K1 #HLK1 #Hf #f2 #L2 #H -@(ltc_ind_dx â¦ Hg ???? H) -n -L2 -[ #n #L2 #HL12 #g1 #H - elim (HR â¦ HLK1 â¦ Hf â¦ HL12 â¦ H) -f2 -L1 -HR -Hf - /3 width=3 by ltc_rc, ex2_intro/ -| #n1 #n2 #L #L2 #_ #IH #HL2 #f1 #H - elim (IH â¦ H) -IH #K #HK1 #HLK - elim (HR â¦ HLK â¦ HL2 â¦ H) -f2 -L -HR - /3 width=3 by ltc_dx, ex2_intro/ -] -qed-. - -lemma co_dropable_dx_ltc: âA,f. associative â¦ f â - âR. (ân. co_dropable_dx (Î»L. R L n)) â - ân. co_dropable_dx (Î»L. ltc A f â¦ (R L) n). -#A #g #Hg #R #HR #n #f2 #L1 #L2 #H -@(ltc_ind_dx â¦ Hg ???? H) -n -L2 -[ #n #L2 #HL12 #b #f #K2 #HLK2 #Hf #f1 #Hf2 - elim (HR â¦ HL12 â¦ HLK2 â¦ Hf â¦ Hf2) -f2 -L2 -HR -Hf - /3 width=3 by ltc_rc, ex2_intro/ -| #n1 #n2 #L #L2 #_ #IHL1 #HL2 #b #f #K2 #HLK2 #Hf #f1 #Hf2 - elim (HR â¦ HL2 â¦ HLK2 â¦ Hf â¦ Hf2) -L2 -HR #K #HLK #HK2 - elim (IHL1 â¦ HLK â¦ Hf â¦ Hf2) -Hf -f2 -L - /3 width=5 by ltc_dx, ex2_intro/ -] -qed-. - -lemma co_dedropable_sn_ltc: âA,f. associative â¦ f â - âR. (ân. co_dedropable_sn (Î»L. R L n)) â - ân. co_dedropable_sn (Î»L. ltc A f â¦ (R L) n). -#A #g #Hg #R #HR #n #b #f #L1 #K1 #HLK1 #f1 #K2 #H -@(ltc_ind_dx â¦ Hg ???? H) -n -K2 -[ #n #K2 #HK12 #f2 #Hf - elim (HR â¦ HLK1 â¦ HK12 â¦ Hf) -f1 -K1 -HR - /3 width=4 by ltc_rc, ex3_intro/ -| #n1 #n2 #K #K2 #_ #IH #HK2 #f2 #Hf - elim (IH â¦ Hf) -K1 -IH #L #H1L1 #HLK #H2L1 - elim (HR â¦ HLK â¦ HK2 â¦ Hf) -f1 -K -HR - /3 width=6 by seq_trans, ltc_dx, ex3_intro/ -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_seq.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_seq.ma deleted file mode 100644 index a722d46e7..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_seq.ma +++ /dev/null @@ -1,61 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/relocation/drops_sex.ma". - -(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) - -(* Properties with syntactic equivalence for selected local environments ****) - -lemma seq_co_dedropable_sn: co_dedropable_sn seq. -@sex_liftable_co_dedropable_sn -/2 width=6 by cfull_lift_sn, ceq_lift_sn/ qed-. - -lemma seq_co_dropable_sn: co_dropable_sn seq. -@sex_co_dropable_sn qed-. - -lemma seq_co_dropable_dx: co_dropable_dx seq. -@sex_co_dropable_dx qed-. - -(* Basic_2A1: includes: lreq_drop_trans_be *) -lemma seq_drops_trans_next: âf2,L1,L2. L1 â¡[f2] L2 â - âb,f,I,K2. â¬*[b, f] L2 â K2.â{I} â ðâ¦fâ¦ â - âf1. f ~â âf1 â f2 â - ââK1. â¬*[b, f] L1 â K1.â{I} & K1 â¡[f1] K2. -#f2 #L1 #L2 #HL12 #b #f #I2 #K2 #HLK2 #Hf #f1 #Hf2 -elim (sex_drops_trans_next â¦ HL12 â¦ HLK2 Hf â¦ Hf2) -f2 -L2 -Hf -#I1 #K1 #HLK1 #HK12 #H <(ceq_ext_inv_eq â¦ H) -I2 -/2 width=3 by ex2_intro/ -qed-. - -(* Basic_2A1: includes: lreq_drop_conf_be *) -lemma seq_drops_conf_next: âf2,L1,L2. L1 â¡[f2] L2 â - âb,f,I,K1. â¬*[b, f] L1 â K1.â{I} â ðâ¦fâ¦ â - âf1. f ~â âf1 â f2 â - ââK2. â¬*[b, f] L2 â K2.â{I} & K1 â¡[f1] K2. -#f2 #L1 #L2 #HL12 #b #f #I1 #K1 #HLK1 #Hf #f1 #Hf2 -elim (seq_drops_trans_next â¦ (seq_sym â¦ HL12) â¦ HLK1 â¦ Hf2) // -f2 -L1 -Hf -/3 width=3 by seq_sym, ex2_intro/ -qed-. - -lemma drops_seq_trans_next: âf1,K1,K2. K1 â¡[f1] K2 â - âb,f,I,L1. â¬*[b, f] L1.â{I} â K1 â - âf2. f ~â f1 â âf2 â - ââL2. â¬*[b, f] L2.â{I} â K2 & L1 â¡[f2] L2 & L1.â{I} â¡[f] L2.â{I}. -#f1 #K1 #K2 #HK12 #b #f #I1 #L1 #HLK1 #f2 #Hf2 -elim (drops_sex_trans_next â¦ HK12 â¦ HLK1 â¦ Hf2) -f1 -K1 -/2 width=6 by cfull_lift_sn, ceq_lift_sn/ -#I2 #L2 #HLK2 #HL12 #H >(ceq_ext_inv_eq â¦ H) -I1 -/2 width=4 by ex3_intro/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_sex.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_sex.ma deleted file mode 100644 index 5f5dfdb3c..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_sex.ma +++ /dev/null @@ -1,187 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/relocation/lifts_lifts_bind.ma". -include "basic_2/relocation/drops.ma". - -(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) - -(* Properties with entrywise extension of context-sensitive relations *******) - -(**) (* changed after commit 13218 *) -lemma sex_co_dropable_sn: âRN,RP. co_dropable_sn (sex RN RP). -#RN #RP #b #f #L1 #K1 #H elim H -f -L1 -K1 -[ #f #Hf #_ #f2 #X #H #f1 #Hf2 >(sex_inv_atom1 â¦ H) -X - /4 width=3 by sex_atom, drops_atom, ex2_intro/ -| #f #I1 #L1 #K1 #_ #IH #Hf #f2 #X #H #f1 #Hf2 - elim (coafter_inv_nxx â¦ Hf2) -Hf2 [2,3: // ] #g2 #Hg2 #H2 destruct - elim (sex_inv_push1 â¦ H) -H #I2 #L2 #HL12 #HI12 #H destruct - elim (IH â¦ HL12 â¦ Hg2) -g2 - /3 width=3 by isuni_inv_next, drops_drop, ex2_intro/ -| #f #I1 #J1 #L1 #K1 #HLK #HJI1 #IH #Hf #f2 #X #H #f1 #Hf2 - lapply (isuni_inv_push â¦ Hf ??) -Hf [3: |*: // ] #Hf - lapply (drops_fwd_isid â¦ HLK â¦ Hf) -HLK #H0 destruct - lapply (liftsb_fwd_isid â¦ HJI1 â¦ Hf) -HJI1 #H0 destruct - elim (coafter_inv_pxx â¦ Hf2) -Hf2 [1,3:* |*: // ] #g1 #g2 #Hg2 #H1 #H2 destruct - [ elim (sex_inv_push1 â¦ H) | elim (sex_inv_next1 â¦ H) ] -H #I2 #L2 #HL12 #HI12 #H destruct - elim (IH â¦ HL12 â¦ Hg2) -g2 -IH /2 width=1 by isuni_isid/ #K2 #HK12 #HLK2 - lapply (drops_fwd_isid â¦ HLK2 â¦ Hf) -HLK2 #H0 destruct - /4 width=3 by drops_refl, sex_next, sex_push, isid_push, ex2_intro/ -] -qed-. - -lemma sex_liftable_co_dedropable_bi: âRN,RP. d_liftable2_sn â¦ liftsb RN â d_liftable2_sn â¦ liftsb RP â - âf2,L1,L2. L1 âª¤[cfull, RP, f2] L2 â âf1,K1,K2. K1 âª¤[RN, RP, f1] K2 â - âb,f. â¬*[b, f] L1 â K1 â â¬*[b, f] L2 â K2 â - f ~â f1 â f2 â L1 âª¤[RN, RP, f2] L2. -#RN #RP #HRN #HRP #f2 #L1 #L2 #H elim H -f2 -L1 -L2 // -#g2 #I1 #I2 #L1 #L2 #HL12 #HI12 #IH #f1 #Y1 #Y2 #HK12 #b #f #HY1 #HY2 #H -[ elim (coafter_inv_xxn â¦ H) [ |*: // ] -H #g #g1 #Hg2 #H1 #H2 destruct - elim (drops_inv_skip1 â¦ HY1) -HY1 #J1 #K1 #HLK1 #HJI1 #H destruct - elim (drops_inv_skip1 â¦ HY2) -HY2 #J2 #K2 #HLK2 #HJI2 #H destruct - elim (sex_inv_next â¦ HK12) -HK12 #HK12 #HJ12 - elim (HRN â¦ HJ12 â¦ HLK1 â¦ HJI1) -HJ12 -HJI1 #Z #Hz - >(liftsb_mono â¦ Hz â¦ HJI2) -Z /3 width=9 by sex_next/ -| elim (coafter_inv_xxp â¦ H) [1,2: |*: // ] -H * - [ #g #g1 #Hg2 #H1 #H2 destruct - elim (drops_inv_skip1 â¦ HY1) -HY1 #J1 #K1 #HLK1 #HJI1 #H destruct - elim (drops_inv_skip1 â¦ HY2) -HY2 #J2 #K2 #HLK2 #HJI2 #H destruct - elim (sex_inv_push â¦ HK12) -HK12 #HK12 #HJ12 - elim (HRP â¦ HJ12 â¦ HLK1 â¦ HJI1) -HJ12 -HJI1 #Z #Hz - >(liftsb_mono â¦ Hz â¦ HJI2) -Z /3 width=9 by sex_push/ - | #g #Hg2 #H destruct - lapply (drops_inv_drop1 â¦ HY1) -HY1 #HLK1 - lapply (drops_inv_drop1 â¦ HY2) -HY2 #HLK2 - /3 width=9 by sex_push/ - ] -] -qed-. - -lemma sex_liftable_co_dedropable_sn: âRN,RP. (âL. reflexive â¦ (RN L)) â (âL. reflexive â¦ (RP L)) â - d_liftable2_sn â¦ liftsb RN â d_liftable2_sn â¦ liftsb RP â - co_dedropable_sn (sex RN RP). -#RN #RP #H1RN #H1RP #H2RN #H2RP #b #f #L1 #K1 #H elim H -f -L1 -K1 -[ #f #Hf #X #f1 #H #f2 #Hf2 >(sex_inv_atom1 â¦ H) -X - /4 width=4 by drops_atom, sex_atom, ex3_intro/ -| #f #I1 #L1 #K1 #_ #IHLK1 #K2 #f1 #HK12 #f2 #Hf2 - elim (coafter_inv_nxx â¦ Hf2) -Hf2 [2,3: // ] #g2 #Hg2 #H destruct - elim (IHLK1 â¦ HK12 â¦ Hg2) -K1 - /3 width=6 by drops_drop, sex_next, sex_push, ex3_intro/ -| #f #I1 #J1 #L1 #K1 #HLK1 #HJI1 #IHLK1 #X #f1 #H #f2 #Hf2 - elim (coafter_inv_pxx â¦ Hf2) -Hf2 [1,3: * |*: // ] #g1 #g2 #Hg2 #H1 #H2 destruct - [ elim (sex_inv_push1 â¦ H) | elim (sex_inv_next1 â¦ H) ] -H #J2 #K2 #HK12 #HJ12 #H destruct - [ elim (H2RP â¦ HJ12 â¦ HLK1 â¦ HJI1) | elim (H2RN â¦ HJ12 â¦ HLK1 â¦ HJI1) ] -J1 - elim (IHLK1 â¦ HK12 â¦ Hg2) -K1 - /3 width=6 by drops_skip, sex_next, sex_push, ex3_intro/ -] -qed-. - -fact sex_dropable_dx_aux: âRN,RP,b,f,L2,K2. â¬*[b, f] L2 â K2 â ðâ¦fâ¦ â - âf2,L1. L1 âª¤[RN, RP, f2] L2 â âf1. f ~â f1 â f2 â - ââK1. â¬*[b, f] L1 â K1 & K1 âª¤[RN, RP, f1] K2. -#RN #RP #b #f #L2 #K2 #H elim H -f -L2 -K2 -[ #f #Hf #_ #f2 #X #H #f1 #Hf2 lapply (sex_inv_atom2 â¦ H) -H - #H destruct /4 width=3 by sex_atom, drops_atom, ex2_intro/ -| #f #I2 #L2 #K2 #_ #IH #Hf #f2 #X #HX #f1 #Hf2 - elim (coafter_inv_nxx â¦ Hf2) -Hf2 [2,3: // ] #g2 #Hg2 #H destruct - elim (sex_inv_push2 â¦ HX) -HX #I1 #L1 #HL12 #HI12 #H destruct - elim (IH â¦ HL12 â¦ Hg2) -L2 -I2 -g2 - /3 width=3 by drops_drop, isuni_inv_next, ex2_intro/ -| #f #I2 #J2 #L2 #K2 #_ #HJI2 #IH #Hf #f2 #X #HX #f1 #Hf2 - elim (coafter_inv_pxx â¦ Hf2) -Hf2 [1,3: * |*: // ] #g1 #g2 #Hg2 #H1 #H2 destruct - [ elim (sex_inv_push2 â¦ HX) | elim (sex_inv_next2 â¦ HX) ] -HX #I1 #L1 #HL12 #HI12 #H destruct - elim (IH â¦ HL12 â¦ Hg2) -L2 -g2 /2 width=3 by isuni_fwd_push/ #K1 #HLK1 #HK12 - lapply (isuni_inv_push â¦ Hf ??) -Hf [3,6: |*: // ] #Hf - lapply (liftsb_fwd_isid â¦ HJI2 â¦ Hf) #H destruct -HJI2 - lapply (drops_fwd_isid â¦ HLK1 â¦ Hf) #H destruct -HLK1 - /4 width=5 by sex_next, sex_push, drops_refl, isid_push, ex2_intro/ -] -qed-. - -lemma sex_co_dropable_dx: âRN,RP. co_dropable_dx (sex RN RP). -/2 width=5 by sex_dropable_dx_aux/ qed-. - -lemma sex_drops_conf_next: âRN,RP. - âf2,L1,L2. L1 âª¤[RN, RP, f2] L2 â - âb,f,I1,K1. â¬*[b, f] L1 â K1.â{I1} â ðâ¦fâ¦ â - âf1. f ~â âf1 â f2 â - ââI2,K2. â¬*[b, f] L2 â K2.â{I2} & K1 âª¤[RN, RP, f1] K2 & RN K1 I1 I2. -#RN #RP #f2 #L1 #L2 #HL12 #b #f #I1 #K1 #HLK1 #Hf #f1 #Hf2 -elim (sex_co_dropable_sn â¦ HLK1 â¦ Hf â¦ HL12 â¦ Hf2) -L1 -f2 -Hf -#X #HX #HLK2 elim (sex_inv_next1 â¦ HX) -HX -#I2 #K2 #HK12 #HI12 #H destruct /2 width=5 by ex3_2_intro/ -qed-. - -lemma sex_drops_conf_push: âRN,RP. - âf2,L1,L2. L1 âª¤[RN, RP, f2] L2 â - âb,f,I1,K1. â¬*[b, f] L1 â K1.â{I1} â ðâ¦fâ¦ â - âf1. f ~â â«¯f1 â f2 â - ââI2,K2. â¬*[b, f] L2 â K2.â{I2} & K1 âª¤[RN, RP, f1] K2 & RP K1 I1 I2. -#RN #RP #f2 #L1 #L2 #HL12 #b #f #I1 #K1 #HLK1 #Hf #f1 #Hf2 -elim (sex_co_dropable_sn â¦ HLK1 â¦ Hf â¦ HL12 â¦ Hf2) -L1 -f2 -Hf -#X #HX #HLK2 elim (sex_inv_push1 â¦ HX) -HX -#I2 #K2 #HK12 #HI12 #H destruct /2 width=5 by ex3_2_intro/ -qed-. - -lemma sex_drops_trans_next: âRN,RP,f2,L1,L2. L1 âª¤[RN, RP, f2] L2 â - âb,f,I2,K2. â¬*[b, f] L2 â K2.â{I2} â ðâ¦fâ¦ â - âf1. f ~â âf1 â f2 â - ââI1,K1. â¬*[b, f] L1 â K1.â{I1} & K1 âª¤[RN, RP, f1] K2 & RN K1 I1 I2. -#RN #RP #f2 #L1 #L2 #HL12 #b #f #I2 #K2 #HLK2 #Hf #f1 #Hf2 -elim (sex_co_dropable_dx â¦ HL12 â¦ HLK2 â¦ Hf â¦ Hf2) -L2 -f2 -Hf -#X #HLK1 #HX elim (sex_inv_next2 â¦ HX) -HX -#I1 #K1 #HK12 #HI12 #H destruct /2 width=5 by ex3_2_intro/ -qed-. - -lemma sex_drops_trans_push: âRN,RP,f2,L1,L2. L1 âª¤[RN, RP, f2] L2 â - âb,f,I2,K2. â¬*[b, f] L2 â K2.â{I2} â ðâ¦fâ¦ â - âf1. f ~â â«¯f1 â f2 â - ââI1,K1. â¬*[b, f] L1 â K1.â{I1} & K1 âª¤[RN, RP, f1] K2 & RP K1 I1 I2. -#RN #RP #f2 #L1 #L2 #HL12 #b #f #I2 #K2 #HLK2 #Hf #f1 #Hf2 -elim (sex_co_dropable_dx â¦ HL12 â¦ HLK2 â¦ Hf â¦ Hf2) -L2 -f2 -Hf -#X #HLK1 #HX elim (sex_inv_push2 â¦ HX) -HX -#I1 #K1 #HK12 #HI12 #H destruct /2 width=5 by ex3_2_intro/ -qed-. - -lemma drops_sex_trans_next: âRN,RP. (âL. reflexive ? (RN L)) â (âL. reflexive ? (RP L)) â - d_liftable2_sn â¦ liftsb RN â d_liftable2_sn â¦ liftsb RP â - âf1,K1,K2. K1 âª¤[RN, RP, f1] K2 â - âb,f,I1,L1. â¬*[b, f] L1.â{I1} â K1 â - âf2. f ~â f1 â âf2 â - ââI2,L2. â¬*[b, f] L2.â{I2} â K2 & L1 âª¤[RN, RP, f2] L2 & RN L1 I1 I2 & L1.â{I1} â¡[f] L2.â{I2}. -#RN #RP #H1RN #H1RP #H2RN #H2RP #f1 #K1 #K2 #HK12 #b #f #I1 #L1 #HLK1 #f2 #Hf2 -elim (sex_liftable_co_dedropable_sn â¦ H1RN H1RP H2RN H2RP â¦ HLK1 â¦ HK12 â¦ Hf2) -K1 -f1 -H1RN -H1RP -H2RN -H2RP -#X #HX #HLK2 #H1L12 elim (sex_inv_next1 â¦ HX) -HX -#I2 #L2 #H2L12 #HI12 #H destruct /2 width=6 by ex4_2_intro/ -qed-. - -lemma drops_sex_trans_push: âRN,RP. (âL. reflexive ? (RN L)) â (âL. reflexive ? (RP L)) â - d_liftable2_sn â¦ liftsb RN â d_liftable2_sn â¦ liftsb RP â - âf1,K1,K2. K1 âª¤[RN, RP, f1] K2 â - âb,f,I1,L1. â¬*[b, f] L1.â{I1} â K1 â - âf2. f ~â f1 â â«¯f2 â - ââI2,L2. â¬*[b, f] L2.â{I2} â K2 & L1 âª¤[RN, RP, f2] L2 & RP L1 I1 I2 & L1.â{I1} â¡[f] L2.â{I2}. -#RN #RP #H1RN #H1RP #H2RN #H2RP #f1 #K1 #K2 #HK12 #b #f #I1 #L1 #HLK1 #f2 #Hf2 -elim (sex_liftable_co_dedropable_sn â¦ H1RN H1RP H2RN H2RP â¦ HLK1 â¦ HK12 â¦ Hf2) -K1 -f1 -H1RN -H1RP -H2RN -H2RP -#X #HX #HLK2 #H1L12 elim (sex_inv_push1 â¦ HX) -HX -#I2 #L2 #H2L12 #HI12 #H destruct /2 width=6 by ex4_2_intro/ -qed-. - -lemma drops_atom2_sex_conf: âRN,RP,b,f1,L1. â¬*[b, f1] L1 â â â ðâ¦f1â¦ â - âf,L2. L1 âª¤[RN, RP, f] L2 â - âf2. f1 ~â f2 âf â â¬*[b, f1] L2 â â. -#RN #RP #b #f1 #L1 #H1 #Hf1 #f #L2 #H2 #f2 #H3 -elim (sex_co_dropable_sn â¦ H1 â¦ H2 â¦ H3) // -H1 -H2 -H3 -Hf1 -#L #H #HL2 lapply (sex_inv_atom1 â¦ H) -H // -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_vector.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_vector.ma deleted file mode 100644 index 6a7560248..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_vector.ma +++ /dev/null @@ -1,32 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/relocation/lifts_vector.ma". -include "basic_2/relocation/drops.ma". - -(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) - -definition d_liftable1_all: predicate (relation2 lenv term) â - Î»R. âK,Ts. all â¦ (R K) Ts â - âb,f,L. â¬*[b, f] L â K â - âUs. â¬*[f] Ts â Us â all â¦ (R L) Us. - -(* Properties with generic relocation for term vectors **********************) - -(* Basic_2A1: was: d1_liftables_liftables_all *) -lemma d1_liftable_liftable_all: âR. d_liftable1 R â d_liftable1_all R. -#R #HR #K #Ts #HTs #b #f #L #HLK #Us #H -generalize in match HTs; -HTs elim H -Ts -Us normalize // -#Ts #Us #T #U #HTU #_ #IHTUs * /3 width=7 by conj/ -qed. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_weight.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_weight.ma deleted file mode 100644 index 3b75c89f6..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_weight.ma +++ /dev/null @@ -1,56 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/syntax/cl_restricted_weight.ma". -include "basic_2/relocation/lifts_weight_bind.ma". -include "basic_2/relocation/drops.ma". - -(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) - -(* Forward lemmas with weight for local environments ************************) - -(* Basic_2A1: includes: drop_fwd_lw *) -lemma drops_fwd_lw: âb,f,L1,L2. â¬*[b, f] L1 â L2 â â¯{L2} â¤ â¯{L1}. -#b #f #L1 #L2 #H elim H -f -L1 -L2 // -[ /2 width=3 by transitive_le/ -| #f #I1 #I2 #L1 #L2 #_ #HI21 #IHL12 normalize - >(liftsb_fwd_bw â¦ HI21) -HI21 /2 width=1 by monotonic_le_plus_l/ -] -qed-. - -(* Basic_2A1: includes: drop_fwd_lw_lt *) -lemma drops_fwd_lw_lt: âf,L1,L2. â¬*[â, f] L1 â L2 â - (ðâ¦fâ¦ â â¥) â â¯{L2} < â¯{L1}. -#f #L1 #L2 #H elim H -f -L1 -L2 -[ #f #Hf #Hnf elim Hnf -Hnf /2 width=1 by/ -| /3 width=3 by drops_fwd_lw, le_to_lt_to_lt/ -| #f #I1 #I2 #L1 #L2 #_ #HI21 #IHL12 #H normalize in â¢ (?%%); - >(liftsb_fwd_bw â¦ HI21) -I2 /5 width=3 by isid_push, monotonic_lt_plus_l/ -] -qed-. - -(* Forward lemmas with restricted weight for closures ***********************) - -(* Basic_2A1: includes: drop_fwd_rfw *) -lemma drops_bind2_fwd_rfw: âb,f,I,L,K,V. â¬*[b, f] L â K.â{I}V â âT. â¯{K, V} < â¯{L, T}. -#b #f #I #L #K #V #HLK lapply (drops_fwd_lw â¦ HLK) -HLK -normalize in â¢ (%â?â?%%); /3 width=3 by le_to_lt_to_lt, monotonic_lt_plus_r/ -qed-. - -(* Advanced inversion lemma *************************************************) - -lemma drops_inv_x_bind_xy: âb,f,I,L. â¬*[b, f] L â L.â{I} â â¥. -#b #f #I #L #H lapply (drops_fwd_lw â¦ H) -b -f -/2 width=4 by lt_le_false/ (**) (* full auto is a bit slow: 19s *) -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/lex.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/lex.ma deleted file mode 100644 index 7e6aeae49..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lex.ma +++ /dev/null @@ -1,162 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "ground_2/pull/pull_2.ma". -include "ground_2/pull/pull_4.ma". -include "ground_2/relocation/rtmap_uni.ma". -include "basic_2/notation/relations/relation_3.ma". -include "basic_2/syntax/cext2.ma". -include "basic_2/relocation/sex.ma". - -(* GENERIC EXTENSION OF A CONTEXT-SENSITIVE REALTION FOR TERMS **************) - -definition lex (R): relation lenv â - Î»L1,L2. ââf. ðâ¦fâ¦ & L1 âª¤[cfull, cext2 R, f] L2. - -interpretation "generic extension (local environment)" - 'Relation R L1 L2 = (lex R L1 L2). - -definition lex_confluent: relation (relation3 â¦) â Î»R1,R2. - âL0,T0,T1. R1 L0 T0 T1 â âT2. R2 L0 T0 T2 â - âL1. L0 âª¤[R1] L1 â âL2. L0 âª¤[R2] L2 â - ââT. R2 L1 T1 T & R1 L2 T2 T. - -definition lex_transitive: relation (relation3 â¦) â Î»R1,R2. - âL1,T1,T. R1 L1 T1 T â âL2. L1 âª¤[R1] L2 â - âT2. R2 L2 T T2 â R1 L1 T1 T2. - -(* Basic properties *********************************************************) - -(* Basic_2A1: was: lpx_sn_atom *) -lemma lex_atom (R): â âª¤[R] â. -/2 width=3 by sex_atom, ex2_intro/ qed. - -lemma lex_bind (R): âI1,I2,K1,K2. K1 âª¤[R] K2 â cext2 R K1 I1 I2 â - K1.â{I1} âª¤[R] K2.â{I2}. -#R #I1 #I2 #K1 #K2 * #f #Hf #HK12 #HI12 -/3 width=3 by sex_push, isid_push, ex2_intro/ -qed. - -(* Basic_2A1: was: lpx_sn_refl *) -lemma lex_refl (R): c_reflexive â¦ R â reflexive â¦ (lex R). -/4 width=3 by sex_refl, ext2_refl, ex2_intro/ qed. - -lemma lex_co (R1) (R2): (âL,T1,T2. R1 L T1 T2 â R2 L T1 T2) â - âL1,L2. L1 âª¤[R1] L2 â L1 âª¤[R2] L2. -#R1 #R2 #HR #L1 #L2 * /5 width=7 by sex_co, cext2_co, ex2_intro/ -qed-. - -(* Advanced properties ******************************************************) - -lemma lex_bind_refl_dx (R): c_reflexive â¦ R â - âI,K1,K2. K1 âª¤[R] K2 â K1.â{I} âª¤[R] K2.â{I}. -/3 width=3 by ext2_refl, lex_bind/ qed. - -lemma lex_unit (R): âI,K1,K2. K1 âª¤[R] K2 â K1.â¤{I} âª¤[R] K2.â¤{I}. -/3 width=1 by lex_bind, ext2_unit/ qed. - -(* Basic_2A1: was: lpx_sn_pair *) -lemma lex_pair (R): âI,K1,K2,V1,V2. K1 âª¤[R] K2 â R K1 V1 V2 â - K1.â{I}V1 âª¤[R] K2.â{I}V2. -/3 width=1 by lex_bind, ext2_pair/ qed. - -(* Basic inversion lemmas ***************************************************) - -(* Basic_2A1: was: lpx_sn_inv_atom1: *) -lemma lex_inv_atom_sn (R): âL2. â âª¤[R] L2 â L2 = â. -#R #L2 * #f #Hf #H >(sex_inv_atom1 â¦ H) -L2 // -qed-. - -lemma lex_inv_bind_sn (R): âI1,L2,K1. K1.â{I1} âª¤[R] L2 â - ââI2,K2. K1 âª¤[R] K2 & cext2 R K1 I1 I2 & L2 = K2.â{I2}. -#R #I1 #L2 #K1 * #f #Hf #H -lapply (sex_eq_repl_fwd â¦ H (â«¯f) ?) -H /2 width=1 by eq_push_inv_isid/ #H -elim (sex_inv_push1 â¦ H) -H #I2 #K2 #HK12 #HI12 #H destruct -/3 width=5 by ex2_intro, ex3_2_intro/ -qed-. - -(* Basic_2A1: was: lpx_sn_inv_atom2 *) -lemma lex_inv_atom_dx (R): âL1. L1 âª¤[R] â â L1 = â. -#R #L1 * #f #Hf #H >(sex_inv_atom2 â¦ H) -L1 // -qed-. - -lemma lex_inv_bind_dx (R): âI2,L1,K2. L1 âª¤[R] K2.â{I2} â - ââI1,K1. K1 âª¤[R] K2 & cext2 R K1 I1 I2 & L1 = K1.â{I1}. -#R #I2 #L1 #K2 * #f #Hf #H -lapply (sex_eq_repl_fwd â¦ H (â«¯f) ?) -H /2 width=1 by eq_push_inv_isid/ #H -elim (sex_inv_push2 â¦ H) -H #I1 #K1 #HK12 #HI12 #H destruct -/3 width=5 by ex3_2_intro, ex2_intro/ -qed-. - -(* Advanced inversion lemmas ************************************************) - -lemma lex_inv_unit_sn (R): âI,L2,K1. K1.â¤{I} âª¤[R] L2 â - ââK2. K1 âª¤[R] K2 & L2 = K2.â¤{I}. -#R #I #L2 #K1 #H -elim (lex_inv_bind_sn â¦ H) -H #Z2 #K2 #HK12 #HZ2 #H destruct -elim (ext2_inv_unit_sn â¦ HZ2) -HZ2 -/2 width=3 by ex2_intro/ -qed-. - -(* Basic_2A1: was: lpx_sn_inv_pair1 *) -lemma lex_inv_pair_sn (R): âI,L2,K1,V1. K1.â{I}V1 âª¤[R] L2 â - ââK2,V2. K1 âª¤[R] K2 & R K1 V1 V2 & L2 = K2.â{I}V2. -#R #I #L2 #K1 #V1 #H -elim (lex_inv_bind_sn â¦ H) -H #Z2 #K2 #HK12 #HZ2 #H destruct -elim (ext2_inv_pair_sn â¦ HZ2) -HZ2 #V2 #HV12 #H destruct -/2 width=5 by ex3_2_intro/ -qed-. - -lemma lex_inv_unit_dx (R): âI,L1,K2. L1 âª¤[R] K2.â¤{I} â - ââK1. K1 âª¤[R] K2 & L1 = K1.â¤{I}. -#R #I #L1 #K2 #H -elim (lex_inv_bind_dx â¦ H) -H #Z1 #K1 #HK12 #HZ1 #H destruct -elim (ext2_inv_unit_dx â¦ HZ1) -HZ1 -/2 width=3 by ex2_intro/ -qed-. - -(* Basic_2A1: was: lpx_sn_inv_pair2 *) -lemma lex_inv_pair_dx (R): âI,L1,K2,V2. L1 âª¤[R] K2.â{I}V2 â - ââK1,V1. K1 âª¤[R] K2 & R K1 V1 V2 & L1 = K1.â{I}V1. -#R #I #L1 #K2 #V2 #H -elim (lex_inv_bind_dx â¦ H) -H #Z1 #K1 #HK12 #HZ1 #H destruct -elim (ext2_inv_pair_dx â¦ HZ1) -HZ1 #V1 #HV12 #H destruct -/2 width=5 by ex3_2_intro/ -qed-. - -(* Basic_2A1: was: lpx_sn_inv_pair *) -lemma lex_inv_pair (R): âI1,I2,L1,L2,V1,V2. - L1.â{I1}V1 âª¤[R] L2.â{I2}V2 â - â§â§ L1 âª¤[R] L2 & R L1 V1 V2 & I1 = I2. -#R #I1 #I2 #L1 #L2 #V1 #V2 #H elim (lex_inv_pair_sn â¦ H) -H -#L0 #V0 #HL10 #HV10 #H destruct /2 width=1 by and3_intro/ -qed-. - -(* Basic eliminators ********************************************************) - -lemma lex_ind (R) (Q:relation2 â¦): - Q (â) (â) â - ( - âI,K1,K2. K1 âª¤[R] K2 â Q K1 K2 â Q (K1.â¤{I}) (K2.â¤{I}) - ) â ( - âI,K1,K2,V1,V2. K1 âª¤[R] K2 â Q K1 K2 â R K1 V1 V2 âQ (K1.â{I}V1) (K2.â{I}V2) - ) â - âL1,L2. L1 âª¤[R] L2 â Q L1 L2. -#R #Q #IH1 #IH2 #IH3 #L1 #L2 * #f @pull_2 #H -elim H -f -L1 -L2 // #f #I1 #I2 #K1 #K2 @pull_4 #H -[ elim (isid_inv_next â¦ H) -| lapply (isid_inv_push â¦ H ??) -] -H [5:|*: // ] #Hf @pull_2 #H -elim H -H /3 width=3 by ex2_intro/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/lex_length.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/lex_length.ma deleted file mode 100644 index 4f77163fe..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lex_length.ma +++ /dev/null @@ -1,25 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/relocation/sex_length.ma". -include "basic_2/relocation/lex.ma". - -(* GENERIC EXTENSION OF A CONTEXT-SENSITIVE REALTION FOR TERMS **************) - -(* Forward lemmas with length for local environments ************************) - -(* Basic_2A1: was: lpx_sn_fwd_length *) -lemma lex_fwd_length: âR,L1,L2. L1 âª¤[R] L2 â |L1| = |L2|. -#R #L1 #L2 * /2 width=4 by sex_fwd_length/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/lex_lex.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/lex_lex.ma deleted file mode 100644 index e8b30f23d..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lex_lex.ma +++ /dev/null @@ -1,52 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/relocation/lex.ma". - -(* GENERIC ENTRYWISE EXTENSION OF CONTEXT-SENSITIVE REALTIONS FOR TERMS *****) - -(* Main properties **********************************************************) - -(* Basic_2A1: was: lpx_sn_trans *) -theorem lex_trans (R): lex_transitive R R â Transitive â¦ (lex R). -#R #HR #L1 #L #H @(lex_ind â¦ H) -L1 -L // -[ #I #K1 #K #HK1 #IH #Y #H - elim (lex_inv_unit_sn â¦ H) -H #K2 #K2 #H destruct - /3 width=1 by lex_unit/ -| #I #K1 #L #V1 #V #HK1 #IH #HV1 #X #H - elim (lex_inv_pair_sn â¦ H) -H #K2 #V2 #HK2 #HV2 #H destruct - /3 width=5 by lex_pair/ -] -qed-. - -(* Basic_2A1: was: lpx_sn_conf *) -theorem lex_conf (R1) (R2): lex_confluent R1 R2 â confluent2 â¦ (lex R1) (lex R2). -#R1 #R2 #HR12 #L0 elim L0 -L0 [| #K0 * ] -[ #Y1 #H1 #Y2 #H2 - >(lex_inv_atom_sn â¦ H1) -Y1 - >(lex_inv_atom_sn â¦ H2) -Y2 - /2 width=3 by lex_atom, ex2_intro/ -| #I #IH #Y1 #H1 #Y2 #H2 - elim (lex_inv_unit_sn â¦ H1) -H1 #K1 #HK01 #H destruct - elim (lex_inv_unit_sn â¦ H2) -H2 #K2 #HK02 #H destruct - elim (IH â¦ HK01 â¦ HK02) -K0 #K #HK1 #HK2 - /3 width=3 by lex_unit, ex2_intro/ -| #I #V0 #IH #Y1 #H1 #Y2 #H2 - elim (lex_inv_pair_sn â¦ H1) -H1 #K1 #V1 #HK01 #HV01 #H destruct - elim (lex_inv_pair_sn â¦ H2) -H2 #K2 #V2 #HK02 #HV02 #H destruct - elim (HR12 â¦ HV01 â¦ HV02 â¦ HK01 â¦ HK02) -V0 #V #HV1 #HV2 - elim (IH â¦ HK01 â¦ HK02) -K0 #K #HK1 #HK2 - /3 width=5 by lex_pair, ex2_intro/ -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/lex_tc.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/lex_tc.ma deleted file mode 100644 index 00b9db820..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lex_tc.ma +++ /dev/null @@ -1,89 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/syntax/ext2_tc.ma". -include "basic_2/relocation/sex_tc.ma". -include "basic_2/relocation/lex.ma". - -alias symbol "subseteq" = "relation inclusion". - -(* GENERIC EXTENSION OF A CONTEXT-SENSITIVE REALTION FOR TERMS **************) - -(* Inversion lemmas with transitive closure *********************************) - -(* Basic_2A1: was: lpx_sn_LTC_TC_lpx_sn *) -lemma lex_inv_CTC (R): c_reflexive â¦ R â - lex (CTC â¦ R) â TC â¦ (lex R). -#R #HR #L1 #L2 * -/5 width=11 by sex_inv_tc_dx, sex_co, ext2_inv_tc, ext2_refl, monotonic_TC, ex2_intro/ -qed-. - -lemma s_rs_transitive_lex_inv_isid (R): s_rs_transitive â¦ R (Î»_.lex R) â - s_rs_transitive_isid cfull (cext2 R). -#R #HR #f #Hf #L2 #T1 #T2 #H #L1 #HL12 -elim (ext2_tc â¦ H) -H -[ /3 width=1 by ext2_inv_tc, ext2_unit/ -| #I #V1 #V2 #HV12 - @ext2_inv_tc @ext2_pair - @(HR â¦ HV12) -HV12 /2 width=3 by ex2_intro/ (**) (* auto fails *) -] -qed-. - -(* Properties with transitive closure ***************************************) - -(* Basic_2A1: was: TC_lpx_sn_inv_lpx_sn_LTC *) -lemma lex_CTC (R): s_rs_transitive â¦ R (Î»_. lex R) â - TC â¦ (lex R) â lex (CTC â¦ R). -#R #HR #L1 #L2 #HL12 -lapply (monotonic_TC â¦ (sex cfull (cext2 R) ðð) â¦ HL12) -HL12 -[ #L1 #L2 * /3 width=3 by sex_eq_repl_fwd, eq_id_inv_isid/ -| /5 width=9 by s_rs_transitive_lex_inv_isid, sex_tc_dx, sex_co, ext2_tc, ex2_intro/ -] -qed-. - -lemma lex_CTC_inj (R): s_rs_transitive â¦ R (Î»_. lex R) â - (lex R) â lex (CTC â¦ R). -/3 width=1 by lex_CTC, inj/ qed-. - -lemma lex_CTC_step_dx (R): c_reflexive â¦ R â s_rs_transitive â¦ R (Î»_. lex R) â - âL1,L. lex (CTC â¦ R) L1 L â - âL2. lex R L L2 â lex (CTC â¦ R) L1 L2. -/4 width=3 by lex_CTC, lex_inv_CTC, step/ qed-. - -lemma lex_CTC_step_sn (R): c_reflexive â¦ R â s_rs_transitive â¦ R (Î»_. lex R) â - âL1,L. lex R L1 L â - âL2. lex (CTC â¦ R) L L2 â lex (CTC â¦ R) L1 L2. -/4 width=3 by lex_CTC, lex_inv_CTC, TC_strap/ qed-. - -(* Eliminators with transitive closure **************************************) - -lemma lex_CTC_ind_sn (R) (L2): c_reflexive â¦ R â s_rs_transitive â¦ R (Î»_. lex R) â - âQ:predicate lenv. Q L2 â - (âL1,L. L1 âª¤[R] L â L âª¤[CTC â¦ R] L2 â Q L â Q L1) â - âL1. L1 âª¤[CTC â¦ R] L2 â Q L1. -#R #L2 #H1R #H2R #Q #IH1 #IH2 #L1 #H -lapply (lex_inv_CTC â¦ H1R â¦ H) -H #H -@(TC_star_ind_dx ???????? H) -H -/3 width=4 by lex_CTC, lex_refl/ -qed-. - -lemma lex_CTC_ind_dx (R) (L1): c_reflexive â¦ R â s_rs_transitive â¦ R (Î»_. lex R) â - âQ:predicate lenv. Q L1 â - (âL,L2. L1 âª¤[CTC â¦ R] L â L âª¤[R] L2 â Q L â Q L2) â - âL2. L1 âª¤[CTC â¦ R] L2 â Q L2. -#R #L1 #H1R #H2R #Q #IH1 #IH2 #L2 #H -lapply (lex_inv_CTC â¦ H1R â¦ H) -H #H -@(TC_star_ind ???????? H) -H -/3 width=4 by lex_CTC, lex_refl/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts.ma deleted file mode 100644 index 5198b2d58..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts.ma +++ /dev/null @@ -1,451 +0,0 @@ - -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "ground_2/relocation/nstream_after.ma". -include "basic_2/notation/relations/rliftstar_3.ma". -include "basic_2/syntax/term.ma". - -(* GENERIC RELOCATION FOR TERMS *********************************************) - -(* Basic_1: includes: - lift_sort lift_lref_lt lift_lref_ge lift_bind lift_flat - lifts_nil lifts_cons -*) -inductive lifts: rtmap â relation term â -| lifts_sort: âf,s. lifts f (âs) (âs) -| lifts_lref: âf,i1,i2. @â¦i1, fâ¦ â i2 â lifts f (#i1) (#i2) -| lifts_gref: âf,l. lifts f (Â§l) (Â§l) -| lifts_bind: âf,p,I,V1,V2,T1,T2. - lifts f V1 V2 â lifts (â«¯f) T1 T2 â - lifts f (â{p,I}V1.T1) (â{p,I}V2.T2) -| lifts_flat: âf,I,V1,V2,T1,T2. - lifts f V1 V2 â lifts f T1 T2 â - lifts f (â{I}V1.T1) (â{I}V2.T2) -. - -interpretation "uniform relocation (term)" - 'RLiftStar i T1 T2 = (lifts (uni i) T1 T2). - -interpretation "generic relocation (term)" - 'RLiftStar f T1 T2 = (lifts f T1 T2). - -definition liftable2_sn: predicate (relation term) â - Î»R. âT1,T2. R T1 T2 â âf,U1. â¬*[f] T1 â U1 â - ââU2. â¬*[f] T2 â U2 & R U1 U2. - -definition deliftable2_sn: predicate (relation term) â - Î»R. âU1,U2. R U1 U2 â âf,T1. â¬*[f] T1 â U1 â - ââT2. â¬*[f] T2 â U2 & R T1 T2. - -definition liftable2_bi: predicate (relation term) â - Î»R. âT1,T2. R T1 T2 â âf,U1. â¬*[f] T1 â U1 â - âU2. â¬*[f] T2 â U2 â R U1 U2. - -definition deliftable2_bi: predicate (relation term) â - Î»R. âU1,U2. R U1 U2 â âf,T1. â¬*[f] T1 â U1 â - âT2. â¬*[f] T2 â U2 â R T1 T2. - -(* Basic inversion lemmas ***************************************************) - -fact lifts_inv_sort1_aux: âf,X,Y. â¬*[f] X â Y â âs. X = âs â Y = âs. -#f #X #Y * -f -X -Y // -[ #f #i1 #i2 #_ #x #H destruct -| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct -| #f #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct -] -qed-. - -(* Basic_1: was: lift1_sort *) -(* Basic_2A1: includes: lift_inv_sort1 *) -lemma lifts_inv_sort1: âf,Y,s. â¬*[f] âs â Y â Y = âs. -/2 width=4 by lifts_inv_sort1_aux/ qed-. - -fact lifts_inv_lref1_aux: âf,X,Y. â¬*[f] X â Y â âi1. X = #i1 â - ââi2. @â¦i1, fâ¦ â i2 & Y = #i2. -#f #X #Y * -f -X -Y -[ #f #s #x #H destruct -| #f #i1 #i2 #Hi12 #x #H destruct /2 width=3 by ex2_intro/ -| #f #l #x #H destruct -| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct -| #f #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct -] -qed-. - -(* Basic_1: was: lift1_lref *) -(* Basic_2A1: includes: lift_inv_lref1 lift_inv_lref1_lt lift_inv_lref1_ge *) -lemma lifts_inv_lref1: âf,Y,i1. â¬*[f] #i1 â Y â - ââi2. @â¦i1, fâ¦ â i2 & Y = #i2. -/2 width=3 by lifts_inv_lref1_aux/ qed-. - -fact lifts_inv_gref1_aux: âf,X,Y. â¬*[f] X â Y â âl. X = Â§l â Y = Â§l. -#f #X #Y * -f -X -Y // -[ #f #i1 #i2 #_ #x #H destruct -| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct -| #f #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct -] -qed-. - -(* Basic_2A1: includes: lift_inv_gref1 *) -lemma lifts_inv_gref1: âf,Y,l. â¬*[f] Â§l â Y â Y = Â§l. -/2 width=4 by lifts_inv_gref1_aux/ qed-. - -fact lifts_inv_bind1_aux: âf,X,Y. â¬*[f] X â Y â - âp,I,V1,T1. X = â{p,I}V1.T1 â - ââV2,T2. â¬*[f] V1 â V2 & â¬*[â«¯f] T1 â T2 & - Y = â{p,I}V2.T2. -#f #X #Y * -f -X -Y -[ #f #s #q #J #W1 #U1 #H destruct -| #f #i1 #i2 #_ #q #J #W1 #U1 #H destruct -| #f #l #b #J #W1 #U1 #H destruct -| #f #p #I #V1 #V2 #T1 #T2 #HV12 #HT12 #q #J #W1 #U1 #H destruct /2 width=5 by ex3_2_intro/ -| #f #I #V1 #V2 #T1 #T2 #_ #_ #q #J #W1 #U1 #H destruct -] -qed-. - -(* Basic_1: was: lift1_bind *) -(* Basic_2A1: includes: lift_inv_bind1 *) -lemma lifts_inv_bind1: âf,p,I,V1,T1,Y. â¬*[f] â{p,I}V1.T1 â Y â - ââV2,T2. â¬*[f] V1 â V2 & â¬*[â«¯f] T1 â T2 & - Y = â{p,I}V2.T2. -/2 width=3 by lifts_inv_bind1_aux/ qed-. - -fact lifts_inv_flat1_aux: âf:rtmap. âX,Y. â¬*[f] X â Y â - âI,V1,T1. X = â{I}V1.T1 â - ââV2,T2. â¬*[f] V1 â V2 & â¬*[f] T1 â T2 & - Y = â{I}V2.T2. -#f #X #Y * -f -X -Y -[ #f #s #J #W1 #U1 #H destruct -| #f #i1 #i2 #_ #J #W1 #U1 #H destruct -| #f #l #J #W1 #U1 #H destruct -| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #J #W1 #U1 #H destruct -| #f #I #V1 #V2 #T1 #T2 #HV12 #HT12 #J #W1 #U1 #H destruct /2 width=5 by ex3_2_intro/ -] -qed-. - -(* Basic_1: was: lift1_flat *) -(* Basic_2A1: includes: lift_inv_flat1 *) -lemma lifts_inv_flat1: âf:rtmap. âI,V1,T1,Y. â¬*[f] â{I}V1.T1 â Y â - ââV2,T2. â¬*[f] V1 â V2 & â¬*[f] T1 â T2 & - Y = â{I}V2.T2. -/2 width=3 by lifts_inv_flat1_aux/ qed-. - -fact lifts_inv_sort2_aux: âf,X,Y. â¬*[f] X â Y â âs. Y = âs â X = âs. -#f #X #Y * -f -X -Y // -[ #f #i1 #i2 #_ #x #H destruct -| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct -| #f #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct -] -qed-. - -(* Basic_1: includes: lift_gen_sort *) -(* Basic_2A1: includes: lift_inv_sort2 *) -lemma lifts_inv_sort2: âf,X,s. â¬*[f] X â âs â X = âs. -/2 width=4 by lifts_inv_sort2_aux/ qed-. - -fact lifts_inv_lref2_aux: âf,X,Y. â¬*[f] X â Y â âi2. Y = #i2 â - ââi1. @â¦i1, fâ¦ â i2 & X = #i1. -#f #X #Y * -f -X -Y -[ #f #s #x #H destruct -| #f #i1 #i2 #Hi12 #x #H destruct /2 width=3 by ex2_intro/ -| #f #l #x #H destruct -| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct -| #f #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct -] -qed-. - -(* Basic_1: includes: lift_gen_lref lift_gen_lref_lt lift_gen_lref_false lift_gen_lref_ge *) -(* Basic_2A1: includes: lift_inv_lref2 lift_inv_lref2_lt lift_inv_lref2_be lift_inv_lref2_ge lift_inv_lref2_plus *) -lemma lifts_inv_lref2: âf,X,i2. â¬*[f] X â #i2 â - ââi1. @â¦i1, fâ¦ â i2 & X = #i1. -/2 width=3 by lifts_inv_lref2_aux/ qed-. - -fact lifts_inv_gref2_aux: âf,X,Y. â¬*[f] X â Y â âl. Y = Â§l â X = Â§l. -#f #X #Y * -f -X -Y // -[ #f #i1 #i2 #_ #x #H destruct -| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct -| #f #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct -] -qed-. - -(* Basic_2A1: includes: lift_inv_gref1 *) -lemma lifts_inv_gref2: âf,X,l. â¬*[f] X â Â§l â X = Â§l. -/2 width=4 by lifts_inv_gref2_aux/ qed-. - -fact lifts_inv_bind2_aux: âf,X,Y. â¬*[f] X â Y â - âp,I,V2,T2. Y = â{p,I}V2.T2 â - ââV1,T1. â¬*[f] V1 â V2 & â¬*[â«¯f] T1 â T2 & - X = â{p,I}V1.T1. -#f #X #Y * -f -X -Y -[ #f #s #q #J #W2 #U2 #H destruct -| #f #i1 #i2 #_ #q #J #W2 #U2 #H destruct -| #f #l #q #J #W2 #U2 #H destruct -| #f #p #I #V1 #V2 #T1 #T2 #HV12 #HT12 #q #J #W2 #U2 #H destruct /2 width=5 by ex3_2_intro/ -| #f #I #V1 #V2 #T1 #T2 #_ #_ #q #J #W2 #U2 #H destruct -] -qed-. - -(* Basic_1: includes: lift_gen_bind *) -(* Basic_2A1: includes: lift_inv_bind2 *) -lemma lifts_inv_bind2: âf,p,I,V2,T2,X. â¬*[f] X â â{p,I}V2.T2 â - ââV1,T1. â¬*[f] V1 â V2 & â¬*[â«¯f] T1 â T2 & - X = â{p,I}V1.T1. -/2 width=3 by lifts_inv_bind2_aux/ qed-. - -fact lifts_inv_flat2_aux: âf:rtmap. âX,Y. â¬*[f] X â Y â - âI,V2,T2. Y = â{I}V2.T2 â - ââV1,T1. â¬*[f] V1 â V2 & â¬*[f] T1 â T2 & - X = â{I}V1.T1. -#f #X #Y * -f -X -Y -[ #f #s #J #W2 #U2 #H destruct -| #f #i1 #i2 #_ #J #W2 #U2 #H destruct -| #f #l #J #W2 #U2 #H destruct -| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #J #W2 #U2 #H destruct -| #f #I #V1 #V2 #T1 #T2 #HV12 #HT12 #J #W2 #U2 #H destruct /2 width=5 by ex3_2_intro/ -] -qed-. - -(* Basic_1: includes: lift_gen_flat *) -(* Basic_2A1: includes: lift_inv_flat2 *) -lemma lifts_inv_flat2: âf:rtmap. âI,V2,T2,X. â¬*[f] X â â{I}V2.T2 â - ââV1,T1. â¬*[f] V1 â V2 & â¬*[f] T1 â T2 & - X = â{I}V1.T1. -/2 width=3 by lifts_inv_flat2_aux/ qed-. - -(* Advanced inversion lemmas ************************************************) - -lemma lifts_inv_atom1: âf,I,Y. â¬*[f] âª{I} â Y â - â¨â¨ ââs. I = Sort s & Y = âs - | ââi,j. @â¦i, fâ¦ â j & I = LRef i & Y = #j - | ââl. I = GRef l & Y = Â§l. -#f * #n #Y #H -[ lapply (lifts_inv_sort1 â¦ H) -| elim (lifts_inv_lref1 â¦ H) -| lapply (lifts_inv_gref1 â¦ H) -] -H /3 width=5 by or3_intro0, or3_intro1, or3_intro2, ex3_2_intro, ex2_intro/ -qed-. - -lemma lifts_inv_atom2: âf,I,X. â¬*[f] X â âª{I} â - â¨â¨ ââs. X = âs & I = Sort s - | ââi,j. @â¦i, fâ¦ â j & X = #i & I = LRef j - | ââl. X = Â§l & I = GRef l. -#f * #n #X #H -[ lapply (lifts_inv_sort2 â¦ H) -| elim (lifts_inv_lref2 â¦ H) -| lapply (lifts_inv_gref2 â¦ H) -] -H /3 width=5 by or3_intro0, or3_intro1, or3_intro2, ex3_2_intro, ex2_intro/ -qed-. - -(* Basic_2A1: includes: lift_inv_pair_xy_x *) -lemma lifts_inv_pair_xy_x: âf,I,V,T. â¬*[f] â¡{I}V.T â V â â¥. -#f #J #V elim V -V -[ * #i #U #H - [ lapply (lifts_inv_sort2 â¦ H) -H #H destruct - | elim (lifts_inv_lref2 â¦ H) -H - #x #_ #H destruct - | lapply (lifts_inv_gref2 â¦ H) -H #H destruct - ] -| * [ #p ] #I #V2 #T2 #IHV2 #_ #U #H - [ elim (lifts_inv_bind2 â¦ H) -H #V1 #T1 #HV12 #_ #H destruct /2 width=3 by/ - | elim (lifts_inv_flat2 â¦ H) -H #V1 #T1 #HV12 #_ #H destruct /2 width=3 by/ - ] -] -qed-. - -(* Basic_1: includes: thead_x_lift_y_y *) -(* Basic_2A1: includes: lift_inv_pair_xy_y *) -lemma lifts_inv_pair_xy_y: âI,T,V,f. â¬*[f] â¡{I}V.T â T â â¥. -#J #T elim T -T -[ * #i #W #f #H - [ lapply (lifts_inv_sort2 â¦ H) -H #H destruct - | elim (lifts_inv_lref2 â¦ H) -H - #x #_ #H destruct - | lapply (lifts_inv_gref2 â¦ H) -H #H destruct - ] -| * [ #p ] #I #V2 #T2 #_ #IHT2 #W #f #H - [ elim (lifts_inv_bind2 â¦ H) -H #V1 #T1 #_ #HT12 #H destruct /2 width=4 by/ - | elim (lifts_inv_flat2 â¦ H) -H #V1 #T1 #_ #HT12 #H destruct /2 width=4 by/ - ] -] -qed-. - -(* Inversion lemmas with uniform relocations ********************************) - -lemma lifts_inv_lref1_uni: âl,Y,i. â¬*[l] #i â Y â Y = #(l+i). -#l #Y #i1 #H elim (lifts_inv_lref1 â¦ H) -H /4 width=4 by at_mono, eq_f/ -qed-. - -lemma lifts_inv_lref2_uni: âl,X,i2. â¬*[l] X â #i2 â - ââi1. X = #i1 & i2 = l + i1. -#l #X #i2 #H elim (lifts_inv_lref2 â¦ H) -H -/3 width=3 by at_inv_uni, ex2_intro/ -qed-. - -lemma lifts_inv_lref2_uni_ge: âl,X,i. â¬*[l] X â #(l + i) â X = #i. -#l #X #i2 #H elim (lifts_inv_lref2_uni â¦ H) -H -#i1 #H1 #H2 destruct /4 width=2 by injective_plus_r, eq_f, sym_eq/ -qed-. - -lemma lifts_inv_lref2_uni_lt: âl,X,i. â¬*[l] X â #i â i < l â â¥. -#l #X #i2 #H elim (lifts_inv_lref2_uni â¦ H) -H -#i1 #_ #H1 #H2 destruct /2 width=4 by lt_le_false/ -qed-. - -(* Basic forward lemmas *****************************************************) - -(* Basic_2A1: includes: lift_inv_O2 *) -lemma lifts_fwd_isid: âf,T1,T2. â¬*[f] T1 â T2 â ðâ¦fâ¦ â T1 = T2. -#f #T1 #T2 #H elim H -f -T1 -T2 -/4 width=3 by isid_inv_at_mono, isid_push, eq_f2, eq_f/ -qed-. - -(* Basic_2A1: includes: lift_fwd_pair1 *) -lemma lifts_fwd_pair1: âf:rtmap. âI,V1,T1,Y. â¬*[f] â¡{I}V1.T1 â Y â - ââV2,T2. â¬*[f] V1 â V2 & Y = â¡{I}V2.T2. -#f * [ #p ] #I #V1 #T1 #Y #H -[ elim (lifts_inv_bind1 â¦ H) -H /2 width=4 by ex2_2_intro/ -| elim (lifts_inv_flat1 â¦ H) -H /2 width=4 by ex2_2_intro/ -] -qed-. - -(* Basic_2A1: includes: lift_fwd_pair2 *) -lemma lifts_fwd_pair2: âf:rtmap. âI,V2,T2,X. â¬*[f] X â â¡{I}V2.T2 â - ââV1,T1. â¬*[f] V1 â V2 & X = â¡{I}V1.T1. -#f * [ #p ] #I #V2 #T2 #X #H -[ elim (lifts_inv_bind2 â¦ H) -H /2 width=4 by ex2_2_intro/ -| elim (lifts_inv_flat2 â¦ H) -H /2 width=4 by ex2_2_intro/ -] -qed-. - -(* Basic properties *********************************************************) - -lemma lifts_eq_repl_back: âT1,T2. eq_repl_back â¦ (Î»f. â¬*[f] T1 â T2). -#T1 #T2 #f1 #H elim H -T1 -T2 -f1 -/4 width=5 by lifts_flat, lifts_bind, lifts_lref, at_eq_repl_back, eq_push/ -qed-. - -lemma lifts_eq_repl_fwd: âT1,T2. eq_repl_fwd â¦ (Î»f. â¬*[f] T1 â T2). -#T1 #T2 @eq_repl_sym /2 width=3 by lifts_eq_repl_back/ (**) (* full auto fails *) -qed-. - -(* Basic_1: includes: lift_r *) -(* Basic_2A1: includes: lift_refl *) -lemma lifts_refl: âT,f. ðâ¦fâ¦ â â¬*[f] T â T. -#T elim T -T * -/4 width=3 by lifts_flat, lifts_bind, lifts_lref, isid_inv_at, isid_push/ -qed. - -(* Basic_2A1: includes: lift_total *) -lemma lifts_total: âT1,f. âT2. â¬*[f] T1 â T2. -#T1 elim T1 -T1 * -/3 width=2 by lifts_lref, lifts_sort, lifts_gref, ex_intro/ -[ #p ] #I #V1 #T1 #IHV1 #IHT1 #f -elim (IHV1 f) -IHV1 #V2 #HV12 -[ elim (IHT1 (â«¯f)) -IHT1 /3 width=2 by lifts_bind, ex_intro/ -| elim (IHT1 f) -IHT1 /3 width=2 by lifts_flat, ex_intro/ -] -qed-. - -lemma lift_lref_uni: âl,i. â¬*[l] #i â #(l+i). -#l elim l -l /2 width=1 by lifts_lref/ -qed. - -(* Basic_1: includes: lift_free (right to left) *) -(* Basic_2A1: includes: lift_split *) -lemma lifts_split_trans: âf,T1,T2. â¬*[f] T1 â T2 â - âf1,f2. f2 â f1 â f â - ââT. â¬*[f1] T1 â T & â¬*[f2] T â T2. -#f #T1 #T2 #H elim H -f -T1 -T2 -[ /3 width=3 by lifts_sort, ex2_intro/ -| #f #i1 #i2 #Hi #f1 #f2 #Ht elim (after_at_fwd â¦ Hi â¦ Ht) -Hi -Ht - /3 width=3 by lifts_lref, ex2_intro/ -| /3 width=3 by lifts_gref, ex2_intro/ -| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #IHV #IHT #f1 #f2 #Ht - elim (IHV â¦ Ht) elim (IHT (â«¯f1) (â«¯f2)) -IHV -IHT - /3 width=5 by lifts_bind, after_O2, ex2_intro/ -| #f #I #V1 #V2 #T1 #T2 #_ #_ #IHV #IHT #f1 #f2 #Ht - elim (IHV â¦ Ht) elim (IHT â¦ Ht) -IHV -IHT -Ht - /3 width=5 by lifts_flat, ex2_intro/ -] -qed-. - -(* Note: apparently, this was missing in Basic_2A1 *) -lemma lifts_split_div: âf1,T1,T2. â¬*[f1] T1 â T2 â - âf2,f. f2 â f1 â f â - ââT. â¬*[f2] T2 â T & â¬*[f] T1 â T. -#f1 #T1 #T2 #H elim H -f1 -T1 -T2 -[ /3 width=3 by lifts_sort, ex2_intro/ -| #f1 #i1 #i2 #Hi #f2 #f #Ht elim (after_at1_fwd â¦ Hi â¦ Ht) -Hi -Ht - /3 width=3 by lifts_lref, ex2_intro/ -| /3 width=3 by lifts_gref, ex2_intro/ -| #f1 #p #I #V1 #V2 #T1 #T2 #_ #_ #IHV #IHT #f2 #f #Ht - elim (IHV â¦ Ht) elim (IHT (â«¯f2) (â«¯f)) -IHV -IHT - /3 width=5 by lifts_bind, after_O2, ex2_intro/ -| #f1 #I #V1 #V2 #T1 #T2 #_ #_ #IHV #IHT #f2 #f #Ht - elim (IHV â¦ Ht) elim (IHT â¦ Ht) -IHV -IHT -Ht - /3 width=5 by lifts_flat, ex2_intro/ -] -qed-. - -(* Basic_1: includes: dnf_dec2 dnf_dec *) -(* Basic_2A1: includes: is_lift_dec *) -lemma is_lifts_dec: âT2,f. Decidable (âT1. â¬*[f] T1 â T2). -#T1 elim T1 -T1 -[ * [1,3: /3 width=2 by lifts_sort, lifts_gref, ex_intro, or_introl/ ] - #i2 #f elim (is_at_dec f i2) // - [ * /4 width=3 by lifts_lref, ex_intro, or_introl/ - | #H @or_intror * - #X #HX elim (lifts_inv_lref2 â¦ HX) -HX - /3 width=2 by ex_intro/ - ] -| * [ #p ] #I #V2 #T2 #IHV2 #IHT2 #f - [ elim (IHV2 f) -IHV2 - [ * #V1 #HV12 elim (IHT2 (â«¯f)) -IHT2 - [ * #T1 #HT12 @or_introl /3 width=2 by lifts_bind, ex_intro/ - | -V1 #HT2 @or_intror * #X #H - elim (lifts_inv_bind2 â¦ H) -H /3 width=2 by ex_intro/ - ] - | -IHT2 #HV2 @or_intror * #X #H - elim (lifts_inv_bind2 â¦ H) -H /3 width=2 by ex_intro/ - ] - | elim (IHV2 f) -IHV2 - [ * #V1 #HV12 elim (IHT2 f) -IHT2 - [ * #T1 #HT12 /4 width=2 by lifts_flat, ex_intro, or_introl/ - | -V1 #HT2 @or_intror * #X #H - elim (lifts_inv_flat2 â¦ H) -H /3 width=2 by ex_intro/ - ] - | -IHT2 #HV2 @or_intror * #X #H - elim (lifts_inv_flat2 â¦ H) -H /3 width=2 by ex_intro/ - ] - ] -] -qed-. - -(* Properties with uniform relocation ***************************************) - -lemma lifts_uni: ân1,n2,T,U. â¬*[ðâ´n1âµâðâ´n2âµ] T â U â â¬*[n1+n2] T â U. -/3 width=4 by lifts_eq_repl_back, after_inv_total/ qed. - -(* Basic_2A1: removed theorems 14: - lifts_inv_nil lifts_inv_cons - lift_inv_Y1 lift_inv_Y2 lift_inv_lref_Y1 lift_inv_lref_Y2 lift_lref_Y lift_Y1 - lift_lref_lt_eq lift_lref_ge_eq lift_lref_plus lift_lref_pred - lift_lref_ge_minus lift_lref_ge_minus_eq -*) -(* Basic_1: removed theorems 8: - lift_lref_gt - lift_head lift_gen_head - lift_weight_map lift_weight lift_weight_add lift_weight_add_O - lift_tlt_dx -*) diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_bind.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_bind.ma deleted file mode 100644 index fd56f4e69..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_bind.ma +++ /dev/null @@ -1,71 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/syntax/ext2.ma". -include "basic_2/relocation/lifts.ma". - -(* GENERIC RELOCATION FOR BINDERS *******************************************) - -definition liftsb: rtmap â relation bind â - Î»f. ext2 (lifts f). - -interpretation "uniform relocation (binder for local environments)" - 'RLiftStar i I1 I2 = (liftsb (uni i) I1 I2). - -interpretation "generic relocation (binder for local environments)" - 'RLiftStar f I1 I2 = (liftsb f I1 I2). - -(* Basic_inversion lemmas **************************************************) - -lemma liftsb_inv_unit_sn: âf,I,Z2. â¬*[f] BUnit I â Z2 â Z2 = BUnit I. -/2 width=2 by ext2_inv_unit_sn/ qed-. - -lemma liftsb_inv_pair_sn: âf:rtmap. âZ2,I,V1. â¬*[f] BPair I V1 â Z2 â - ââV2. â¬*[f] V1 â V2 & Z2 = BPair I V2. -/2 width=1 by ext2_inv_pair_sn/ qed-. - -lemma liftsb_inv_unit_dx: âf,I,Z1. â¬*[f] Z1 â BUnit I â Z1 = BUnit I. -/2 width=2 by ext2_inv_unit_dx/ qed-. - -lemma liftsb_inv_pair_dx: âf:rtmap. âZ1,I,V2. â¬*[f] Z1 â BPair I V2 â - ââV1. â¬*[f] V1 â V2 & Z1 = BPair I V1. -/2 width=1 by ext2_inv_pair_dx/ qed-. - -(* Basic properties *********************************************************) - -lemma liftsb_eq_repl_back: âI1,I2. eq_repl_back â¦ (Î»f. â¬*[f] I1 â I2). -#I1 #I2 #f1 * -I1 -I2 /3 width=3 by lifts_eq_repl_back, ext2_pair/ -qed-. - -lemma liftsb_refl: âf. ðâ¦fâ¦ â reflexive â¦ (liftsb f). -/3 width=1 by lifts_refl, ext2_refl/ qed. - -lemma liftsb_total: âI1,f. âI2. â¬*[f] I1 â I2. -* [2: #I #T1 #f elim (lifts_total T1 f) ] -/3 width=2 by ext2_unit, ext2_pair, ex_intro/ -qed-. - -lemma liftsb_split_trans: âf,I1,I2. â¬*[f] I1 â I2 â - âf1,f2. f2 â f1 â f â - ââI. â¬*[f1] I1 â I & â¬*[f2] I â I2. -#f #I1 #I2 * -I1 -I2 /2 width=3 by ext2_unit, ex2_intro/ -#I #V1 #V2 #HV12 #f1 #f2 #Hf elim (lifts_split_trans â¦ HV12 â¦ Hf) -f -/3 width=3 by ext2_pair, ex2_intro/ -qed-. - -(* Basic forward lemmas *****************************************************) - -lemma liftsb_fwd_isid: âf,I1,I2. â¬*[f] I1 â I2 â ðâ¦fâ¦ â I1 = I2. -#f #I1 #I2 * -I1 -I2 /3 width=3 by lifts_fwd_isid, eq_f2/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_lifts.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_lifts.ma deleted file mode 100644 index 9d7fc61bf..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_lifts.ma +++ /dev/null @@ -1,130 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/relocation/lifts.ma". - -(* GENERIC RELOCATION FOR TERMS *********************************************) - -(* Main properties **********************************************************) - -(* Basic_1: includes: lift_gen_lift *) -(* Basic_2A1: includes: lift_div_le lift_div_be *) -theorem lifts_div4: âf2,Tf,T. â¬*[f2] Tf â T â âg2,Tg. â¬*[g2] Tg â T â - âf1,g1. H_at_div f2 g2 f1 g1 â - ââT0. â¬*[f1] T0 â Tf & â¬*[g1] T0 â Tg. -#f2 #Tf #T #H elim H -f2 -Tf -T -[ #f2 #s #g2 #Tg #H #f1 #g1 #_ - lapply (lifts_inv_sort2 â¦ H) -H #H destruct - /2 width=3 by ex2_intro/ -| #f2 #jf #j #Hf2 #g2 #Tg #H #f1 #g1 #H0 - elim (lifts_inv_lref2 â¦ H) -H #jg #Hg2 #H destruct - elim (H0 â¦ Hf2 Hg2) -H0 -j /3 width=3 by lifts_lref, ex2_intro/ -| #f2 #l #g2 #Tg #H #f1 #g1 #_ - lapply (lifts_inv_gref2 â¦ H) -H #H destruct - /2 width=3 by ex2_intro/ -| #f2 #p #I #Vf #V #Tf #T #_ #_ #IHV #IHT #g2 #X #H #f1 #g1 #H0 - elim (lifts_inv_bind2 â¦ H) -H #Vg #Tg #HVg #HTg #H destruct - elim (IHV â¦ HVg â¦ H0) -IHV -HVg - elim (IHT â¦ HTg) -IHT -HTg [ |*: /2 width=8 by at_div_pp/ ] - /3 width=5 by lifts_bind, ex2_intro/ -| #f2 #I #Vf #V #Tf #T #_ #_ #IHV #IHT #g2 #X #H #f1 #g1 #H0 - elim (lifts_inv_flat2 â¦ H) -H #Vg #Tg #HVg #HTg #H destruct - elim (IHV â¦ HVg â¦ H0) -IHV -HVg - elim (IHT â¦ HTg â¦ H0) -IHT -HTg -H0 - /3 width=5 by lifts_flat, ex2_intro/ -] -qed-. - -lemma lifts_div4_one: âf,Tf,T. â¬*[â«¯f] Tf â T â - âT1. â¬*[1] T1 â T â - ââT0. â¬*[1] T0 â Tf & â¬*[f] T0 â T1. -/4 width=6 by lifts_div4, at_div_id_dx, at_div_pn/ qed-. - -theorem lifts_div3: âf2,T,T2. â¬*[f2] T2 â T â âf,T1. â¬*[f] T1 â T â - âf1. f2 â f1 â f â â¬*[f1] T1 â T2. -#f2 #T #T2 #H elim H -f2 -T -T2 -[ #f2 #s #f #T1 #H >(lifts_inv_sort2 â¦ H) -T1 // -| #f2 #i2 #i #Hi2 #f #T1 #H #f1 #Ht21 elim (lifts_inv_lref2 â¦ H) -H - #i1 #Hi1 #H destruct /3 width=6 by lifts_lref, after_fwd_at1/ -| #f2 #l #f #T1 #H >(lifts_inv_gref2 â¦ H) -T1 // -| #f2 #p #I #W2 #W #U2 #U #_ #_ #IHW #IHU #f #T1 #H - elim (lifts_inv_bind2 â¦ H) -H #W1 #U1 #HW1 #HU1 #H destruct - /4 width=3 by lifts_bind, after_O2/ -| #f2 #I #W2 #W #U2 #U #_ #_ #IHW #IHU #f #T1 #H - elim (lifts_inv_flat2 â¦ H) -H #W1 #U1 #HW1 #HU1 #H destruct - /3 width=3 by lifts_flat/ -] -qed-. - -(* Basic_1: was: lift1_lift1 (left to right) *) -(* Basic_1: includes: lift_free (left to right) lift_d lift1_xhg (right to left) lift1_free (right to left) *) -(* Basic_2A1: includes: lift_trans_be lift_trans_le lift_trans_ge lifts_lift_trans_le lifts_lift_trans *) -theorem lifts_trans: âf1,T1,T. â¬*[f1] T1 â T â âf2,T2. â¬*[f2] T â T2 â - âf. f2 â f1 â f â â¬*[f] T1 â T2. -#f1 #T1 #T #H elim H -f1 -T1 -T -[ #f1 #s #f2 #T2 #H >(lifts_inv_sort1 â¦ H) -T2 // -| #f1 #i1 #i #Hi1 #f2 #T2 #H #f #Ht21 elim (lifts_inv_lref1 â¦ H) -H - #i2 #Hi2 #H destruct /3 width=6 by lifts_lref, after_fwd_at/ -| #f1 #l #f2 #T2 #H >(lifts_inv_gref1 â¦ H) -T2 // -| #f1 #p #I #W1 #W #U1 #U #_ #_ #IHW #IHU #f2 #T2 #H - elim (lifts_inv_bind1 â¦ H) -H #W2 #U2 #HW2 #HU2 #H destruct - /4 width=3 by lifts_bind, after_O2/ -| #f1 #I #W1 #W #U1 #U #_ #_ #IHW #IHU #f2 #T2 #H - elim (lifts_inv_flat1 â¦ H) -H #W2 #U2 #HW2 #HU2 #H destruct - /3 width=3 by lifts_flat/ -] -qed-. - -(* Basic_2A1: includes: lift_conf_O1 lift_conf_be *) -theorem lifts_conf: âf1,T,T1. â¬*[f1] T â T1 â âf,T2. â¬*[f] T â T2 â - âf2. f2 â f1 â f â â¬*[f2] T1 â T2. -#f1 #T #T1 #H elim H -f1 -T -T1 -[ #f1 #s #f #T2 #H >(lifts_inv_sort1 â¦ H) -T2 // -| #f1 #i #i1 #Hi1 #f #T2 #H #f2 #Ht21 elim (lifts_inv_lref1 â¦ H) -H - #i2 #Hi2 #H destruct /3 width=6 by lifts_lref, after_fwd_at2/ -| #f1 #l #f #T2 #H >(lifts_inv_gref1 â¦ H) -T2 // -| #f1 #p #I #W #W1 #U #U1 #_ #_ #IHW #IHU #f #T2 #H - elim (lifts_inv_bind1 â¦ H) -H #W2 #U2 #HW2 #HU2 #H destruct - /4 width=3 by lifts_bind, after_O2/ -| #f1 #I #W #W1 #U #U1 #_ #_ #IHW #IHU #f #T2 #H - elim (lifts_inv_flat1 â¦ H) -H #W2 #U2 #HW2 #HU2 #H destruct - /3 width=3 by lifts_flat/ -] -qed-. - -(* Advanced proprerties *****************************************************) - -(* Basic_2A1: includes: lift_inj *) -lemma lifts_inj: âf. is_inj2 â¦ (lifts f). -#f #T1 #U #H1 #T2 #H2 lapply (after_isid_dx ðð â¦ f) -/3 width=6 by lifts_div3, lifts_fwd_isid/ -qed-. - -(* Basic_2A1: includes: lift_mono *) -lemma lifts_mono: âf,T. is_mono â¦ (lifts f T). -#f #T #U1 #H1 #U2 #H2 lapply (after_isid_sn ðð â¦ f) -/3 width=6 by lifts_conf, lifts_fwd_isid/ -qed-. - -lemma liftable2_sn_bi: âR. liftable2_sn R â liftable2_bi R. -#R #HR #T1 #T2 #HT12 #f #U1 #HTU1 #U2 #HTU2 -elim (HR â¦ HT12 â¦ HTU1) -HR -T1 #X #HTX #HUX -<(lifts_mono â¦ HTX â¦ HTU2) -T2 -U2 -f // -qed-. - -lemma deliftable2_sn_bi: âR. deliftable2_sn R â deliftable2_bi R. -#R #HR #U1 #U2 #HU12 #f #T1 #HTU1 #T2 #HTU2 -elim (HR â¦ HU12 â¦ HTU1) -HR -U1 #X #HUX #HTX -<(lifts_inj â¦ HUX â¦ HTU2) -U2 -T2 -f // -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_lifts_bind.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_lifts_bind.ma deleted file mode 100644 index e1647b35b..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_lifts_bind.ma +++ /dev/null @@ -1,53 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/relocation/lifts_lifts.ma". -include "basic_2/relocation/lifts_bind.ma". - -(* GENERIC RELOCATION FOR BINDERS *******************************************) - -(* Main properties **********************************************************) - -theorem liftsb_div3: âf2,I,I2. â¬*[f2] I2 â I â âf,I1. â¬*[f] I1 â I â - âf1. f2 â f1 â f â â¬*[f1] I1 â I2. -#f2 #I #I2 * -I -I2 #I [2: #V #V2 #HV2 ] #f #I1 #H -[ elim (liftsb_inv_pair_dx â¦ H) | lapply (liftsb_inv_unit_dx â¦ H) ] -H -/3 width=6 by lifts_div3, ext2_pair, ext2_unit/ -qed-. - -theorem liftsb_trans: âf1,I1,I. â¬*[f1] I1 â I â âf2,I2. â¬*[f2] I â I2 â - âf. f2 â f1 â f â â¬*[f] I1 â I2. -#f1 #I1 #I * -I1 -I #I1 [2: #V1 #V #HV1 ] #f2 #I2 #H -[ elim (liftsb_inv_pair_sn â¦ H) | lapply (liftsb_inv_unit_sn â¦ H) ] -H -/3 width=6 by lifts_trans, ext2_pair, ext2_unit/ -qed-. - -theorem liftsb_conf: âf1,I,I1. â¬*[f1] I â I1 â âf,I2. â¬*[f] I â I2 â - âf2. f2 â f1 â f â â¬*[f2] I1 â I2. -#f1 #I #I1 * -I -I1 #I [2: #V #V1 #HV1 ] #f2 #I2 #H -[ elim (liftsb_inv_pair_sn â¦ H) | lapply (liftsb_inv_unit_sn â¦ H) ] -H -/3 width=6 by lifts_conf, ext2_pair, ext2_unit/ -qed-. - -(* Advanced proprerties *****************************************************) - -lemma liftsb_inj: âf. is_inj2 â¦ (liftsb f). -#f #T1 #U #H1 #T2 #H2 lapply (after_isid_dx ðð â¦ f) -/3 width=6 by liftsb_div3, liftsb_fwd_isid/ -qed-. - -lemma liftsb_mono: âf,T. is_mono â¦ (liftsb f T). -#f #T #U1 #H1 #U2 #H2 lapply (after_isid_sn ðð â¦ f) -/3 width=6 by liftsb_conf, liftsb_fwd_isid/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_lifts_vector.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_lifts_vector.ma deleted file mode 100644 index 26a4fbede..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_lifts_vector.ma +++ /dev/null @@ -1,53 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/relocation/lifts_lifts.ma". -include "basic_2/relocation/lifts_vector.ma". - -(* GENERIC RELOCATION FOR TERM VECTORS *************************************) - -(* Main properties **********************************************************) - -(* Basic_1: includes: lifts_inj *) -theorem liftsv_inj: âf,T1s,Us. â¬*[f] T1s â Us â - âT2s. â¬*[f] T2s â Us â T1s = T2s. -#f #T1s #Us #H elim H -T1s -Us -[ #T2s #H >(liftsv_inv_nil2 â¦ H) -H // -| #T1s #Us #T1 #U #HT1U #_ #IHT1Us #X #H destruct - elim (liftsv_inv_cons2 â¦ H) -H #T2 #T2s #HT2U #HT2Us #H destruct - >(lifts_inj â¦ HT1U â¦ HT2U) -U /3 width=1 by eq_f/ -] -qed-. - -(* Basic_2A1: includes: liftv_mono *) -theorem liftsv_mono: âf,Ts,U1s. â¬*[f] Ts â U1s â - âU2s. â¬*[f] Ts â U2s â U1s = U2s. -#f #Ts #U1s #H elim H -Ts -U1s -[ #U2s #H >(liftsv_inv_nil1 â¦ H) -H // -| #Ts #U1s #T #U1 #HTU1 #_ #IHTU1s #X #H destruct - elim (liftsv_inv_cons1 â¦ H) -H #U2 #U2s #HTU2 #HTU2s #H destruct - >(lifts_mono â¦ HTU1 â¦ HTU2) -T /3 width=1 by eq_f/ -] -qed-. - -(* Basic_1: includes: lifts1_xhg (right to left) *) -(* Basic_2A1: includes: liftsv_liftv_trans_le *) -theorem liftsv_trans: âf1,T1s,Ts. â¬*[f1] T1s â Ts â âT2s,f2. â¬*[f2] Ts â T2s â - âf. f2 â f1 â f â â¬*[f] T1s â T2s. -#f1 #T1s #Ts #H elim H -T1s -Ts -[ #T2s #f2 #H >(liftsv_inv_nil1 â¦ H) -T2s /2 width=3 by liftsv_nil/ -| #T1s #Ts #T1 #T #HT1 #_ #IHT1s #X #f2 #H elim (liftsv_inv_cons1 â¦ H) -H - #T2 #T2s #HT2 #HT2s #H destruct /3 width=6 by lifts_trans, liftsv_cons/ -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_simple.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_simple.ma deleted file mode 100644 index 7d436c7b7..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_simple.ma +++ /dev/null @@ -1,32 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/syntax/term_simple.ma". -include "basic_2/relocation/lifts.ma". - -(* GENERIC RELOCATION FOR TERMS *********************************************) - -(* Forward lemmas with simple terms *****************************************) - -(* Basic_2A1: includes: lift_simple_dx *) -lemma lifts_simple_dx: âf,T1,T2. â¬*[f] T1 â T2 â ðâ¦T1â¦ â ðâ¦T2â¦. -#f #T1 #T2 #H elim H -f -T1 -T2 // -#f #p #I #V1 #V2 #T1 #T2 #_ #_ #_ #_ #H elim (simple_inv_bind â¦ H) -qed-. - -(* Basic_2A1: includes: lift_simple_sn *) -lemma lifts_simple_sn: âf,T1,T2. â¬*[f] T1 â T2 â ðâ¦T2â¦ â ðâ¦T1â¦. -#f #T1 #T2 #H elim H -f -T1 -T2 // -#f #p #I #V1 #V2 #T1 #T2 #_ #_ #_ #_ #H elim (simple_inv_bind â¦ H) -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_tdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_tdeq.ma deleted file mode 100644 index 828ee58a9..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_tdeq.ma +++ /dev/null @@ -1,66 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/syntax/tdeq.ma". -include "basic_2/relocation/lifts_lifts.ma". - -(* GENERIC RELOCATION FOR TERMS *********************************************) - -(* Properties with degree-based equivalence for terms ***********************) - -lemma tdeq_lifts_sn: âh,o. liftable2_sn (tdeq h o). -#h #o #T1 #T2 #H elim H -T1 -T2 [||| * ] -[ #s1 #s2 #d #Hs1 #Hs2 #f #X #H >(lifts_inv_sort1 â¦ H) -H - /3 width=5 by lifts_sort, tdeq_sort, ex2_intro/ -| #i #f #X #H elim (lifts_inv_lref1 â¦ H) -H - /3 width=3 by lifts_lref, tdeq_lref, ex2_intro/ -| #l #f #X #H >(lifts_inv_gref1 â¦ H) -H - /2 width=3 by lifts_gref, tdeq_gref, ex2_intro/ -| #p #I #V1 #V2 #T1 #T2 #_ #_ #IHV #IHT #f #X #H elim (lifts_inv_bind1 â¦ H) -H - #W1 #U1 #HVW1 #HTU1 #H destruct - elim (IHV â¦ HVW1) -V1 elim (IHT â¦ HTU1) -T1 - /3 width=5 by lifts_bind, tdeq_pair, ex2_intro/ -| #I #V1 #V2 #T1 #T2 #_ #_ #IHV #IHT #f #X #H elim (lifts_inv_flat1 â¦ H) -H - #W1 #U1 #HVW1 #HTU1 #H destruct - elim (IHV â¦ HVW1) -V1 elim (IHT â¦ HTU1) -T1 - /3 width=5 by lifts_flat, tdeq_pair, ex2_intro/ -] -qed-. - -lemma tdeq_lifts_bi: âh,o. liftable2_bi (tdeq h o). -/3 width=6 by tdeq_lifts_sn, liftable2_sn_bi/ qed-. - -(* Inversion lemmas with degree-based equivalence for terms *****************) - -lemma tdeq_inv_lifts_sn: âh,o. deliftable2_sn (tdeq h o). -#h #o #U1 #U2 #H elim H -U1 -U2 [||| * ] -[ #s1 #s2 #d #Hs1 #Hs2 #f #X #H >(lifts_inv_sort2 â¦ H) -H - /3 width=5 by lifts_sort, tdeq_sort, ex2_intro/ -| #i #f #X #H elim (lifts_inv_lref2 â¦ H) -H - /3 width=3 by lifts_lref, tdeq_lref, ex2_intro/ -| #l #f #X #H >(lifts_inv_gref2 â¦ H) -H - /2 width=3 by lifts_gref, tdeq_gref, ex2_intro/ -| #p #I #W1 #W2 #U1 #U2 #_ #_ #IHW #IHU #f #X #H elim (lifts_inv_bind2 â¦ H) -H - #V1 #T1 #HVW1 #HTU1 #H destruct - elim (IHW â¦ HVW1) -W1 elim (IHU â¦ HTU1) -U1 - /3 width=5 by lifts_bind, tdeq_pair, ex2_intro/ -| #I #W1 #W2 #U1 #U2 #_ #_ #IHW #IHU #f #X #H elim (lifts_inv_flat2 â¦ H) -H - #V1 #T1 #HVW1 #HTU1 #H destruct - elim (IHW â¦ HVW1) -W1 elim (IHU â¦ HTU1) -U1 - /3 width=5 by lifts_flat, tdeq_pair, ex2_intro/ -] -qed-. - -lemma tdeq_inv_lifts_bi: âh,o. deliftable2_bi (tdeq h o). -/3 width=6 by tdeq_inv_lifts_sn, deliftable2_sn_bi/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_vector.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_vector.ma deleted file mode 100644 index 8e234a5c1..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_vector.ma +++ /dev/null @@ -1,137 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/syntax/term_vector.ma". -include "basic_2/relocation/lifts.ma". - -(* GENERIC RELOCATION FOR TERM VECTORS *************************************) - -(* Basic_2A1: includes: liftv_nil liftv_cons *) -inductive liftsv (f:rtmap): relation (list term) â -| liftsv_nil : liftsv f (âº) (âº) -| liftsv_cons: âT1s,T2s,T1,T2. - â¬*[f] T1 â T2 â liftsv f T1s T2s â - liftsv f (T1 â¨® T1s) (T2 â¨® T2s) -. - -interpretation "uniform relocation (term vector)" - 'RLiftStar i T1s T2s = (liftsv (uni i) T1s T2s). - -interpretation "generic relocation (term vector)" - 'RLiftStar f T1s T2s = (liftsv f T1s T2s). - -(* Basic inversion lemmas ***************************************************) - -fact liftsv_inv_nil1_aux: âf,X,Y. â¬*[f] X â Y â X = âº â Y = âº. -#f #X #Y * -X -Y // -#T1s #T2s #T1 #T2 #_ #_ #H destruct -qed-. - -(* Basic_2A1: includes: liftv_inv_nil1 *) -lemma liftsv_inv_nil1: âf,Y. â¬*[f] âº â Y â Y = âº. -/2 width=5 by liftsv_inv_nil1_aux/ qed-. - -fact liftsv_inv_cons1_aux: âf:rtmap. âX,Y. â¬*[f] X â Y â - âT1,T1s. X = T1 â¨® T1s â - ââT2,T2s. â¬*[f] T1 â T2 & â¬*[f] T1s â T2s & - Y = T2 â¨® T2s. -#f #X #Y * -X -Y -[ #U1 #U1s #H destruct -| #T1s #T2s #T1 #T2 #HT12 #HT12s #U1 #U1s #H destruct /2 width=5 by ex3_2_intro/ -] -qed-. - -(* Basic_2A1: includes: liftv_inv_cons1 *) -lemma liftsv_inv_cons1: âf:rtmap. âT1,T1s,Y. â¬*[f] T1 â¨® T1s â Y â - ââT2,T2s. â¬*[f] T1 â T2 & â¬*[f] T1s â T2s & - Y = T2 â¨® T2s. -/2 width=3 by liftsv_inv_cons1_aux/ qed-. - -fact liftsv_inv_nil2_aux: âf,X,Y. â¬*[f] X â Y â Y = âº â X = âº. -#f #X #Y * -X -Y // -#T1s #T2s #T1 #T2 #_ #_ #H destruct -qed-. - -lemma liftsv_inv_nil2: âf,X. â¬*[f] X â âº â X = âº. -/2 width=5 by liftsv_inv_nil2_aux/ qed-. - -fact liftsv_inv_cons2_aux: âf:rtmap. âX,Y. â¬*[f] X â Y â - âT2,T2s. Y = T2 â¨® T2s â - ââT1,T1s. â¬*[f] T1 â T2 & â¬*[f] T1s â T2s & - X = T1 â¨® T1s. -#f #X #Y * -X -Y -[ #U2 #U2s #H destruct -| #T1s #T2s #T1 #T2 #HT12 #HT12s #U2 #U2s #H destruct /2 width=5 by ex3_2_intro/ -] -qed-. - -lemma liftsv_inv_cons2: âf:rtmap. âX,T2,T2s. â¬*[f] X â T2 â¨® T2s â - ââT1,T1s. â¬*[f] T1 â T2 & â¬*[f] T1s â T2s & - X = T1 â¨® T1s. -/2 width=3 by liftsv_inv_cons2_aux/ qed-. - -(* Basic_1: was: lifts1_flat (left to right) *) -lemma lifts_inv_applv1: âf:rtmap. âV1s,U1,T2. â¬*[f] â¶ V1s.U1 â T2 â - ââV2s,U2. â¬*[f] V1s â V2s & â¬*[f] U1 â U2 & - T2 = â¶ V2s.U2. -#f #V1s elim V1s -V1s -[ /3 width=5 by ex3_2_intro, liftsv_nil/ -| #V1 #V1s #IHV1s #T1 #X #H elim (lifts_inv_flat1 â¦ H) -H - #V2 #Y #HV12 #HY #H destruct elim (IHV1s â¦ HY) -IHV1s -HY - #V2s #T2 #HV12s #HT12 #H destruct /3 width=5 by ex3_2_intro, liftsv_cons/ -] -qed-. - -lemma lifts_inv_applv2: âf:rtmap. âV2s,U2,T1. â¬*[f] T1 â â¶ V2s.U2 â - ââV1s,U1. â¬*[f] V1s â V2s & â¬*[f] U1 â U2 & - T1 = â¶ V1s.U1. -#f #V2s elim V2s -V2s -[ /3 width=5 by ex3_2_intro, liftsv_nil/ -| #V2 #V2s #IHV2s #T2 #X #H elim (lifts_inv_flat2 â¦ H) -H - #V1 #Y #HV12 #HY #H destruct elim (IHV2s â¦ HY) -IHV2s -HY - #V1s #T1 #HV12s #HT12 #H destruct /3 width=5 by ex3_2_intro, liftsv_cons/ -] -qed-. - -(* Basic properties *********************************************************) - -(* Basic_2A1: includes: liftv_total *) -lemma liftsv_total: âf. âT1s:list term. âT2s. â¬*[f] T1s â T2s. -#f #T1s elim T1s -T1s -[ /2 width=2 by liftsv_nil, ex_intro/ -| #T1 #T1s * #T2s #HT12s - elim (lifts_total T1 f) /3 width=2 by liftsv_cons, ex_intro/ -] -qed-. - -(* Basic_1: was: lifts1_flat (right to left) *) -lemma lifts_applv: âf:rtmap. âV1s,V2s. â¬*[f] V1s â V2s â - âT1,T2. â¬*[f] T1 â T2 â - â¬*[f] â¶ V1s.T1 â â¶ V2s.T2. -#f #V1s #V2s #H elim H -V1s -V2s /3 width=1 by lifts_flat/ -qed. - -lemma liftsv_split_trans: âf,T1s,T2s. â¬*[f] T1s â T2s â - âf1,f2. f2 â f1 â f â - ââTs. â¬*[f1] T1s â Ts & â¬*[f2] Ts â T2s. -#f #T1s #T2s #H elim H -T1s -T2s -[ /2 width=3 by liftsv_nil, ex2_intro/ -| #T1s #T2s #T1 #T2 #HT12 #_ #IH #f1 #f2 #Hf - elim (IH â¦ Hf) -IH - elim (lifts_split_trans â¦ HT12 â¦ Hf) -HT12 -Hf - /3 width=5 by liftsv_cons, ex2_intro/ -] -qed-. - -(* Basic_1: removed theorems 2: lifts1_nil lifts1_cons *) diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_weight.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_weight.ma deleted file mode 100644 index 3504082ba..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_weight.ma +++ /dev/null @@ -1,25 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/syntax/term_weight.ma". -include "basic_2/relocation/lifts.ma". - -(* GENERIC RELOCATION FOR TERMS *********************************************) - -(* Forward lemmas with weight for terms *************************************) - -(* Basic_2A1: includes: lift_fwd_tw *) -lemma lifts_fwd_tw: âf,T1,T2. â¬*[f] T1 â T2 â â¯{T1} = â¯{T2}. -#f #T1 #T2 #H elim H -f -T1 -T2 normalize // -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_weight_bind.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_weight_bind.ma deleted file mode 100644 index f15143117..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/lifts_weight_bind.ma +++ /dev/null @@ -1,25 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/syntax/bind_weight.ma". -include "basic_2/relocation/lifts_weight.ma". -include "basic_2/relocation/lifts_bind.ma". - -(* GENERIC RELOCATION FOR BINDERS *******************************************) - -(* Forward lemmas with weight for binders ***********************************) - -lemma liftsb_fwd_bw: âf,I1,I2. â¬*[f] I1 â I2 â â¯{I1} = â¯{I2}. -#f #I1 #I2 * -I1 -I2 /2 width=2 by lifts_fwd_tw/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/seq.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/seq.ma deleted file mode 100644 index 8b833f570..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/seq.ma +++ /dev/null @@ -1,103 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/notation/relations/ideqsn_3.ma". -include "basic_2/syntax/ceq_ext.ma". -include "basic_2/relocation/sex.ma". - -(* SYNTACTIC EQUIVALENCE FOR SELECTED LOCAL ENVIRONMENTS ********************) - -(* Basic_2A1: includes: lreq_atom lreq_zero lreq_pair lreq_succ *) -definition seq: relation3 rtmap lenv lenv â sex ceq_ext cfull. - -interpretation - "syntactic equivalence on selected entries (local environment)" - 'IdEqSn f L1 L2 = (seq f L1 L2). - -(* Basic properties *********************************************************) - -lemma seq_eq_repl_back: âL1,L2. eq_repl_back â¦ (Î»f. L1 â¡[f] L2). -/2 width=3 by sex_eq_repl_back/ qed-. - -lemma seq_eq_repl_fwd: âL1,L2. eq_repl_fwd â¦ (Î»f. L1 â¡[f] L2). -/2 width=3 by sex_eq_repl_fwd/ qed-. - -lemma sle_seq_trans: âf2,L1,L2. L1 â¡[f2] L2 â - âf1. f1 â f2 â L1 â¡[f1] L2. -/2 width=3 by sle_sex_trans/ qed-. - -(* Basic_2A1: includes: lreq_refl *) -lemma seq_refl: âf. reflexive â¦ (seq f). -/2 width=1 by sex_refl/ qed. - -(* Basic_2A1: includes: lreq_sym *) -lemma seq_sym: âf. symmetric â¦ (seq f). -/3 width=2 by sex_sym, cext2_sym/ qed-. - -(* Basic inversion lemmas ***************************************************) - -(* Basic_2A1: includes: lreq_inv_atom1 *) -lemma seq_inv_atom1: âf,Y. â â¡[f] Y â Y = â. -/2 width=4 by sex_inv_atom1/ qed-. - -(* Basic_2A1: includes: lreq_inv_pair1 *) -lemma seq_inv_next1: âg,J,K1,Y. K1.â{J} â¡[âg] Y â - ââK2. K1 â¡[g] K2 & Y = K2.â{J}. -#g #J #K1 #Y #H -elim (sex_inv_next1 â¦ H) -H #Z #K2 #HK12 #H1 #H2 destruct -<(ceq_ext_inv_eq â¦ H1) -Z /2 width=3 by ex2_intro/ -qed-. - -(* Basic_2A1: includes: lreq_inv_zero1 lreq_inv_succ1 *) -lemma seq_inv_push1: âg,J1,K1,Y. K1.â{J1} â¡[â«¯g] Y â - ââJ2,K2. K1 â¡[g] K2 & Y = K2.â{J2}. -#g #J1 #K1 #Y #H elim (sex_inv_push1 â¦ H) -H /2 width=4 by ex2_2_intro/ -qed-. - -(* Basic_2A1: includes: lreq_inv_atom2 *) -lemma seq_inv_atom2: âf,X. X â¡[f] â â X = â. -/2 width=4 by sex_inv_atom2/ qed-. - -(* Basic_2A1: includes: lreq_inv_pair2 *) -lemma seq_inv_next2: âg,J,X,K2. X â¡[âg] K2.â{J} â - ââK1. K1 â¡[g] K2 & X = K1.â{J}. -#g #J #X #K2 #H -elim (sex_inv_next2 â¦ H) -H #Z #K1 #HK12 #H1 #H2 destruct -<(ceq_ext_inv_eq â¦ H1) -J /2 width=3 by ex2_intro/ -qed-. - -(* Basic_2A1: includes: lreq_inv_zero2 lreq_inv_succ2 *) -lemma seq_inv_push2: âg,J2,X,K2. X â¡[â«¯g] K2.â{J2} â - ââJ1,K1. K1 â¡[g] K2 & X = K1.â{J1}. -#g #J2 #X #K2 #H elim (sex_inv_push2 â¦ H) -H /2 width=4 by ex2_2_intro/ -qed-. - -(* Basic_2A1: includes: lreq_inv_pair *) -lemma seq_inv_next: âf,I1,I2,L1,L2. L1.â{I1} â¡[âf] L2.â{I2} â - â§â§ L1 â¡[f] L2 & I1 = I2. -#f #I1 #I2 #L1 #L2 #H elim (sex_inv_next â¦ H) -H -/3 width=3 by ceq_ext_inv_eq, conj/ -qed-. - -(* Basic_2A1: includes: lreq_inv_succ *) -lemma seq_inv_push: âf,I1,I2,L1,L2. L1.â{I1} â¡[â«¯f] L2.â{I2} â L1 â¡[f] L2. -#f #I1 #I2 #L1 #L2 #H elim (sex_inv_push â¦ H) -H /2 width=1 by conj/ -qed-. - -lemma seq_inv_tl: âf,I,L1,L2. L1 â¡[â«±f] L2 â L1.â{I} â¡[f] L2.â{I}. -/2 width=1 by sex_inv_tl/ qed-. - -(* Basic_2A1: removed theorems 5: - lreq_pair_lt lreq_succ_lt lreq_pair_O_Y lreq_O2 lreq_inv_O_Y -*) diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/seq_length.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/seq_length.ma deleted file mode 100644 index 4055f6638..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/seq_length.ma +++ /dev/null @@ -1,24 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/relocation/sex_length.ma". -include "basic_2/relocation/seq.ma". - -(* SYNTACTIC EQUIVALENCE FOR SELECTED LOCAL ENVIRONMENTS ********************) - -(* Forward lemmas with length for local environments ************************) - -(* Basic_2A1: includes: lreq_fwd_length *) -lemma seq_fwd_length: âf,L1,L2. L1 â¡[f] L2 â |L1| = |L2|. -/2 width=4 by sex_fwd_length/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/seq_seq.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/seq_seq.ma deleted file mode 100644 index cd8dbe3ea..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/seq_seq.ma +++ /dev/null @@ -1,37 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/syntax/ceq_ext_ceq_ext.ma". -include "basic_2/relocation/sex_sex.ma". - -(* SYNTACTIC EQUIVALENCE FOR SELECTED LOCAL ENVIRONMENTS ********************) - -(* Main properties **********************************************************) - -theorem seq_trans: âf. Transitive â¦ (seq f). -/3 width=5 by sex_trans, ceq_ext_trans/ qed-. - -theorem seq_canc_sn: âf. left_cancellable â¦ (seq f). -/3 width=3 by sex_canc_sn, seq_trans, seq_sym/ qed-. - -theorem seq_canc_dx: âf. right_cancellable â¦ (seq f). -/3 width=3 by sex_canc_dx, seq_trans, seq_sym/ qed-. - -theorem seq_join: âf1,L1,L2. L1 â¡[f1] L2 â âf2. L1 â¡[f2] L2 â - âf. f1 â f2 â f â L1 â¡[f] L2. -/2 width=5 by sex_join/ qed-. - -theorem seq_meet: âf1,L1,L2. L1 â¡[f1] L2 â âf2. L1 â¡[f2] L2 â - âf. f1 â f2 â f â L1 â¡[f] L2. -/2 width=5 by sex_meet/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/sex.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/sex.ma deleted file mode 100644 index 96f62f93e..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/sex.ma +++ /dev/null @@ -1,296 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "ground_2/relocation/rtmap_sle.ma". -include "ground_2/relocation/rtmap_sdj.ma". -include "basic_2/notation/relations/relation_5.ma". -include "basic_2/syntax/lenv.ma". - -(* GENERIC ENTRYWISE EXTENSION OF CONTEXT-SENSITIVE REALTIONS FOR TERMS *****) - -inductive sex (RN,RP:relation3 lenv bind bind): rtmap â relation lenv â -| sex_atom: âf. sex RN RP f (â) (â) -| sex_next: âf,I1,I2,L1,L2. - sex RN RP f L1 L2 â RN L1 I1 I2 â - sex RN RP (âf) (L1.â{I1}) (L2.â{I2}) -| sex_push: âf,I1,I2,L1,L2. - sex RN RP f L1 L2 â RP L1 I1 I2 â - sex RN RP (â«¯f) (L1.â{I1}) (L2.â{I2}) -. - -interpretation "generic entrywise extension (local environment)" - 'Relation RN RP f L1 L2 = (sex RN RP f L1 L2). - -definition R_pw_confluent2_sex: relation3 lenv bind bind â relation3 lenv bind bind â - relation3 lenv bind bind â relation3 lenv bind bind â - relation3 lenv bind bind â relation3 lenv bind bind â - relation3 rtmap lenv bind â - Î»R1,R2,RN1,RP1,RN2,RP2,f,L0,I0. - âI1. R1 L0 I0 I1 â âI2. R2 L0 I0 I2 â - âL1. L0 âª¤[RN1, RP1, f] L1 â âL2. L0 âª¤[RN2, RP2, f] L2 â - ââI. R2 L1 I1 I & R1 L2 I2 I. - -definition sex_transitive: relation3 lenv bind bind â relation3 lenv bind bind â - relation3 lenv bind bind â - relation3 lenv bind bind â relation3 lenv bind bind â - relation3 rtmap lenv bind â - Î»R1,R2,R3,RN,RP,f,L1,I1. - âI. R1 L1 I1 I â âL2. L1 âª¤[RN, RP, f] L2 â - âI2. R2 L2 I I2 â R3 L1 I1 I2. - -(* Basic inversion lemmas ***************************************************) - -fact sex_inv_atom1_aux: âRN,RP,f,X,Y. X âª¤[RN, RP, f] Y â X = â â Y = â. -#RN #RP #f #X #Y * -f -X -Y // -#f #I1 #I2 #L1 #L2 #_ #_ #H destruct -qed-. - -(* Basic_2A1: includes lpx_sn_inv_atom1 *) -lemma sex_inv_atom1: âRN,RP,f,Y. â âª¤[RN, RP, f] Y â Y = â. -/2 width=6 by sex_inv_atom1_aux/ qed-. - -fact sex_inv_next1_aux: âRN,RP,f,X,Y. X âª¤[RN, RP, f] Y â âg,J1,K1. X = K1.â{J1} â f = âg â - ââJ2,K2. K1 âª¤[RN, RP, g] K2 & RN K1 J1 J2 & Y = K2.â{J2}. -#RN #RP #f #X #Y * -f -X -Y -[ #f #g #J1 #K1 #H destruct -| #f #I1 #I2 #L1 #L2 #HL #HI #g #J1 #K1 #H1 #H2 <(injective_next â¦ H2) -g destruct - /2 width=5 by ex3_2_intro/ -| #f #I1 #I2 #L1 #L2 #_ #_ #g #J1 #K1 #_ #H elim (discr_push_next â¦ H) -] -qed-. - -(* Basic_2A1: includes lpx_sn_inv_pair1 *) -lemma sex_inv_next1: âRN,RP,g,J1,K1,Y. K1.â{J1} âª¤[RN, RP, âg] Y â - ââJ2,K2. K1 âª¤[RN, RP, g] K2 & RN K1 J1 J2 & Y = K2.â{J2}. -/2 width=7 by sex_inv_next1_aux/ qed-. - -fact sex_inv_push1_aux: âRN,RP,f,X,Y. X âª¤[RN, RP, f] Y â âg,J1,K1. X = K1.â{J1} â f = â«¯g â - ââJ2,K2. K1 âª¤[RN, RP, g] K2 & RP K1 J1 J2 & Y = K2.â{J2}. -#RN #RP #f #X #Y * -f -X -Y -[ #f #g #J1 #K1 #H destruct -| #f #I1 #I2 #L1 #L2 #_ #_ #g #J1 #K1 #_ #H elim (discr_next_push â¦ H) -| #f #I1 #I2 #L1 #L2 #HL #HI #g #J1 #K1 #H1 #H2 <(injective_push â¦ H2) -g destruct - /2 width=5 by ex3_2_intro/ -] -qed-. - -lemma sex_inv_push1: âRN,RP,g,J1,K1,Y. K1.â{J1} âª¤[RN, RP, â«¯g] Y â - ââJ2,K2. K1 âª¤[RN, RP, g] K2 & RP K1 J1 J2 & Y = K2.â{J2}. -/2 width=7 by sex_inv_push1_aux/ qed-. - -fact sex_inv_atom2_aux: âRN,RP,f,X,Y. X âª¤[RN, RP, f] Y â Y = â â X = â. -#RN #RP #f #X #Y * -f -X -Y // -#f #I1 #I2 #L1 #L2 #_ #_ #H destruct -qed-. - -(* Basic_2A1: includes lpx_sn_inv_atom2 *) -lemma sex_inv_atom2: âRN,RP,f,X. X âª¤[RN, RP, f] â â X = â. -/2 width=6 by sex_inv_atom2_aux/ qed-. - -fact sex_inv_next2_aux: âRN,RP,f,X,Y. X âª¤[RN, RP, f] Y â âg,J2,K2. Y = K2.â{J2} â f = âg â - ââJ1,K1. K1 âª¤[RN, RP, g] K2 & RN K1 J1 J2 & X = K1.â{J1}. -#RN #RP #f #X #Y * -f -X -Y -[ #f #g #J2 #K2 #H destruct -| #f #I1 #I2 #L1 #L2 #HL #HI #g #J2 #K2 #H1 #H2 <(injective_next â¦ H2) -g destruct - /2 width=5 by ex3_2_intro/ -| #f #I1 #I2 #L1 #L2 #_ #_ #g #J2 #K2 #_ #H elim (discr_push_next â¦ H) -] -qed-. - -(* Basic_2A1: includes lpx_sn_inv_pair2 *) -lemma sex_inv_next2: âRN,RP,g,J2,X,K2. X âª¤[RN, RP, âg] K2.â{J2} â - ââJ1,K1. K1 âª¤[RN, RP, g] K2 & RN K1 J1 J2 & X = K1.â{J1}. -/2 width=7 by sex_inv_next2_aux/ qed-. - -fact sex_inv_push2_aux: âRN,RP,f,X,Y. X âª¤[RN, RP, f] Y â âg,J2,K2. Y = K2.â{J2} â f = â«¯g â - ââJ1,K1. K1 âª¤[RN, RP, g] K2 & RP K1 J1 J2 & X = K1.â{J1}. -#RN #RP #f #X #Y * -f -X -Y -[ #f #J2 #K2 #g #H destruct -| #f #I1 #I2 #L1 #L2 #_ #_ #g #J2 #K2 #_ #H elim (discr_next_push â¦ H) -| #f #I1 #I2 #L1 #L2 #HL #HI #g #J2 #K2 #H1 #H2 <(injective_push â¦ H2) -g destruct - /2 width=5 by ex3_2_intro/ -] -qed-. - -lemma sex_inv_push2: âRN,RP,g,J2,X,K2. X âª¤[RN, RP, â«¯g] K2.â{J2} â - ââJ1,K1. K1 âª¤[RN, RP, g] K2 & RP K1 J1 J2 & X = K1.â{J1}. -/2 width=7 by sex_inv_push2_aux/ qed-. - -(* Basic_2A1: includes lpx_sn_inv_pair *) -lemma sex_inv_next: âRN,RP,f,I1,I2,L1,L2. - L1.â{I1} âª¤[RN, RP, âf] L2.â{I2} â - L1 âª¤[RN, RP, f] L2 â§ RN L1 I1 I2. -#RN #RP #f #I1 #I2 #L1 #L2 #H elim (sex_inv_next1 â¦ H) -H -#I0 #L0 #HL10 #HI10 #H destruct /2 width=1 by conj/ -qed-. - -lemma sex_inv_push: âRN,RP,f,I1,I2,L1,L2. - L1.â{I1} âª¤[RN, RP, â«¯f] L2.â{I2} â - L1 âª¤[RN, RP, f] L2 â§ RP L1 I1 I2. -#RN #RP #f #I1 #I2 #L1 #L2 #H elim (sex_inv_push1 â¦ H) -H -#I0 #L0 #HL10 #HI10 #H destruct /2 width=1 by conj/ -qed-. - -lemma sex_inv_tl: âRN,RP,f,I1,I2,L1,L2. L1 âª¤[RN, RP, â«±f] L2 â - RN L1 I1 I2 â RP L1 I1 I2 â - L1.â{I1} âª¤[RN, RP, f] L2.â{I2}. -#RN #RP #f #I1 #I2 #L2 #L2 elim (pn_split f) * -/2 width=1 by sex_next, sex_push/ -qed-. - -(* Basic forward lemmas *****************************************************) - -lemma sex_fwd_bind: âRN,RP,f,I1,I2,L1,L2. - L1.â{I1} âª¤[RN, RP, f] L2.â{I2} â - L1 âª¤[RN, RP, â«±f] L2. -#RN #RP #f #I1 #I2 #L1 #L2 #Hf -elim (pn_split f) * #g #H destruct -[ elim (sex_inv_push â¦ Hf) | elim (sex_inv_next â¦ Hf) ] -Hf // -qed-. - -(* Basic properties *********************************************************) - -lemma sex_eq_repl_back: âRN,RP,L1,L2. eq_repl_back â¦ (Î»f. L1 âª¤[RN, RP, f] L2). -#RN #RP #L1 #L2 #f1 #H elim H -f1 -L1 -L2 // -#f1 #I1 #I2 #L1 #L2 #_ #HI #IH #f2 #H -[ elim (eq_inv_nx â¦ H) -H /3 width=3 by sex_next/ -| elim (eq_inv_px â¦ H) -H /3 width=3 by sex_push/ -] -qed-. - -lemma sex_eq_repl_fwd: âRN,RP,L1,L2. eq_repl_fwd â¦ (Î»f. L1 âª¤[RN, RP, f] L2). -#RN #RP #L1 #L2 @eq_repl_sym /2 width=3 by sex_eq_repl_back/ (**) (* full auto fails *) -qed-. - -lemma sex_refl: âRN,RP. c_reflexive â¦ RN â c_reflexive â¦ RP â - âf.reflexive â¦ (sex RN RP f). -#RN #RP #HRN #HRP #f #L generalize in match f; -f elim L -L // -#L #I #IH #f elim (pn_split f) * -#g #H destruct /2 width=1 by sex_next, sex_push/ -qed. - -lemma sex_sym: âRN,RP. - (âL1,L2,I1,I2. RN L1 I1 I2 â RN L2 I2 I1) â - (âL1,L2,I1,I2. RP L1 I1 I2 â RP L2 I2 I1) â - âf. symmetric â¦ (sex RN RP f). -#RN #RP #HRN #HRP #f #L1 #L2 #H elim H -L1 -L2 -f -/3 width=2 by sex_next, sex_push/ -qed-. - -lemma sex_pair_repl: âRN,RP,f,I1,I2,L1,L2. - L1.â{I1} âª¤[RN, RP, f] L2.â{I2} â - âJ1,J2. RN L1 J1 J2 â RP L1 J1 J2 â - L1.â{J1} âª¤[RN, RP, f] L2.â{J2}. -/3 width=3 by sex_inv_tl, sex_fwd_bind/ qed-. - -lemma sex_co: âRN1,RP1,RN2,RP2. RN1 â RN2 â RP1 â RP2 â - âf,L1,L2. L1 âª¤[RN1, RP1, f] L2 â L1 âª¤[RN2, RP2, f] L2. -#RN1 #RP1 #RN2 #RP2 #HRN #HRP #f #L1 #L2 #H elim H -f -L1 -L2 -/3 width=1 by sex_atom, sex_next, sex_push/ -qed-. - -lemma sex_co_isid: âRN1,RP1,RN2,RP2. RP1 â RP2 â - âf,L1,L2. L1 âª¤[RN1, RP1, f] L2 â ðâ¦fâ¦ â - L1 âª¤[RN2, RP2, f] L2. -#RN1 #RP1 #RN2 #RP2 #HR #f #L1 #L2 #H elim H -f -L1 -L2 // -#f #I1 #I2 #K1 #K2 #_ #HI12 #IH #H -[ elim (isid_inv_next â¦ H) -H // -| /4 width=3 by sex_push, isid_inv_push/ -] -qed-. - -lemma sex_sdj: âRN,RP. RP â RN â - âf1,L1,L2. L1 âª¤[RN, RP, f1] L2 â - âf2. f1 â¥ f2 â L1 âª¤[RP, RN, f2] L2. -#RN #RP #HR #f1 #L1 #L2 #H elim H -f1 -L1 -L2 // -#f1 #I1 #I2 #L1 #L2 #_ #HI12 #IH #f2 #H12 -[ elim (sdj_inv_nx â¦ H12) -H12 [2,3: // ] - #g2 #H #H2 destruct /3 width=1 by sex_push/ -| elim (sdj_inv_px â¦ H12) -H12 [2,4: // ] * - #g2 #H #H2 destruct /3 width=1 by sex_next, sex_push/ -] -qed-. - -lemma sle_sex_trans: âRN,RP. RN â RP â - âf2,L1,L2. L1 âª¤[RN, RP, f2] L2 â - âf1. f1 â f2 â L1 âª¤[RN, RP, f1] L2. -#RN #RP #HR #f2 #L1 #L2 #H elim H -f2 -L1 -L2 // -#f2 #I1 #I2 #L1 #L2 #_ #HI12 #IH #f1 #H12 -[ elim (pn_split f1) * ] -[ /4 width=5 by sex_push, sle_inv_pn/ -| /4 width=5 by sex_next, sle_inv_nn/ -| elim (sle_inv_xp â¦ H12) -H12 [2,3: // ] - #g1 #H #H1 destruct /3 width=5 by sex_push/ -] -qed-. - -lemma sle_sex_conf: âRN,RP. RP â RN â - âf1,L1,L2. L1 âª¤[RN, RP, f1] L2 â - âf2. f1 â f2 â L1 âª¤[RN, RP, f2] L2. -#RN #RP #HR #f1 #L1 #L2 #H elim H -f1 -L1 -L2 // -#f1 #I1 #I2 #L1 #L2 #_ #HI12 #IH #f2 #H12 -[2: elim (pn_split f2) * ] -[ /4 width=5 by sex_push, sle_inv_pp/ -| /4 width=5 by sex_next, sle_inv_pn/ -| elim (sle_inv_nx â¦ H12) -H12 [2,3: // ] - #g2 #H #H2 destruct /3 width=5 by sex_next/ -] -qed-. - -lemma sex_sle_split: âR1,R2,RP. c_reflexive â¦ R1 â c_reflexive â¦ R2 â - âf,L1,L2. L1 âª¤[R1, RP, f] L2 â âg. f â g â - ââL. L1 âª¤[R1, RP, g] L & L âª¤[R2, cfull, f] L2. -#R1 #R2 #RP #HR1 #HR2 #f #L1 #L2 #H elim H -f -L1 -L2 -[ /2 width=3 by sex_atom, ex2_intro/ ] -#f #I1 #I2 #L1 #L2 #_ #HI12 #IH #y #H -[ elim (sle_inv_nx â¦ H ??) -H [ |*: // ] #g #Hfg #H destruct - elim (IH â¦ Hfg) -IH -Hfg /3 width=5 by sex_next, ex2_intro/ -| elim (sle_inv_px â¦ H ??) -H [1,3: * |*: // ] #g #Hfg #H destruct - elim (IH â¦ Hfg) -IH -Hfg /3 width=5 by sex_next, sex_push, ex2_intro/ -] -qed-. - -lemma sex_sdj_split: âR1,R2,RP. c_reflexive â¦ R1 â c_reflexive â¦ R2 â - âf,L1,L2. L1 âª¤[R1, RP, f] L2 â âg. f â¥ g â - ââL. L1 âª¤[RP, R1, g] L & L âª¤[R2, cfull, f] L2. -#R1 #R2 #RP #HR1 #HR2 #f #L1 #L2 #H elim H -f -L1 -L2 -[ /2 width=3 by sex_atom, ex2_intro/ ] -#f #I1 #I2 #L1 #L2 #_ #HI12 #IH #y #H -[ elim (sdj_inv_nx â¦ H ??) -H [ |*: // ] #g #Hfg #H destruct - elim (IH â¦ Hfg) -IH -Hfg /3 width=5 by sex_next, sex_push, ex2_intro/ -| elim (sdj_inv_px â¦ H ??) -H [1,3: * |*: // ] #g #Hfg #H destruct - elim (IH â¦ Hfg) -IH -Hfg /3 width=5 by sex_next, sex_push, ex2_intro/ -] -qed-. - -lemma sex_dec: âRN,RP. - (âL,I1,I2. Decidable (RN L I1 I2)) â - (âL,I1,I2. Decidable (RP L I1 I2)) â - âL1,L2,f. Decidable (L1 âª¤[RN, RP, f] L2). -#RN #RP #HRN #HRP #L1 elim L1 -L1 [ * | #L1 #I1 #IH * ] -[ /2 width=1 by sex_atom, or_introl/ -| #L2 #I2 #f @or_intror #H - lapply (sex_inv_atom1 â¦ H) -H #H destruct -| #f @or_intror #H - lapply (sex_inv_atom2 â¦ H) -H #H destruct -| #L2 #I2 #f elim (IH L2 (â«±f)) -IH #HL12 - [2: /4 width=3 by sex_fwd_bind, or_intror/ ] - elim (pn_split f) * #g #H destruct - [ elim (HRP L1 I1 I2) | elim (HRN L1 I1 I2) ] -HRP -HRN #HV12 - [1,3: /3 width=1 by sex_push, sex_next, or_introl/ ] - @or_intror #H - [ elim (sex_inv_push â¦ H) | elim (sex_inv_next â¦ H) ] -H - /2 width=1 by/ -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/sex_length.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/sex_length.ma deleted file mode 100644 index 86473e631..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/sex_length.ma +++ /dev/null @@ -1,46 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/syntax/lenv_length.ma". -include "basic_2/relocation/sex.ma". - -(* GENERIC ENTRYWISE EXTENSION OF CONTEXT-SENSITIVE REALTIONS FOR TERMS *****) - -(* Forward lemmas with length for local environments ************************) - -lemma sex_fwd_length: âRN,RP,f,L1,L2. L1 âª¤[RN, RP, f] L2 â |L1| = |L2|. -#RN #RP #f #L1 #L2 #H elim H -f -L1 -L2 // -#f #I1 #I2 #L1 #L2 >length_bind >length_bind // -qed-. - -(* Properties with length for local environments ****************************) - -lemma sex_length_cfull: âL1,L2. |L1| = |L2| â âf. L1 âª¤[cfull, cfull, f] L2. -#L1 elim L1 -L1 -[ #Y2 #H >(length_inv_zero_sn â¦ H) -Y2 // -| #L1 #I1 #IH #Y2 #H #f - elim (length_inv_succ_sn â¦ H) -H #I2 #L2 #HL12 #H destruct - elim (pn_split f) * #g #H destruct /3 width=1 by sex_next, sex_push/ -] -qed. - -lemma sex_length_isid: âR,L1,L2. |L1| = |L2| â - âf. ðâ¦fâ¦ â L1 âª¤[R, cfull, f] L2. -#R #L1 elim L1 -L1 -[ #Y2 #H >(length_inv_zero_sn â¦ H) -Y2 // -| #L1 #I1 #IH #Y2 #H #f #Hf - elim (length_inv_succ_sn â¦ H) -H #I2 #L2 #HL12 #H destruct - elim (isid_inv_gen â¦ Hf) -Hf #g #Hg #H destruct /3 width=1 by sex_push/ -] -qed. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/sex_sex.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/sex_sex.ma deleted file mode 100644 index df181b7f6..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/sex_sex.ma +++ /dev/null @@ -1,119 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "ground_2/relocation/rtmap_sand.ma". -include "basic_2/relocation/drops.ma". - -(* GENERIC ENTRYWISE EXTENSION OF CONTEXT-SENSITIVE REALTIONS FOR TERMS *****) - -(* Main properties **********************************************************) - -theorem sex_trans_gen (RN1) (RP1) (RN2) (RP2) (RN) (RP): - âL1,f. - (âg,I,K,n. â¬*[n] L1 â K.â{I} â âg = â«±*[n] f â sex_transitive RN1 RN2 RN RN1 RP1 g K I) â - (âg,I,K,n. â¬*[n] L1 â K.â{I} â â«¯g = â«±*[n] f â sex_transitive RP1 RP2 RP RN1 RP1 g K I) â - âL0. L1 âª¤[RN1, RP1, f] L0 â - âL2. L0 âª¤[RN2, RP2, f] L2 â - L1 âª¤[RN, RP, f] L2. -#RN1 #RP1 #RN2 #RP2 #RN #RP #L1 elim L1 -L1 -[ #f #_ #_ #L0 #H1 #L2 #H2 - lapply (sex_inv_atom1 â¦ H1) -H1 #H destruct - lapply (sex_inv_atom1 â¦ H2) -H2 #H destruct - /2 width=1 by sex_atom/ -| #K1 #I1 #IH #f elim (pn_split f) * #g #H destruct - #HN #HP #L0 #H1 #L2 #H2 - [ elim (sex_inv_push1 â¦ H1) -H1 #I0 #K0 #HK10 #HI10 #H destruct - elim (sex_inv_push1 â¦ H2) -H2 #I2 #K2 #HK02 #HI02 #H destruct - lapply (HP â¦ 0 â¦ HI10 â¦ HK10 â¦ HI02) -HI10 -HI02 /2 width=2 by drops_refl/ #HI12 - lapply (IH â¦ HK10 â¦ HK02) -IH -K0 /3 width=3 by sex_push, drops_drop/ - | elim (sex_inv_next1 â¦ H1) -H1 #I0 #K0 #HK10 #HI10 #H destruct - elim (sex_inv_next1 â¦ H2) -H2 #I2 #K2 #HK02 #HI02 #H destruct - lapply (HN â¦ 0 â¦ HI10 â¦ HK10 â¦ HI02) -HI10 -HI02 /2 width=2 by drops_refl/ #HI12 - lapply (IH â¦ HK10 â¦ HK02) -IH -K0 /3 width=3 by sex_next, drops_drop/ - ] -] -qed-. - -theorem sex_trans (RN) (RP) (f): (âg,I,K. sex_transitive RN RN RN RN RP g K I) â - (âg,I,K. sex_transitive RP RP RP RN RP g K I) â - Transitive â¦ (sex RN RP f). -/2 width=9 by sex_trans_gen/ qed-. - -theorem sex_trans_id_cfull: âR1,R2,R3,L1,L,f. L1 âª¤[R1, cfull, f] L â ðâ¦fâ¦ â - âL2. L âª¤[R2, cfull, f] L2 â L1 âª¤[R3, cfull, f] L2. -#R1 #R2 #R3 #L1 #L #f #H elim H -L1 -L -f -[ #f #Hf #L2 #H >(sex_inv_atom1 â¦ H) -L2 // ] -#f #I1 #I #K1 #K #HK1 #_ #IH #Hf #L2 #H -[ elim (isid_inv_next â¦ Hf) | lapply (isid_inv_push â¦ Hf ??) ] -Hf [5: |*: // ] #Hf -elim (sex_inv_push1 â¦ H) -H #I2 #K2 #HK2 #_ #H destruct -/3 width=1 by sex_push/ -qed-. - -theorem sex_conf (RN1) (RP1) (RN2) (RP2): - âL,f. - (âg,I,K,n. â¬*[n] L â K.â{I} â âg = â«±*[n] f â R_pw_confluent2_sex RN1 RN2 RN1 RP1 RN2 RP2 g K I) â - (âg,I,K,n. â¬*[n] L â K.â{I} â â«¯g = â«±*[n] f â R_pw_confluent2_sex RP1 RP2 RN1 RP1 RN2 RP2 g K I) â - pw_confluent2 â¦ (sex RN1 RP1 f) (sex RN2 RP2 f) L. -#RN1 #RP1 #RN2 #RP2 #L elim L -L -[ #f #_ #_ #L1 #H1 #L2 #H2 >(sex_inv_atom1 â¦ H1) >(sex_inv_atom1 â¦ H2) -H2 -H1 - /2 width=3 by sex_atom, ex2_intro/ -| #L #I0 #IH #f elim (pn_split f) * #g #H destruct - #HN #HP #Y1 #H1 #Y2 #H2 - [ elim (sex_inv_push1 â¦ H1) -H1 #I1 #L1 #HL1 #HI01 #H destruct - elim (sex_inv_push1 â¦ H2) -H2 #I2 #L2 #HL2 #HI02 #H destruct - elim (HP â¦ 0 â¦ HI01 â¦ HI02 â¦ HL1 â¦ HL2) -HI01 -HI02 /2 width=2 by drops_refl/ #I #HI1 #HI2 - elim (IH â¦ HL1 â¦ HL2) -IH -HL1 -HL2 /3 width=5 by drops_drop, sex_push, ex2_intro/ - | elim (sex_inv_next1 â¦ H1) -H1 #I1 #L1 #HL1 #HI01 #H destruct - elim (sex_inv_next1 â¦ H2) -H2 #I2 #L2 #HL2 #HI02 #H destruct - elim (HN â¦ 0 â¦ HI01 â¦ HI02 â¦ HL1 â¦ HL2) -HI01 -HI02 /2 width=2 by drops_refl/ #I #HI1 #HI2 - elim (IH â¦ HL1 â¦ HL2) -IH -HL1 -HL2 /3 width=5 by drops_drop, sex_next, ex2_intro/ - ] -] -qed-. - -theorem sex_canc_sn: âRN,RP,f. Transitive â¦ (sex RN RP f) â - symmetric â¦ (sex RN RP f) â - left_cancellable â¦ (sex RN RP f). -/3 width=3 by/ qed-. - -theorem sex_canc_dx: âRN,RP,f. Transitive â¦ (sex RN RP f) â - symmetric â¦ (sex RN RP f) â - right_cancellable â¦ (sex RN RP f). -/3 width=3 by/ qed-. - -lemma sex_meet: âRN,RP,L1,L2. - âf1. L1 âª¤[RN, RP, f1] L2 â - âf2. L1 âª¤[RN, RP, f2] L2 â - âf. f1 â f2 â f â L1 âª¤[RN, RP, f] L2. -#RN #RP #L1 #L2 #f1 #H elim H -f1 -L1 -L2 // -#f1 #I1 #I2 #L1 #L2 #_ #HI12 #IH #f2 #H #f #Hf -elim (pn_split f2) * #g2 #H2 destruct -try elim (sex_inv_push â¦ H) try elim (sex_inv_next â¦ H) -H -[ elim (sand_inv_npx â¦ Hf) | elim (sand_inv_nnx â¦ Hf) -| elim (sand_inv_ppx â¦ Hf) | elim (sand_inv_pnx â¦ Hf) -] -Hf /3 width=5 by sex_next, sex_push/ -qed-. - -lemma sex_join: âRN,RP,L1,L2. - âf1. L1 âª¤[RN, RP, f1] L2 â - âf2. L1 âª¤[RN, RP, f2] L2 â - âf. f1 â f2 â f â L1 âª¤[RN, RP, f] L2. -#RN #RP #L1 #L2 #f1 #H elim H -f1 -L1 -L2 // -#f1 #I1 #I2 #L1 #L2 #_ #HI12 #IH #f2 #H #f #Hf -elim (pn_split f2) * #g2 #H2 destruct -try elim (sex_inv_push â¦ H) try elim (sex_inv_next â¦ H) -H -[ elim (sor_inv_npx â¦ Hf) | elim (sor_inv_nnx â¦ Hf) -| elim (sor_inv_ppx â¦ Hf) | elim (sor_inv_pnx â¦ Hf) -] -Hf /3 width=5 by sex_next, sex_push/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/sex_tc.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/sex_tc.ma deleted file mode 100644 index b2134410b..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/sex_tc.ma +++ /dev/null @@ -1,119 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "ground_2/lib/star.ma". -include "basic_2/relocation/sex.ma". - -(* GENERIC ENTRYWISE EXTENSION OF CONTEXT-SENSITIVE REALTIONS FOR TERMS *****) - -definition s_rs_transitive_isid: relation (relation3 lenv bind bind) â Î»RN,RP. - âf. ðâ¦fâ¦ â s_rs_transitive â¦ RP (Î»_.sex RN RP f). - -(* Properties with transitive closure ***************************************) - -lemma sex_tc_refl: âRN,RP. c_reflexive â¦ RN â c_reflexive â¦ RP â - âf. reflexive â¦ (TC â¦ (sex RN RP f)). -/3 width=1 by sex_refl, TC_reflexive/ qed. - -lemma sex_tc_next_sn: âRN,RP. c_reflexive â¦ RN â - âf,I2,L1,L2. TC â¦ (sex RN RP f) L1 L2 â âI1. RN L1 I1 I2 â - TC â¦ (sex RN RP (âf)) (L1.â{I1}) (L2.â{I2}). -#RN #RP #HRN #f #I2 #L1 #L2 #H @(TC_ind_dx ??????? H) -L1 -/3 width=3 by sex_next, TC_strap, inj/ -qed. - -lemma sex_tc_next_dx: âRN,RP. c_reflexive â¦ RN â c_reflexive â¦ RP â - âf,I1,I2,L1. (CTC â¦ RN) L1 I1 I2 â âL2. L1 âª¤[RN, RP, f] L2 â - TC â¦ (sex RN RP (âf)) (L1.â{I1}) (L2.â{I2}). -#RN #RP #HRN #HRP #f #I1 #I2 #L1 #H elim H -I2 -/4 width=5 by sex_refl, sex_next, step, inj/ -qed. - -lemma sex_tc_push_sn: âRN,RP. c_reflexive â¦ RP â - âf,I2,L1,L2. TC â¦ (sex RN RP f) L1 L2 â âI1. RP L1 I1 I2 â - TC â¦ (sex RN RP (â«¯f)) (L1.â{I1}) (L2.â{I2}). -#RN #RP #HRP #f #I2 #L1 #L2 #H @(TC_ind_dx ??????? H) -L1 -/3 width=3 by sex_push, TC_strap, inj/ -qed. - -lemma sex_tc_push_dx: âRN,RP. c_reflexive â¦ RN â c_reflexive â¦ RP â - âf,I1,I2,L1. (CTC â¦ RP) L1 I1 I2 â âL2. L1 âª¤[RN, RP, f] L2 â - TC â¦ (sex RN RP (â«¯f)) (L1.â{I1}) (L2.â{I2}). -#RN #RP #HRN #HRP #f #I1 #I2 #L1 #H elim H -I2 -/4 width=5 by sex_refl, sex_push, step, inj/ -qed. - -lemma sex_tc_inj_sn: âRN,RP,f,L1,L2. L1 âª¤[RN, RP, f] L2 â L1 âª¤[CTC â¦ RN, RP, f] L2. -#RN #RP #f #L1 #L2 #H elim H -f -L1 -L2 -/3 width=1 by sex_push, sex_next, inj/ -qed. - -lemma sex_tc_inj_dx: âRN,RP,f,L1,L2. L1 âª¤[RN, RP, f] L2 â L1 âª¤[RN, CTC â¦ RP, f] L2. -#RN #RP #f #L1 #L2 #H elim H -f -L1 -L2 -/3 width=1 by sex_push, sex_next, inj/ -qed. - -(* Main properties with transitive closure **********************************) - -theorem sex_tc_next: âRN,RP. c_reflexive â¦ RN â c_reflexive â¦ RP â - âf,I1,I2,L1. (CTC â¦ RN) L1 I1 I2 â âL2. TC â¦ (sex RN RP f) L1 L2 â - TC â¦ (sex RN RP (âf)) (L1.â{I1}) (L2.â{I2}). -#RN #RP #HRN #HRP #f #I1 #I2 #L1 #H elim H -I2 -/4 width=5 by sex_tc_next_sn, sex_tc_refl, trans_TC/ -qed. - -theorem sex_tc_push: âRN,RP. c_reflexive â¦ RN â c_reflexive â¦ RP â - âf,I1,I2,L1. (CTC â¦ RP) L1 I1 I2 â âL2. TC â¦ (sex RN RP f) L1 L2 â - TC â¦ (sex RN RP (â«¯f)) (L1.â{I1}) (L2.â{I2}). -#RN #RP #HRN #HRP #f #I1 #I2 #L1 #H elim H -I2 -/4 width=5 by sex_tc_push_sn, sex_tc_refl, trans_TC/ -qed. - -(* Basic_2A1: uses: TC_lpx_sn_ind *) -theorem sex_tc_step_dx: âRN,RP. s_rs_transitive_isid RN RP â - âf,L1,L. L1 âª¤[RN, RP, f] L â ðâ¦fâ¦ â - âL2. L âª¤[RN, CTC â¦ RP, f] L2 â L1âª¤ [RN, CTC â¦ RP, f] L2. -#RN #RP #HRP #f #L1 #L #H elim H -f -L1 -L -[ #f #_ #Y #H -HRP >(sex_inv_atom1 â¦ H) -Y // ] -#f #I1 #I #L1 #L #HL1 #HI1 #IH #Hf #Y #H -[ elim (isid_inv_next â¦ Hf) -Hf // -| lapply (isid_inv_push â¦ Hf ??) -Hf [3: |*: // ] #Hf - elim (sex_inv_push1 â¦ H) -H #I2 #L2 #HL2 #HI2 #H destruct - @sex_push [ /2 width=1 by/ ] -L2 -IH - @(TC_strap â¦ HI1) -HI1 - @(HRP â¦ HL1) // (**) (* auto fails *) -] -qed-. - -(* Advanced properties ******************************************************) - -lemma sex_tc_dx: âRN,RP. s_rs_transitive_isid RN RP â - âf. ðâ¦fâ¦ â âL1,L2. TC â¦ (sex RN RP f) L1 L2 â L1 âª¤[RN, CTC â¦ RP, f] L2. -#RN #RP #HRP #f #Hf #L1 #L2 #H @(TC_ind_dx ??????? H) -L1 -/3 width=3 by sex_tc_step_dx, sex_tc_inj_dx/ -qed. - -(* Advanced inversion lemmas ************************************************) - -lemma sex_inv_tc_sn: âRN,RP. c_reflexive â¦ RN â c_reflexive â¦ RP â - âf,L1,L2. L1 âª¤[CTC â¦ RN, RP, f] L2 â TC â¦ (sex RN RP f) L1 L2. -#RN #RP #HRN #HRP #f #L1 #L2 #H elim H -f -L1 -L2 -/2 width=1 by sex_tc_next, sex_tc_push_sn, sex_atom, inj/ -qed-. - -lemma sex_inv_tc_dx: âRN,RP. c_reflexive â¦ RN â c_reflexive â¦ RP â - âf,L1,L2. L1 âª¤[RN, CTC â¦ RP, f] L2 â TC â¦ (sex RN RP f) L1 L2. -#RN #RP #HRN #HRP #f #L1 #L2 #H elim H -f -L1 -L2 -/2 width=1 by sex_tc_push, sex_tc_next_sn, sex_atom, inj/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpms_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpms_drops.ma index dce2cecf5..0e1d62090 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpms_drops.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpms_drops.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/relocation/drops_ltc.ma". +include "static_2/relocation/drops_ltc.ma". include "basic_2/rt_transition/cpm_drops.ma". include "basic_2/rt_computation/cpms.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cprs_ext.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cprs_ext.ma index 01da390f0..e69b27a31 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cprs_ext.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cprs_ext.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/syntax/cext2.ma". +include "static_2/syntax/cext2.ma". include "basic_2/rt_computation/cpms.ma". (* CONTEXT-SENSITIVE PARALLEL R-COMPUTATION FOR BINDERS *********************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_drops.ma index aac7f8c36..c42f94f83 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_drops.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_drops.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/relocation/drops_ctc.ma". +include "static_2/relocation/drops_ctc.ma". include "basic_2/rt_transition/cpx_drops.ma". include "basic_2/rt_computation/cpxs.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_ext.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_ext.ma index c600cc7d0..c3280871a 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_ext.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_ext.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/syntax/cext2.ma". +include "static_2/syntax/cext2.ma". include "basic_2/rt_computation/cpxs.ma". (* UNBOUND CONTEXT-SENSITIVE PARALLEL RT-COMPUTATION FOR BINDERS ************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_fdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_fdeq.ma index 16675efdb..1db09aeb5 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_fdeq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_fdeq.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/fdeq.ma". +include "static_2/static/fdeq.ma". include "basic_2/rt_computation/cpxs_rdeq.ma". (* UNBOUND CONTEXT-SENSITIVE PARALLEL RT-COMPUTATION FOR TERMS **************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_theq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_theq.ma index ae05d817e..d9e982b5e 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_theq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_theq.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/syntax/theq_tdeq.ma". +include "static_2/syntax/theq_tdeq.ma". include "basic_2/rt_computation/cpxs_lsubr.ma". include "basic_2/rt_computation/cpxs_cnx.ma". include "basic_2/rt_computation/lpxs_cpxs.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_theq_vector.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_theq_vector.ma index 9fb405b0c..147867a8b 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_theq_vector.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_theq_vector.ma @@ -12,8 +12,8 @@ (* *) (**************************************************************************) -include "basic_2/syntax/theq_simple_vector.ma". -include "basic_2/relocation/lifts_vector.ma". +include "static_2/syntax/theq_simple_vector.ma". +include "static_2/relocation/lifts_vector.ma". include "basic_2/rt_computation/cpxs_theq.ma". (* UNBOUND CONTEXT-SENSITIVE PARALLEL RT-COMPUTATION FOR TERMS **************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx.ma index da0bbe1ee..4c8371a0b 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx.ma @@ -13,7 +13,7 @@ (**************************************************************************) include "basic_2/notation/relations/predtystrong_5.ma". -include "basic_2/syntax/tdeq.ma". +include "static_2/syntax/tdeq.ma". include "basic_2/rt_transition/cpx.ma". (* STRONGLY NORMALIZING TERMS FOR UNBOUND PARALLEL RT-TRANSITION ************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_aaa.ma index 4d54a74a5..6cc0664aa 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_aaa.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_aaa.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/gcp_aaa.ma". +include "static_2/static/gcp_aaa.ma". include "basic_2/rt_computation/cpxs_aaa.ma". include "basic_2/rt_computation/csx_gcp.ma". include "basic_2/rt_computation/csx_gcr.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_drops.ma index 84c7ec146..c0ecbf084 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_drops.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_drops.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/relocation/lifts_tdeq.ma". +include "static_2/relocation/lifts_tdeq.ma". include "basic_2/rt_transition/cpx_drops.ma". include "basic_2/rt_computation/csx.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_fdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_fdeq.ma index f8978c4cd..7c58163b3 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_fdeq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_fdeq.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/fdeq.ma". +include "static_2/static/fdeq.ma". include "basic_2/rt_computation/csx_rdeq.ma". (* STRONGLY NORMALIZING TERMS FOR UNBOUND PARALLEL RT-TRANSITION ************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_fqus.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_fqus.ma index 69cf8e20a..0943a9add 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_fqus.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_fqus.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/s_computation/fqus.ma". +include "static_2/s_computation/fqus.ma". include "basic_2/rt_computation/csx_lsubr.ma". (* STRONGLY NORMALIZING TERMS FOR UNBOUND PARALLEL RT-TRANSITION ************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_gcp.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_gcp.ma index 8ff4067e0..f5b170930 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_gcp.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_gcp.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/gcp.ma". +include "static_2/static/gcp.ma". include "basic_2/rt_transition/cnx_drops.ma". include "basic_2/rt_computation/csx_drops.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_gcr.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_gcr.ma index 668b023d5..03970d35b 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_gcr.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_gcr.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/gcp_cr.ma". +include "static_2/static/gcp_cr.ma". include "basic_2/rt_computation/csx_cnx_vector.ma". include "basic_2/rt_computation/csx_csx_vector.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_simple_theq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_simple_theq.ma index 54ef85a48..cc286ae6a 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_simple_theq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_simple_theq.ma @@ -12,8 +12,8 @@ (* *) (**************************************************************************) -include "basic_2/syntax/theq_simple.ma". -include "basic_2/syntax/theq_theq.ma". +include "static_2/syntax/theq_simple.ma". +include "static_2/syntax/theq_theq.ma". include "basic_2/rt_transition/cpx_simple.ma". include "basic_2/rt_computation/cpxs.ma". include "basic_2/rt_computation/csx_csx.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_vector.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_vector.ma index 5d0552b95..32afe79a4 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_vector.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_vector.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/syntax/term_vector.ma". +include "static_2/syntax/term_vector.ma". include "basic_2/rt_computation/csx.ma". (* STRONGLY NORMALIZING TERMS VECTORS FOR UNBOUND PARALLEL RT-TRANSITION ****) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbg_fpbs.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbg_fpbs.ma index 5608b1ff8..3641326f8 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbg_fpbs.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbg_fpbs.ma @@ -12,8 +12,8 @@ (* *) (**************************************************************************) -include "basic_2/static/fdeq_fqup.ma". -include "basic_2/static/fdeq_fdeq.ma". +include "static_2/static/fdeq_fqup.ma". +include "static_2/static/fdeq_fdeq.ma". include "basic_2/rt_transition/fpbq_fpb.ma". include "basic_2/rt_computation/fpbg.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_fqup.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_fqup.ma index b1e12a7a6..b625f889b 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_fqup.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_fqup.ma @@ -12,8 +12,8 @@ (* *) (**************************************************************************) -include "basic_2/s_computation/fqus_fqup.ma". -include "basic_2/static/fdeq_fqup.ma". +include "static_2/s_computation/fqus_fqup.ma". +include "static_2/static/fdeq_fqup.ma". include "basic_2/rt_computation/fpbs_fqus.ma". (* PARALLEL RST-COMPUTATION FOR CLOSURES ************************************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_fqus.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_fqus.ma index 3c8274371..db3925f71 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_fqus.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_fqus.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/s_computation/fqus.ma". +include "static_2/s_computation/fqus.ma". include "basic_2/rt_computation/fpbs.ma". (* PARALLEL RST-COMPUTATION FOR CLOSURES ************************************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_lpxs.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_lpxs.ma index 3a67b6f49..2760e2a33 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_lpxs.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/fpbs_lpxs.ma @@ -12,8 +12,8 @@ (* *) (**************************************************************************) -include "basic_2/static/fdeq_fqus.ma". -include "basic_2/static/fdeq_fdeq.ma". +include "static_2/static/fdeq_fqus.ma". +include "static_2/static/fdeq_fdeq.ma". include "basic_2/rt_computation/cpxs_fqus.ma". include "basic_2/rt_computation/cpxs_fdeq.ma". include "basic_2/rt_computation/lpxs_fdeq.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs.ma index 1ee9f365b..880278d22 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs.ma @@ -13,7 +13,7 @@ (**************************************************************************) include "basic_2/notation/relations/predsnstar_4.ma". -include "basic_2/relocation/lex.ma". +include "static_2/relocation/lex.ma". include "basic_2/rt_computation/cprs_ext.ma". (* PARALLEL R-COMPUTATION FOR FULL LOCAL ENVIRONMENTS ***********************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_drops.ma index aeef8e87a..ae0bcc6b4 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_drops.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_drops.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/relocation/drops_lex.ma". +include "static_2/relocation/drops_lex.ma". include "basic_2/rt_computation/cpms_drops.ma". (* PARALLEL R-COMPUTATION FOR FULL LOCAL ENVIRONMENTS ***********************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_length.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_length.ma index a488b1a3f..ae38e76a4 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_length.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_length.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/relocation/lex_length.ma". +include "static_2/relocation/lex_length.ma". include "basic_2/rt_computation/lprs.ma". (* PARALLEL R-COMPUTATION FOR FULL LOCAL ENVIRONMENTS ***********************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_tc.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_tc.ma index cec8e47f5..122051b4d 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_tc.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lprs_tc.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/relocation/lex_tc.ma". +include "static_2/relocation/lex_tc.ma". include "basic_2/rt_computation/lprs_ctc.ma". include "basic_2/rt_computation/cprs_lpr.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs.ma index 61fa33126..322f43712 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs.ma @@ -13,7 +13,7 @@ (**************************************************************************) include "basic_2/notation/relations/predtysnstar_4.ma". -include "basic_2/relocation/lex.ma". +include "static_2/relocation/lex.ma". include "basic_2/rt_computation/cpxs_ext.ma". (* UNBOUND PARALLEL RT-COMPUTATION FOR FULL LOCAL ENVIRONMENTS **************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_drops.ma index 0482e3d19..9578dad4e 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_drops.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_drops.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/relocation/drops_lex.ma". +include "static_2/relocation/drops_lex.ma". include "basic_2/rt_computation/cpxs_drops.ma". (* UNBOUND PARALLEL RT-COMPUTATION FOR FULL LOCAL ENVIRONMENTS **************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_fdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_fdeq.ma index 3a280f96f..8a5676cc0 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_fdeq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_fdeq.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/fdeq.ma". +include "static_2/static/fdeq.ma". include "basic_2/rt_computation/lpxs_rdeq.ma". (* UNBOUND PARALLEL RT-COMPUTATION FOR FULL LOCAL ENVIRONMENTS **************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_length.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_length.ma index 46dbd458d..fd664b95c 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_length.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_length.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/relocation/lex_length.ma". +include "static_2/relocation/lex_length.ma". include "basic_2/rt_computation/lpxs.ma". (* UNBOUND PARALLEL RT-COMPUTATION FOR FULL LOCAL ENVIRONMENTS **************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_lpx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_lpx.ma index 96def5301..52a418617 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_lpx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_lpx.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/relocation/lex_tc.ma". +include "static_2/relocation/lex_tc.ma". include "basic_2/rt_computation/cpxs_lpx.ma". include "basic_2/rt_computation/lpxs.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_lpxs.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_lpxs.ma index 861762abd..e20b65982 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_lpxs.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lpxs_lpxs.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/relocation/lex_lex.ma". +include "static_2/relocation/lex_lex.ma". include "basic_2/rt_computation/lpxs_lpx.ma". (* UNBOUND PARALLEL RT-COMPUTATION FOR FULL LOCAL ENVIRONMENTS **************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx.ma index 3ec296cfa..5b62dbae1 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx.ma @@ -13,7 +13,7 @@ (**************************************************************************) include "basic_2/notation/relations/predtysnstrong_5.ma". -include "basic_2/static/rdeq.ma". +include "static_2/static/rdeq.ma". include "basic_2/rt_transition/lpx.ma". (* STRONGLY NORMALIZING REFERRED LOCAL ENV.S FOR UNBOUND RT-TRANSITION ******) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx_drops.ma index 6f0cc4da0..ed5e99053 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx_drops.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx_drops.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/rdeq_drops.ma". +include "static_2/static/rdeq_drops.ma". include "basic_2/rt_transition/lpx_drops.ma". include "basic_2/rt_computation/rdsx_length.ma". include "basic_2/rt_computation/rdsx_fqup.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx_fqup.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx_fqup.ma index 6216111e0..2913cb998 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx_fqup.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx_fqup.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/rdeq_fqup.ma". +include "static_2/static/rdeq_fqup.ma". include "basic_2/rt_computation/rdsx.ma". (* STRONGLY NORMALIZING REFERRED LOCAL ENV.S FOR UNBOUND RT-TRANSITION ******) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx_length.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx_length.ma index e6ccab06a..22451994b 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx_length.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/rdsx_length.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/rdeq_length.ma". +include "static_2/static/rdeq_length.ma". include "basic_2/rt_transition/lpx_length.ma". include "basic_2/rt_computation/rdsx.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx.ma index 5aa9c9710..13e746d7f 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx.ma @@ -13,7 +13,7 @@ (**************************************************************************) include "basic_2/notation/relations/predtynormal_5.ma". -include "basic_2/syntax/tdeq.ma". +include "static_2/syntax/tdeq.ma". include "basic_2/rt_transition/cpx.ma". (* NORMAL TERMS FOR UNBOUND CONTEXT-SENSITIVE PARALLEL RT-TRANSITION ********) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx_drops.ma index c2479807a..2e593f991 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx_drops.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cnx_drops.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/relocation/lifts_tdeq.ma". +include "static_2/relocation/lifts_tdeq.ma". include "basic_2/rt_transition/cpx_drops.ma". include "basic_2/rt_transition/cnx.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg.ma index f640625ca..0ca16ee93 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg.ma @@ -15,10 +15,10 @@ include "ground_2/steps/rtc_max.ma". include "ground_2/steps/rtc_plus.ma". include "basic_2/notation/relations/predty_7.ma". -include "basic_2/syntax/item_sh.ma". -include "basic_2/syntax/lenv.ma". -include "basic_2/syntax/genv.ma". -include "basic_2/relocation/lifts.ma". +include "static_2/syntax/item_sh.ma". +include "static_2/syntax/lenv.ma". +include "static_2/syntax/genv.ma". +include "static_2/relocation/lifts.ma". (* BOUND CONTEXT-SENSITIVE PARALLEL RT-TRANSITION FOR TERMS *****************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg_drops.ma index 8a5f96f91..a98e061f3 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg_drops.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg_drops.ma @@ -12,9 +12,9 @@ (* *) (**************************************************************************) -include "basic_2/relocation/drops_drops.ma". -include "basic_2/s_computation/fqup_weight.ma". -include "basic_2/s_computation/fqup_drops.ma". +include "static_2/relocation/drops_drops.ma". +include "static_2/s_computation/fqup_weight.ma". +include "static_2/s_computation/fqup_drops.ma". include "basic_2/rt_transition/cpg.ma". (* BOUND CONTEXT-SENSITIVE PARALLEL RT-TRANSITION FOR TERMS *****************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg_lsubr.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg_lsubr.ma index fcb9275a1..ed99d317a 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg_lsubr.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg_lsubr.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/lsubr.ma". +include "static_2/static/lsubr.ma". include "basic_2/rt_transition/cpg.ma". (* BOUND CONTEXT-SENSITIVE PARALLEL RT-TRANSITION FOR TERMS *****************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg_simple.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg_simple.ma index c914decba..39228c247 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg_simple.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpg_simple.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/syntax/term_simple.ma". +include "static_2/syntax/term_simple.ma". include "basic_2/rt_transition/cpg.ma". (* BOUND CONTEXT-SENSITIVE PARALLEL RT-TRANSITION FOR TERMS *****************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpr_ext.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpr_ext.ma index c76a80fcc..3e3020fc3 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpr_ext.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpr_ext.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/syntax/cext2.ma". +include "static_2/syntax/cext2.ma". include "basic_2/rt_transition/cpm.ma". (* CONTEXT-SENSITIVE PARALLEL R-TRANSITION FOR BINDERS **********************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_ext.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_ext.ma index a12c86faa..9e6020a22 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_ext.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_ext.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/syntax/cext2.ma". +include "static_2/syntax/cext2.ma". include "basic_2/rt_transition/cpx.ma". (* UNBOUND CONTEXT-SENSITIVE PARALLEL RT-TRANSITION FOR BINDERS *************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_fdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_fdeq.ma index 3a86118e1..5124d8684 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_fdeq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_fdeq.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/fdeq.ma". +include "static_2/static/fdeq.ma". include "basic_2/rt_transition/cpx_rdeq.ma". include "basic_2/rt_transition/rpx_rdeq.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_fqus.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_fqus.ma index e4c7db152..c500be141 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_fqus.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_fqus.ma @@ -14,8 +14,8 @@ (* UNBOUND CONTEXT-SENSITIVE PARALLEL RT-TRANSITION FOR TERMS ***************) -include "basic_2/relocation/lifts_tdeq.ma". -include "basic_2/s_computation/fqus_fqup.ma". +include "static_2/relocation/lifts_tdeq.ma". +include "static_2/s_computation/fqus_fqup.ma". include "basic_2/rt_transition/cpx_drops.ma". include "basic_2/rt_transition/cpx_lsubr.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_rdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_rdeq.ma index 1f5e4a9bb..33f937a22 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_rdeq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_rdeq.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/rdeq_rdeq.ma". +include "static_2/static/rdeq_rdeq.ma". include "basic_2/rt_transition/rpx_fsle.ma". (* UNBOUND CONTEXT-SENSITIVE PARALLEL RT-TRANSITION FOR TERMS ***************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_req.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_req.ma index 44dcfb53c..a836bfbea 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_req.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_req.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/req.ma". +include "static_2/static/req.ma". include "basic_2/rt_transition/rpx_fsle.ma". (* UNBOUND CONTEXT-SENSITIVE PARALLEL RT-TRANSITION FOR TERMS ***************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpb.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpb.ma index 6d163a685..51c414112 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpb.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpb.ma @@ -13,8 +13,8 @@ (**************************************************************************) include "basic_2/notation/relations/predsubtyproper_8.ma". -include "basic_2/s_transition/fqu.ma". -include "basic_2/static/rdeq.ma". +include "static_2/s_transition/fqu.ma". +include "static_2/static/rdeq.ma". include "basic_2/rt_transition/lpr_lpx.ma". (* PROPER PARALLEL RST-TRANSITION FOR CLOSURES ******************************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpb_fdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpb_fdeq.ma index 4aaf35624..a0d041980 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpb_fdeq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpb_fdeq.ma @@ -12,8 +12,8 @@ (* *) (**************************************************************************) -include "basic_2/s_transition/fqu_tdeq.ma". -include "basic_2/static/fdeq.ma". +include "static_2/s_transition/fqu_tdeq.ma". +include "static_2/static/fdeq.ma". include "basic_2/rt_transition/fpb_rdeq.ma". (* PROPER PARALLEL RST-TRANSITION FOR CLOSURES ******************************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpb_rdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpb_rdeq.ma index 6f9a66c72..eab2408fe 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpb_rdeq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpb_rdeq.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/rdeq_fqus.ma". +include "static_2/static/rdeq_fqus.ma". include "basic_2/rt_transition/cpx_rdeq.ma". include "basic_2/rt_transition/lpx_rdeq.ma". include "basic_2/rt_transition/fpb.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpbq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpbq.ma index 12bd824fa..a652d5c18 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpbq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpbq.ma @@ -13,8 +13,8 @@ (**************************************************************************) include "basic_2/notation/relations/predsubty_8.ma". -include "basic_2/static/fdeq.ma". -include "basic_2/s_transition/fquq.ma". +include "static_2/static/fdeq.ma". +include "static_2/s_transition/fquq.ma". include "basic_2/rt_transition/lpr_lpx.ma". (* PARALLEL RST-TRANSITION FOR CLOSURES *************************************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpbq_aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpbq_aaa.ma index 55b946e58..7f539a77c 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpbq_aaa.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/fpbq_aaa.ma @@ -12,8 +12,8 @@ (* *) (**************************************************************************) -include "basic_2/static/aaa_fqus.ma". -include "basic_2/static/aaa_fdeq.ma". +include "static_2/static/aaa_fqus.ma". +include "static_2/static/aaa_fdeq.ma". include "basic_2/rt_transition/lpx_aaa.ma". include "basic_2/rt_transition/fpbq.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr.ma index e983823c1..f69cb5e67 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr.ma @@ -13,7 +13,7 @@ (**************************************************************************) include "basic_2/notation/relations/predsn_4.ma". -include "basic_2/relocation/lex.ma". +include "static_2/relocation/lex.ma". include "basic_2/rt_transition/cpr_ext.ma". (* PARALLEL R-TRANSITION FOR FULL LOCAL ENVIRONMENTS ************************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr_drops.ma index 2deb80367..b781f4f22 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr_drops.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr_drops.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/relocation/drops_lex.ma". +include "static_2/relocation/drops_lex.ma". include "basic_2/rt_transition/cpm_drops.ma". include "basic_2/rt_transition/lpr.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr_fquq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr_fquq.ma index 70c4f676d..e1256efc5 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr_fquq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr_fquq.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/s_transition/fquq.ma". +include "static_2/s_transition/fquq.ma". include "basic_2/rt_transition/cpm_drops.ma". include "basic_2/rt_transition/cpm_lsubr.ma". include "basic_2/rt_transition/cpr.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr_length.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr_length.ma index a00bda146..51f2da5f2 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr_length.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr_length.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/relocation/lex_length.ma". +include "static_2/relocation/lex_length.ma". include "basic_2/rt_transition/lpr.ma". (* PARALLEL R-TRANSITION FOR FULL LOCAL ENVIRONMENTS ************************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr_lpr.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr_lpr.ma index a4b3e42c3..3726639cd 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr_lpr.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpr_lpr.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/relocation/lex_lex.ma". +include "static_2/relocation/lex_lex.ma". include "basic_2/rt_transition/cpm_lsubr.ma". include "basic_2/rt_transition/cpr.ma". include "basic_2/rt_transition/cpr_drops.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx.ma index db127642d..ae782872c 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx.ma @@ -13,7 +13,7 @@ (**************************************************************************) include "basic_2/notation/relations/predtysn_4.ma". -include "basic_2/relocation/lex.ma". +include "static_2/relocation/lex.ma". include "basic_2/rt_transition/cpx_ext.ma". (* UNBOUND PARALLEL RT-TRANSITION FOR FULL LOCAL ENVIRONMENTS ***************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_aaa.ma index 1091f0f9a..aaa4e94e7 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_aaa.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_aaa.ma @@ -12,8 +12,8 @@ (* *) (**************************************************************************) -include "basic_2/static/aaa_drops.ma". -include "basic_2/static/lsuba_aaa.ma". +include "static_2/static/aaa_drops.ma". +include "static_2/static/lsuba_aaa.ma". include "basic_2/rt_transition/lpx_drops.ma". (* UNBOUND PARALLEL RT-TRANSITION FOR FULL LOCAL ENVIRONMENTS ***************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_drops.ma index 330ddecc4..21577aab4 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_drops.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_drops.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/relocation/drops_lex.ma". +include "static_2/relocation/drops_lex.ma". include "basic_2/rt_transition/cpx_drops.ma". include "basic_2/rt_transition/lpx.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_fquq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_fquq.ma index 2df357c91..11ae99e7d 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_fquq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_fquq.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/s_transition/fquq.ma". +include "static_2/s_transition/fquq.ma". include "basic_2/rt_transition/lpx.ma". (* UNBOUND PARALLEL RT-TRANSITION FOR FULL LOCAL ENVIRONMENTS ***************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_length.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_length.ma index 1c8a2b9b6..29b3e5e46 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_length.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_length.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/relocation/lex_length.ma". +include "static_2/relocation/lex_length.ma". include "basic_2/rt_transition/lpx.ma". (* UNBOUND PARALLEL RT-TRANSITION FOR FULL LOCAL ENVIRONMENTS ***************) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_rdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_rdeq.ma index f63af0dcf..583214a04 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_rdeq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_rdeq.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/rdeq_req.ma". +include "static_2/static/rdeq_req.ma". include "basic_2/rt_transition/rpx_rdeq.ma". include "basic_2/rt_transition/rpx_lpx.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx.ma index 76364b2f1..f45abc6d7 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx.ma @@ -13,7 +13,7 @@ (**************************************************************************) include "basic_2/notation/relations/predtysn_5.ma". -include "basic_2/static/rex.ma". +include "static_2/static/rex.ma". include "basic_2/rt_transition/cpx_ext.ma". (* UNBOUND PARALLEL RT-TRANSITION FOR REFERRED LOCAL ENVIRONMENTS ***********) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_fqup.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_fqup.ma index 1b49ca7d3..8a71e9b6a 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_fqup.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_fqup.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/rex_fqup.ma". +include "static_2/static/rex_fqup.ma". include "basic_2/rt_transition/rpx.ma". (* UNBOUND PARALLEL RT-TRANSITION FOR REFERRED LOCAL ENVIRONMENTS ***********) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_fsle.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_fsle.ma index 05b8ba41c..d26a5d557 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_fsle.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_fsle.ma @@ -12,8 +12,8 @@ (* *) (**************************************************************************) -include "basic_2/static/fsle_drops.ma". -include "basic_2/static/rex_fsle.ma". +include "static_2/static/fsle_drops.ma". +include "static_2/static/rex_fsle.ma". include "basic_2/rt_transition/rpx_length.ma". include "basic_2/rt_transition/rpx_fqup.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_length.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_length.ma index fe095d1df..209b010ed 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_length.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_length.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/rex_length.ma". +include "static_2/static/rex_length.ma". include "basic_2/rt_transition/rpx.ma". (* UNBOUND PARALLEL RT-TRANSITION FOR REFERRED LOCAL ENVIRONMENTS ***********) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_lpx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_lpx.ma index 585078496..24e840b1f 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_lpx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_lpx.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/rex_lex.ma". +include "static_2/static/rex_lex.ma". include "basic_2/rt_transition/rpx_fsle.ma". include "basic_2/rt_transition/lpx.ma". diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_rdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_rdeq.ma index e2513c96f..42478e2b6 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_rdeq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_rdeq.ma @@ -12,8 +12,8 @@ (* *) (**************************************************************************) -include "basic_2/static/rdeq_fqup.ma". -include "basic_2/static/rdeq_rdeq.ma". +include "static_2/static/rdeq_fqup.ma". +include "static_2/static/rdeq_rdeq.ma". include "basic_2/rt_transition/rpx_fsle.ma". (* UNBOUND PARALLEL RT-TRANSITION FOR REFERRED LOCAL ENVIRONMENTS ***********) diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_rpx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_rpx.ma index b5ccfa88c..56899e45d 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_rpx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_rpx.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "basic_2/static/rex_rex.ma". +include "static_2/static/rex_rex.ma". include "basic_2/rt_transition/rpx.ma". (* UNBOUND PARALLEL RT-TRANSITION FOR REFERRED LOCAL ENVIRONMENTS ***********) diff --git a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqup.ma b/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqup.ma deleted file mode 100644 index a30e03a45..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqup.ma +++ /dev/null @@ -1,86 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "ground_2/lib/star.ma". -include "basic_2/notation/relations/suptermplus_6.ma". -include "basic_2/notation/relations/suptermplus_7.ma". -include "basic_2/s_transition/fqu.ma". - -(* PLUS-ITERATED SUPCLOSURE *************************************************) - -definition fqup: bool â tri_relation genv lenv term â - Î»b. tri_TC â¦ (fqu b). - -interpretation "extended plus-iterated structural successor (closure)" - 'SupTermPlus b G1 L1 T1 G2 L2 T2 = (fqup b G1 L1 T1 G2 L2 T2). - -interpretation "plus-iterated structural successor (closure)" - 'SupTermPlus G1 L1 T1 G2 L2 T2 = (fqup true G1 L1 T1 G2 L2 T2). - -(* Basic properties *********************************************************) - -lemma fqu_fqup: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â - â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦. -/2 width=1 by tri_inj/ qed. - -lemma fqup_strap1: âb,G1,G,G2,L1,L,L2,T1,T,T2. - â¦G1, L1, T1â¦ â+[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ â[b] â¦G2, L2, T2â¦ â - â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦. -/2 width=5 by tri_step/ qed. - -lemma fqup_strap2: âb,G1,G,G2,L1,L,L2,T1,T,T2. - â¦G1, L1, T1â¦ â[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ â+[b] â¦G2, L2, T2â¦ â - â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦. -/2 width=5 by tri_TC_strap/ qed. - -lemma fqup_pair_sn: âb,I,G,L,V,T. â¦G, L, â¡{I}V.Tâ¦ â+[b] â¦G, L, Vâ¦. -/2 width=1 by fqu_pair_sn, fqu_fqup/ qed. - -lemma fqup_bind_dx: âb,p,I,G,L,V,T. â¦G, L, â{p,I}V.Tâ¦ â+[b] â¦G, L.â{I}V, Tâ¦. -/2 width=1 by fqu_bind_dx, fqu_fqup/ qed. - -lemma fqup_clear: âp,I,G,L,V,T. â¦G, L, â{p,I}V.Tâ¦ â+[â»] â¦G, L.â§, Tâ¦. -/3 width=1 by fqu_clear, fqu_fqup/ qed. - -lemma fqup_flat_dx: âb,I,G,L,V,T. â¦G, L, â{I}V.Tâ¦ â+[b] â¦G, L, Tâ¦. -/2 width=1 by fqu_flat_dx, fqu_fqup/ qed. - -lemma fqup_flat_dx_pair_sn: âb,I1,I2,G,L,V1,V2,T. â¦G, L, â{I1}V1.â¡{I2}V2.Tâ¦ â+[b] â¦G, L, V2â¦. -/2 width=5 by fqu_pair_sn, fqup_strap1/ qed. - -lemma fqup_bind_dx_flat_dx: âb,p,G,I1,I2,L,V1,V2,T. â¦G, L, â{p,I1}V1.â{I2}V2.Tâ¦ â+[b] â¦G, L.â{I1}V1, Tâ¦. -/2 width=5 by fqu_flat_dx, fqup_strap1/ qed. - -lemma fqup_flat_dx_bind_dx: âb,p,I1,I2,G,L,V1,V2,T. â¦G, L, â{I1}V1.â{p,I2}V2.Tâ¦ â+[b] â¦G, L.â{I2}V2, Tâ¦. -/2 width=5 by fqu_bind_dx, fqup_strap1/ qed. - -(* Basic eliminators ********************************************************) - -lemma fqup_ind: âb,G1,L1,T1. âQ:relation3 â¦. - (âG2,L2,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â Q G2 L2 T2) â - (âG,G2,L,L2,T,T2. â¦G1, L1, T1â¦ â+[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ â[b] â¦G2, L2, T2â¦ â Q G L T â Q G2 L2 T2) â - âG2,L2,T2. â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦ â Q G2 L2 T2. -#b #G1 #L1 #T1 #Q #IH1 #IH2 #G2 #L2 #T2 #H -@(tri_TC_ind â¦ IH1 IH2 G2 L2 T2 H) -qed-. - -lemma fqup_ind_dx: âb,G2,L2,T2. âQ:relation3 â¦. - (âG1,L1,T1. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â Q G1 L1 T1) â - (âG1,G,L1,L,T1,T. â¦G1, L1, T1â¦ â[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ â+[b] â¦G2, L2, T2â¦ â Q G L T â Q G1 L1 T1) â - âG1,L1,T1. â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦ â Q G1 L1 T1. -#b #G2 #L2 #T2 #Q #IH1 #IH2 #G1 #L1 #T1 #H -@(tri_TC_ind_dx â¦ IH1 IH2 G1 L1 T1 H) -qed-. - -(* Basic_2A1: removed theorems 1: fqup_drop *) diff --git a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqup_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqup_drops.ma deleted file mode 100644 index f2db58c83..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqup_drops.ma +++ /dev/null @@ -1,46 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/relocation/drops.ma". -include "basic_2/s_computation/fqup.ma". - -(* PLUS-ITERATED SUPCLOSURE *************************************************) - -(* Properties with generic slicing for local environments *******************) - -lemma fqup_drops_succ: âb,G,K,T,i,L,U. â¬*[âi] L â K â â¬*[âi] T â U â - â¦G, L, Uâ¦ â+[b] â¦G, K, Tâ¦. -#b #G #K #T #i elim i -i -[ #L #U #HLK #HTU elim (drops_inv_succ â¦ HLK) -HLK - #I #Y #HY #H destruct <(drops_fwd_isid â¦ HY) -K // - /3 width=2 by fqu_fqup, fqu_drop/ -| #l #IH #L #U #HLK #HTU elim (drops_inv_succ â¦ HLK) -HLK - #I #Y #HY #H destruct - elim (lifts_split_trans â¦ HTU â¦ (ðâ´âlâµ) (ðâ´1âµ)) -HTU - /4 width=5 by fqup_strap2, fqu_drop/ -] -qed. - -lemma fqup_drops_strap1: âb,G1,G2,L1,K1,K2,T1,T2,U1,i. â¬*[i] L1 â K1 â â¬*[i] T1 â U1 â - â¦G1, K1, T1â¦ â[b] â¦G2, K2, T2â¦ â â¦G1, L1, U1â¦ â+[b] â¦G2, K2, T2â¦. -#b #G1 #G2 #L1 #K1 #K2 #T1 #T2 #U1 * -[ #HLK1 #HTU1 #HT12 - >(drops_fwd_isid â¦ HLK1) -L1 // - <(lifts_fwd_isid â¦ HTU1) -U1 /2 width=1 by fqu_fqup/ -| /3 width=5 by fqup_strap1, fqup_drops_succ/ -] -qed-. - -lemma fqup_lref: âb,I,G,L,K,V,i. â¬*[i] L â K.â{I}V â â¦G, L, #iâ¦ â+[b] â¦G, K, Vâ¦. -/2 width=6 by fqup_drops_strap1/ qed. diff --git a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqup_fqup.ma b/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqup_fqup.ma deleted file mode 100644 index 4d7c02c08..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqup_fqup.ma +++ /dev/null @@ -1,22 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/s_computation/fqup.ma". - -(* PLUS-ITERATED SUPCLOSURE *************************************************) - -(* Main properties **********************************************************) - -theorem fqup_trans: âb. tri_transitive â¦ (fqup b). -/2 width=5 by tri_TC_transitive/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqup_weight.ma b/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqup_weight.ma deleted file mode 100644 index 69af2d033..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqup_weight.ma +++ /dev/null @@ -1,44 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/s_transition/fqu_weight.ma". -include "basic_2/s_computation/fqup.ma". - -(* PLUS-ITERATED SUPCLOSURE *************************************************) - -(* Forward lemmas with weight for closures **********************************) - -lemma fqup_fwd_fw: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦ â - â¯{G2, L2, T2} < â¯{G1, L1, T1}. -#b #G1 #G2 #L1 #L2 #T1 #T2 #H @(fqup_ind â¦ H) -G2 -L2 -T2 -/3 width=3 by fqu_fwd_fw, transitive_lt/ -qed-. - -(* Advanced eliminators *****************************************************) - -lemma fqup_wf_ind: âb. âQ:relation3 â¦. ( - âG1,L1,T1. (âG2,L2,T2. â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦ â Q G2 L2 T2) â - Q G1 L1 T1 - ) â âG1,L1,T1. Q G1 L1 T1. -#b #Q #HQ @(f3_ind â¦ fw) #x #IHx #G1 #L1 #T1 #H destruct -/4 width=2 by fqup_fwd_fw/ -qed-. - -lemma fqup_wf_ind_eq: âb. âQ:relation3 â¦. ( - âG1,L1,T1. (âG2,L2,T2. â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦ â Q G2 L2 T2) â - âG2,L2,T2. G1 = G2 â L1 = L2 â T1 = T2 â Q G2 L2 T2 - ) â âG1,L1,T1. Q G1 L1 T1. -#b #Q #HQ @(f3_ind â¦ fw) #x #IHx #G1 #L1 #T1 #H destruct -/4 width=7 by fqup_fwd_fw/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqus.ma b/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqus.ma deleted file mode 100644 index 32555f1f6..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqus.ma +++ /dev/null @@ -1,166 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "ground_2/lib/star.ma". -include "basic_2/notation/relations/suptermstar_6.ma". -include "basic_2/notation/relations/suptermstar_7.ma". -include "basic_2/s_transition/fquq.ma". - -(* STAR-ITERATED SUPCLOSURE *************************************************) - -definition fqus: bool â tri_relation genv lenv term â - Î»b. tri_TC â¦ (fquq b). - -interpretation "extended star-iterated structural successor (closure)" - 'SupTermStar b G1 L1 T1 G2 L2 T2 = (fqus b G1 L1 T1 G2 L2 T2). - -interpretation "star-iterated structural successor (closure)" - 'SupTermStar G1 L1 T1 G2 L2 T2 = (fqus true G1 L1 T1 G2 L2 T2). - -(* Basic eliminators ********************************************************) - -lemma fqus_ind: âb,G1,L1,T1. âQ:relation3 â¦. Q G1 L1 T1 â - (âG,G2,L,L2,T,T2. â¦G1, L1, T1â¦ â*[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ ââ¸®[b] â¦G2, L2, T2â¦ â Q G L T â Q G2 L2 T2) â - âG2,L2,T2. â¦G1, L1, T1â¦ â*[b] â¦G2, L2, T2â¦ â Q G2 L2 T2. -#b #G1 #L1 #T1 #R #IH1 #IH2 #G2 #L2 #T2 #H -@(tri_TC_star_ind â¦ IH1 IH2 G2 L2 T2 H) // -qed-. - -lemma fqus_ind_dx: âb,G2,L2,T2. âQ:relation3 â¦. Q G2 L2 T2 â - (âG1,G,L1,L,T1,T. â¦G1, L1, T1â¦ ââ¸®[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ â*[b] â¦G2, L2, T2â¦ â Q G L T â Q G1 L1 T1) â - âG1,L1,T1. â¦G1, L1, T1â¦ â*[b] â¦G2, L2, T2â¦ â Q G1 L1 T1. -#b #G2 #L2 #T2 #Q #IH1 #IH2 #G1 #L1 #T1 #H -@(tri_TC_star_ind_dx â¦ IH1 IH2 G1 L1 T1 H) // -qed-. - -(* Basic properties *********************************************************) - -lemma fqus_refl: âb. tri_reflexive â¦ (fqus b). -/2 width=1 by tri_inj/ qed. - -lemma fquq_fqus: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ ââ¸®[b] â¦G2, L2, T2â¦ â - â¦G1, L1, T1â¦ â*[b] â¦G2, L2, T2â¦. -/2 width=1 by tri_inj/ qed. - -lemma fqus_strap1: âb,G1,G,G2,L1,L,L2,T1,T,T2. â¦G1, L1, T1â¦ â*[b] â¦G, L, Tâ¦ â - â¦G, L, Tâ¦ ââ¸®[b] â¦G2, L2, T2â¦ â â¦G1, L1, T1â¦ â*[b] â¦G2, L2, T2â¦. -/2 width=5 by tri_step/ qed-. - -lemma fqus_strap2: âb,G1,G,G2,L1,L,L2,T1,T,T2. â¦G1, L1, T1â¦ ââ¸®[b] â¦G, L, Tâ¦ â - â¦G, L, Tâ¦ â*[b] â¦G2, L2, T2â¦ â â¦G1, L1, T1â¦ â*[b] â¦G2, L2, T2â¦. -/2 width=5 by tri_TC_strap/ qed-. - -(* Basic inversion lemmas ***************************************************) - -lemma fqus_inv_fqu_sn: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â*[b] â¦G2, L2, T2â¦ â - (â§â§ G1 = G2 & L1 = L2 & T1 = T2) â¨ - ââG,L,T. â¦G1, L1, T1â¦ â[b] â¦G, L, Tâ¦ & â¦G, L, Tâ¦ â*[b] â¦G2, L2, T2â¦. -#b #G1 #G2 #L1 #L2 #T1 #T2 #H12 @(fqus_ind_dx â¦ H12) -G1 -L1 -T1 /3 width=1 by and3_intro, or_introl/ -#G1 #G #L1 #L #T1 #T * /3 width=5 by ex2_3_intro, or_intror/ -* #HG #HL #HT #_ destruct // -qed-. - -lemma fqus_inv_sort1: âb,G1,G2,L1,L2,T2,s. â¦G1, L1, âsâ¦ â*[b] â¦G2, L2, T2â¦ â - (â§â§ G1 = G2 & L1 = L2 & âs = T2) â¨ - ââJ,L. â¦G1, L, âsâ¦ â*[b] â¦G2, L2, T2â¦ & L1 = L.â{J}. -#b #G1 #G2 #L1 #L2 #T2 #s #H elim (fqus_inv_fqu_sn â¦ H) -H * /3 width=1 by and3_intro, or_introl/ -#G #L #T #H elim (fqu_inv_sort1 â¦ H) -H /3 width=4 by ex2_2_intro, or_intror/ -qed-. - -lemma fqus_inv_lref1: âb,G1,G2,L1,L2,T2,i. â¦G1, L1, #iâ¦ â*[b] â¦G2, L2, T2â¦ â - â¨â¨ â§â§ G1 = G2 & L1 = L2 & #i = T2 - | ââJ,L,V. â¦G1, L, Vâ¦ â*[b] â¦G2, L2, T2â¦ & L1 = L.â{J}V & i = 0 - | ââJ,L,j. â¦G1, L, #jâ¦ â*[b] â¦G2, L2, T2â¦ & L1 = L.â{J} & i = âj. -#b #G1 #G2 #L1 #L2 #T2 #i #H elim (fqus_inv_fqu_sn â¦ H) -H * /3 width=1 by and3_intro, or3_intro0/ -#G #L #T #H elim (fqu_inv_lref1 â¦ H) -H * /3 width=7 by or3_intro1, or3_intro2, ex3_4_intro, ex3_3_intro/ -qed-. - -lemma fqus_inv_gref1: âb,G1,G2,L1,L2,T2,l. â¦G1, L1, Â§lâ¦ â*[b] â¦G2, L2, T2â¦ â - (â§â§ G1 = G2 & L1 = L2 & Â§l = T2) â¨ - ââJ,L. â¦G1, L, Â§lâ¦ â*[b] â¦G2, L2, T2â¦ & L1 = L.â{J}. -#b #G1 #G2 #L1 #L2 #T2 #l #H elim (fqus_inv_fqu_sn â¦ H) -H * /3 width=1 by and3_intro, or_introl/ -#G #L #T #H elim (fqu_inv_gref1 â¦ H) -H /3 width=4 by ex2_2_intro, or_intror/ -qed-. - -lemma fqus_inv_bind1: âb,p,I,G1,G2,L1,L2,V1,T1,T2. â¦G1, L1, â{p,I}V1.T1â¦ â*[b] â¦G2, L2, T2â¦ â - â¨â¨ â§â§ G1 = G2 & L1 = L2 & â{p,I}V1.T1 = T2 - | â¦G1, L1, V1â¦ â*[b] â¦G2, L2, T2â¦ - | â¦G1, L1.â{I}V1, T1â¦ â*[b] â¦G2, L2, T2â¦ - | â¦G1, L1.â§, T1â¦ â*[b] â¦G2, L2, T2â¦ â§ b = â» - | ââJ,L,T. â¦G1, L, Tâ¦ â*[b] â¦G2, L2, T2â¦ & â¬*[1] T â â{p,I}V1.T1 & L1 = L.â{J}. -#b #p #I #G1 #G2 #L1 #L2 #V1 #T1 #T2 #H elim (fqus_inv_fqu_sn â¦ H) -H * /3 width=1 by and3_intro, or5_intro0/ -#G #L #T #H elim (fqu_inv_bind1 â¦ H) -H * -[4: #J ] #H1 #H2 #H3 [4: #Hb ] #H destruct -/3 width=6 by or5_intro1, or5_intro2, or5_intro3, or5_intro4, ex3_3_intro, conj/ -qed-. - - -lemma fqus_inv_bind1_true: âp,I,G1,G2,L1,L2,V1,T1,T2. â¦G1, L1, â{p,I}V1.T1â¦ â* â¦G2, L2, T2â¦ â - â¨â¨ â§â§ G1 = G2 & L1 = L2 & â{p,I}V1.T1 = T2 - | â¦G1, L1, V1â¦ â* â¦G2, L2, T2â¦ - | â¦G1, L1.â{I}V1, T1â¦ â* â¦G2, L2, T2â¦ - | ââJ,L,T. â¦G1, L, Tâ¦ â* â¦G2, L2, T2â¦ & â¬*[1] T â â{p,I}V1.T1 & L1 = L.â{J}. -#p #I #G1 #G2 #L1 #L2 #V1 #T1 #T2 #H elim (fqus_inv_bind1 â¦ H) -H [1,4: * ] -/3 width=1 by and3_intro, or4_intro0, or4_intro1, or4_intro2, or4_intro3, ex3_3_intro/ -#_ #H destruct -qed-. - -lemma fqus_inv_flat1: âb,I,G1,G2,L1,L2,V1,T1,T2. â¦G1, L1, â{I}V1.T1â¦ â*[b] â¦G2, L2, T2â¦ â - â¨â¨ â§â§ G1 = G2 & L1 = L2 & â{I}V1.T1 = T2 - | â¦G1, L1, V1â¦ â*[b] â¦G2, L2, T2â¦ - | â¦G1, L1, T1â¦ â*[b] â¦G2, L2, T2â¦ - | ââJ,L,T. â¦G1, L, Tâ¦ â*[b] â¦G2, L2, T2â¦ & â¬*[1] T â â{I}V1.T1 & L1 = L.â{J}. -#b #I #G1 #G2 #L1 #L2 #V1 #T1 #T2 #H elim (fqus_inv_fqu_sn â¦ H) -H * /3 width=1 by and3_intro, or4_intro0/ -#G #L #T #H elim (fqu_inv_flat1 â¦ H) -H * -[3: #J ] #H1 #H2 #H3 #H destruct -/3 width=6 by or4_intro1, or4_intro2, or4_intro3, ex3_3_intro/ -qed-. - -(* Advanced inversion lemmas ************************************************) - -lemma fqus_inv_atom1: âb,I,G1,G2,L2,T2. â¦G1, â, âª{I}â¦ â*[b] â¦G2, L2, T2â¦ â - â§â§ G1 = G2 & â = L2 & âª{I} = T2. -#b #I #G1 #G2 #L2 #T2 #H elim (fqus_inv_fqu_sn â¦ H) -H * /2 width=1 by and3_intro/ -#G #L #T #H elim (fqu_inv_atom1 â¦ H) -qed-. - -lemma fqus_inv_sort1_bind: âb,I,G1,G2,L1,L2,T2,s. â¦G1, L1.â{I}, âsâ¦ â*[b] â¦G2, L2, T2â¦ â - (â§â§ G1 = G2 & L1.â{I} = L2 & âs = T2) â¨ â¦G1, L1, âsâ¦ â*[b] â¦G2, L2, T2â¦. -#b #I #G1 #G2 #L1 #L2 #T2 #s #H elim (fqus_inv_fqu_sn â¦ H) -H * /3 width=1 by and3_intro, or_introl/ -#G #L #T #H elim (fqu_inv_sort1_bind â¦ H) -H -#H1 #H2 #H3 #H destruct /2 width=1 by or_intror/ -qed-. - -lemma fqus_inv_zero1_pair: âb,I,G1,G2,L1,L2,V1,T2. â¦G1, L1.â{I}V1, #0â¦ â*[b] â¦G2, L2, T2â¦ â - (â§â§ G1 = G2 & L1.â{I}V1 = L2 & #0 = T2) â¨ â¦G1, L1, V1â¦ â*[b] â¦G2, L2, T2â¦. -#b #I #G1 #G2 #L1 #L2 #V1 #T2 #H elim (fqus_inv_fqu_sn â¦ H) -H * /3 width=1 by and3_intro, or_introl/ -#G #L #T #H elim (fqu_inv_zero1_pair â¦ H) -H -#H1 #H2 #H3 #H destruct /2 width=1 by or_intror/ -qed-. - -lemma fqus_inv_lref1_bind: âb,I,G1,G2,L1,L2,T2,i. â¦G1, L1.â{I}, #âiâ¦ â*[b] â¦G2, L2, T2â¦ â - (â§â§ G1 = G2 & L1.â{I} = L2 & #(âi) = T2) â¨ â¦G1, L1, #iâ¦ â*[b] â¦G2, L2, T2â¦. -#b #I #G1 #G2 #L1 #L2 #T2 #i #H elim (fqus_inv_fqu_sn â¦ H) -H * /3 width=1 by and3_intro, or_introl/ -#G #L #T #H elim (fqu_inv_lref1_bind â¦ H) -H -#H1 #H2 #H3 #H destruct /2 width=1 by or_intror/ -qed-. - -lemma fqus_inv_gref1_bind: âb,I,G1,G2,L1,L2,T2,l. â¦G1, L1.â{I}, Â§lâ¦ â*[b] â¦G2, L2, T2â¦ â - (â§â§ G1 = G2 & L1.â{I} = L2 & Â§l = T2) â¨ â¦G1, L1, Â§lâ¦ â*[b] â¦G2, L2, T2â¦. -#b #I #G1 #G2 #L1 #L2 #T2 #l #H elim (fqus_inv_fqu_sn â¦ H) -H * /3 width=1 by and3_intro, or_introl/ -#G #L #T #H elim (fqu_inv_gref1_bind â¦ H) -H -#H1 #H2 #H3 #H destruct /2 width=1 by or_intror/ -qed-. - -(* Basic_2A1: removed theorems 1: fqus_drop *) diff --git a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqus_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqus_drops.ma deleted file mode 100644 index cfcecbb00..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqus_drops.ma +++ /dev/null @@ -1,26 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/s_computation/fqup_drops.ma". -include "basic_2/s_computation/fqus_fqup.ma". - -(* STAR-ITERATED SUPCLOSURE *************************************************) - -(* Properties with generic slicing for local environments *******************) - -lemma fqus_drops: âb,G,L,K,T,U,i. â¬*[i] L â K â â¬*[i] T â U â - â¦G, L, Uâ¦ â*[b] â¦G, K, Tâ¦. -#b #G #L #K #T #U * /3 width=3 by fqup_drops_succ, fqup_fqus/ -#HLK #HTU <(lifts_fwd_isid â¦ HTU) -U // <(drops_fwd_isid â¦ HLK) -K // -qed. diff --git a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqus_fqup.ma b/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqus_fqup.ma deleted file mode 100644 index 9a0ce6312..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqus_fqup.ma +++ /dev/null @@ -1,74 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/s_computation/fqup.ma". -include "basic_2/s_computation/fqus.ma". - -(* STAR-ITERATED SUPCLOSURE *************************************************) - -(* Alternative definition with plus-iterated supclosure *********************) - -lemma fqup_fqus: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦ â â¦G1, L1, T1â¦ â*[b] â¦G2, L2, T2â¦. -#b #G1 #G2 #L1 #L2 #T1 #T2 #H @(fqup_ind â¦ H) -G2 -L2 -T2 -/3 width=5 by fqus_strap1, fquq_fqus, fqu_fquq/ -qed. - -(* Basic_2A1: was: fqus_inv_gen *) -lemma fqus_inv_fqup: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â*[b] â¦G2, L2, T2â¦ â - â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦ â¨ (â§â§ G1 = G2 & L1 = L2 & T1 = T2). -#b #G1 #G2 #L1 #L2 #T1 #T2 #H @(fqus_ind â¦ H) -G2 -L2 -T2 // -#G #G2 #L #L2 #T #T2 #_ * -[ #H2 * /3 width=5 by fqup_strap1, or_introl/ - * /3 width=1 by fqu_fqup, or_introl/ -| * #HG #HL #HT destruct // -] -qed-. - -(* Advanced properties ******************************************************) - -lemma fqus_strap1_fqu: âb,G1,G,G2,L1,L,L2,T1,T,T2. â¦G1, L1, T1â¦ â*[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ â[b] â¦G2, L2, T2â¦ â - â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦. -#b #G1 #G #G2 #L1 #L #L2 #T1 #T #T2 #H1 #H2 elim (fqus_inv_fqup â¦ H1) -H1 -[ /2 width=5 by fqup_strap1/ -| * /2 width=1 by fqu_fqup/ -] -qed-. - -lemma fqus_strap2_fqu: âb,G1,G,G2,L1,L,L2,T1,T,T2. â¦G1, L1, T1â¦ â[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ â*[b] â¦G2, L2, T2â¦ â - â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦. -#b #G1 #G #G2 #L1 #L #L2 #T1 #T #T2 #H1 #H2 elim (fqus_inv_fqup â¦ H2) -H2 -[ /2 width=5 by fqup_strap2/ -| * /2 width=1 by fqu_fqup/ -] -qed-. - -lemma fqus_fqup_trans: âb,G1,G,G2,L1,L,L2,T1,T,T2. â¦G1, L1, T1â¦ â*[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ â+[b] â¦G2, L2, T2â¦ â - â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦. -#b #G1 #G #G2 #L1 #L #L2 #T1 #T #T2 #H1 #H2 @(fqup_ind â¦ H2) -H2 -G2 -L2 -T2 -/2 width=5 by fqus_strap1_fqu, fqup_strap1/ -qed-. - -lemma fqup_fqus_trans: âb,G1,G,G2,L1,L,L2,T1,T,T2. â¦G1, L1, T1â¦ â+[b] â¦G, L, Tâ¦ â - â¦G, L, Tâ¦ â*[b] â¦G2, L2, T2â¦ â â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦. -#b #G1 #G #G2 #L1 #L #L2 #T1 #T #T2 #H1 @(fqup_ind_dx â¦ H1) -H1 -G1 -L1 -T1 -/3 width=5 by fqus_strap2_fqu, fqup_strap2/ -qed-. - -(* Advanced inversion lemmas for plus-iterated supclosure *******************) - -lemma fqup_inv_step_sn: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦ â - ââG,L,T. â¦G1, L1, T1â¦ â[b] â¦G, L, Tâ¦ & â¦G, L, Tâ¦ â*[b] â¦G2, L2, T2â¦. -#b #G1 #G2 #L1 #L2 #T1 #T2 #H @(fqup_ind_dx â¦ H) -G1 -L1 -T1 /2 width=5 by ex2_3_intro/ -#G1 #G #L1 #L #T1 #T #H1 #_ * /4 width=9 by fqus_strap2, fqu_fquq, ex2_3_intro/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqus_fqus.ma b/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqus_fqus.ma deleted file mode 100644 index 1d41130e5..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqus_fqus.ma +++ /dev/null @@ -1,22 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/s_computation/fqus.ma". - -(* STAR-ITERATED SUPCLOSURE *************************************************) - -(* Main properties **********************************************************) - -theorem fqus_trans: âb. tri_transitive â¦ (fqus b). -/2 width=5 by tri_TC_transitive/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqus_weight.ma b/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqus_weight.ma deleted file mode 100644 index 335651bc4..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/s_computation/fqus_weight.ma +++ /dev/null @@ -1,35 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/s_transition/fquq_weight.ma". -include "basic_2/s_computation/fqus.ma". - -(* STAR-ITERATED SUPCLOSURE *************************************************) - -(* Forward lemmas with weight for closures **********************************) - -lemma fqus_fwd_fw: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â*[b] â¦G2, L2, T2â¦ â - â¯{G2, L2, T2} â¤ â¯{G1, L1, T1}. -#b #G1 #G2 #L1 #L2 #T1 #T2 #H @(fqus_ind â¦ H) -L2 -T2 -/3 width=3 by fquq_fwd_fw, transitive_le/ -qed-. - -(* Advanced inversion lemmas ************************************************) - -lemma fqus_inv_refl_atom3: âb,I,G,L,X. â¦G, L, âª{I}â¦ â*[b] â¦G, L, Xâ¦ â âª{I} = X. -#b #I #G #L #X #H elim (fqus_inv_fqu_sn â¦ H) -H * // -#G0 #L0 #T0 #H1 #H2 lapply (fqu_fwd_fw â¦ H1) lapply (fqus_fwd_fw â¦ H2) -H2 -H1 -#H2 #H1 lapply (le_to_lt_to_lt â¦ H2 H1) -G0 -L0 -T0 -#H elim (lt_le_false â¦ H) -H /2 width=1 by monotonic_le_plus_r/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/s_transition/fqu.ma b/matita/matita/contribs/lambdadelta/basic_2/s_transition/fqu.ma deleted file mode 100644 index 0377df1a1..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/s_transition/fqu.ma +++ /dev/null @@ -1,201 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/notation/relations/supterm_6.ma". -include "basic_2/notation/relations/supterm_7.ma". -include "basic_2/syntax/lenv.ma". -include "basic_2/syntax/genv.ma". -include "basic_2/relocation/lifts.ma". - -(* SUPCLOSURE ***************************************************************) - -(* activate genv *) -(* Note: frees_total requires fqu_drop for all atoms - fqu_cpx_trans requires fqu_drop for all terms - frees_fqus_drops requires fqu_drop restricted on atoms -*) -inductive fqu (b:bool): tri_relation genv lenv term â -| fqu_lref_O : âI,G,L,V. fqu b G (L.â{I}V) (#0) G L V -| fqu_pair_sn: âI,G,L,V,T. fqu b G L (â¡{I}V.T) G L V -| fqu_bind_dx: âp,I,G,L,V,T. fqu b G L (â{p,I}V.T) G (L.â{I}V) T -| fqu_clear : âp,I,G,L,V,T. b = â» â fqu b G L (â{p,I}V.T) G (L.â§) T -| fqu_flat_dx: âI,G,L,V,T. fqu b G L (â{I}V.T) G L T -| fqu_drop : âI,G,L,T,U. â¬*[1] T â U â fqu b G (L.â{I}) U G L T -. - -interpretation - "extended structural successor (closure)" - 'SupTerm b G1 L1 T1 G2 L2 T2 = (fqu b G1 L1 T1 G2 L2 T2). - -interpretation - "structural successor (closure)" - 'SupTerm G1 L1 T1 G2 L2 T2 = (fqu true G1 L1 T1 G2 L2 T2). - -(* Basic properties *********************************************************) - -lemma fqu_sort: âb,I,G,L,s. â¦G, L.â{I}, âsâ¦ â[b] â¦G, L, âsâ¦. -/2 width=1 by fqu_drop/ qed. - -lemma fqu_lref_S: âb,I,G,L,i. â¦G, L.â{I}, #âiâ¦ â[b] â¦G, L, #iâ¦. -/2 width=1 by fqu_drop/ qed. - -lemma fqu_gref: âb,I,G,L,l. â¦G, L.â{I}, Â§lâ¦ â[b] â¦G, L, Â§lâ¦. -/2 width=1 by fqu_drop/ qed. - -(* Basic inversion lemmas ***************************************************) - -fact fqu_inv_sort1_aux: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â - âs. T1 = âs â - ââJ. G1 = G2 & L1 = L2.â{J} & T2 = âs. -#b #G1 #G2 #L1 #L2 #T1 #T2 * -G1 -G2 -L1 -L2 -T1 -T2 -[ #I #G #L #T #s #H destruct -| #I #G #L #V #T #s #H destruct -| #p #I #G #L #V #T #s #H destruct -| #p #I #G #L #V #T #_ #s #H destruct -| #I #G #L #V #T #s #H destruct -| #I #G #L #T #U #HI12 #s #H destruct - lapply (lifts_inv_sort2 â¦ HI12) -HI12 /2 width=2 by ex3_intro/ -] -qed-. - -lemma fqu_inv_sort1: âb,G1,G2,L1,L2,T2,s. â¦G1, L1, âsâ¦ â[b] â¦G2, L2, T2â¦ â - ââJ. G1 = G2 & L1 = L2.â{J} & T2 = âs. -/2 width=4 by fqu_inv_sort1_aux/ qed-. - -fact fqu_inv_lref1_aux: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â - âi. T1 = #i â - (ââJ,V. G1 = G2 & L1 = L2.â{J}V & T2 = V & i = 0) â¨ - ââJ,j. G1 = G2 & L1 = L2.â{J} & T2 = #j & i = âj. -#b #G1 #G2 #L1 #L2 #T1 #T2 * -G1 -G2 -L1 -L2 -T1 -T2 -[ #I #G #L #T #i #H destruct /3 width=4 by ex4_2_intro, or_introl/ -| #I #G #L #V #T #i #H destruct -| #p #I #G #L #V #T #i #H destruct -| #p #I #G #L #V #T #_ #i #H destruct -| #I #G #L #V #T #i #H destruct -| #I #G #L #T #U #HI12 #i #H destruct - elim (lifts_inv_lref2_uni â¦ HI12) -HI12 /3 width=3 by ex4_2_intro, or_intror/ -] -qed-. - -lemma fqu_inv_lref1: âb,G1,G2,L1,L2,T2,i. â¦G1, L1, #iâ¦ â[b] â¦G2, L2, T2â¦ â - (ââJ,V. G1 = G2 & L1 = L2.â{J}V & T2 = V & i = 0) â¨ - ââJ,j. G1 = G2 & L1 = L2.â{J} & T2 = #j & i = âj. -/2 width=4 by fqu_inv_lref1_aux/ qed-. - -fact fqu_inv_gref1_aux: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â - âl. T1 = Â§l â - ââJ. G1 = G2 & L1 = L2.â{J} & T2 = Â§l. -#b #G1 #G2 #L1 #L2 #T1 #T2 * -G1 -G2 -L1 -L2 -T1 -T2 -[ #I #G #L #T #l #H destruct -| #I #G #L #V #T #l #H destruct -| #p #I #G #L #V #T #l #H destruct -| #p #I #G #L #V #T #_ #l #H destruct -| #I #G #L #V #T #s #H destruct -| #I #G #L #T #U #HI12 #l #H destruct - lapply (lifts_inv_gref2 â¦ HI12) -HI12 /2 width=3 by ex3_intro/ -] -qed-. - -lemma fqu_inv_gref1: âb,G1,G2,L1,L2,T2,l. â¦G1, L1, Â§lâ¦ â[b] â¦G2, L2, T2â¦ â - ââJ. G1 = G2 & L1 = L2.â{J} & T2 = Â§l. -/2 width=4 by fqu_inv_gref1_aux/ qed-. - -fact fqu_inv_bind1_aux: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â - âp,I,V1,U1. T1 = â{p,I}V1.U1 â - â¨â¨ â§â§ G1 = G2 & L1 = L2 & V1 = T2 - | â§â§ G1 = G2 & L1.â{I}V1 = L2 & U1 = T2 - | â§â§ G1 = G2 & L1.â§ = L2 & U1 = T2 & b = â» - | ââJ. G1 = G2 & L1 = L2.â{J} & â¬*[1] T2 â â{p,I}V1.U1. -#b #G1 #G2 #L1 #L2 #T1 #T2 * -G1 -G2 -L1 -L2 -T1 -T2 -[ #I #G #L #T #q #J #V0 #U0 #H destruct -| #I #G #L #V #T #q #J #V0 #U0 #H destruct /3 width=1 by and3_intro, or4_intro0/ -| #p #I #G #L #V #T #q #J #V0 #U0 #H destruct /3 width=1 by and3_intro, or4_intro1/ -| #p #I #G #L #V #T #Hb #q #J #V0 #U0 #H destruct /3 width=1 by and4_intro, or4_intro2/ -| #I #G #L #V #T #q #J #V0 #U0 #H destruct -| #I #G #L #T #U #HTU #q #J #V0 #U0 #H destruct /3 width=2 by or4_intro3, ex3_intro/ -] -qed-. - -lemma fqu_inv_bind1: âb,p,I,G1,G2,L1,L2,V1,U1,T2. â¦G1, L1, â{p,I}V1.U1â¦ â[b] â¦G2, L2, T2â¦ â - â¨â¨ â§â§ G1 = G2 & L1 = L2 & V1 = T2 - | â§â§ G1 = G2 & L1.â{I}V1 = L2 & U1 = T2 - | â§â§ G1 = G2 & L1.â§ = L2 & U1 = T2 & b = â» - | ââJ. G1 = G2 & L1 = L2.â{J} & â¬*[1] T2 â â{p,I}V1.U1. -/2 width=4 by fqu_inv_bind1_aux/ qed-. - -lemma fqu_inv_bind1_true: âp,I,G1,G2,L1,L2,V1,U1,T2. â¦G1, L1, â{p,I}V1.U1â¦ â â¦G2, L2, T2â¦ â - â¨â¨ â§â§ G1 = G2 & L1 = L2 & V1 = T2 - | â§â§ G1 = G2 & L1.â{I}V1 = L2 & U1 = T2 - | ââJ. G1 = G2 & L1 = L2.â{J} & â¬*[1] T2 â â{p,I}V1.U1. -#p #I #G1 #G2 #L1 #L2 #V1 #U1 #T2 #H elim (fqu_inv_bind1 â¦ H) -H -/3 width=1 by or3_intro0, or3_intro1, or3_intro2/ -* #_ #_ #_ #H destruct -qed-. - -fact fqu_inv_flat1_aux: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â - âI,V1,U1. T1 = â{I}V1.U1 â - â¨â¨ â§â§ G1 = G2 & L1 = L2 & V1 = T2 - | â§â§ G1 = G2 & L1 = L2 & U1 = T2 - | ââJ. G1 = G2 & L1 = L2.â{J} & â¬*[1] T2 â â{I}V1.U1. -#b #G1 #G2 #L1 #L2 #T1 #T2 * -G1 -G2 -L1 -L2 -T1 -T2 -[ #I #G #L #T #J #V0 #U0 #H destruct -| #I #G #L #V #T #J #V0 #U0 #H destruct /3 width=1 by and3_intro, or3_intro0/ -| #p #I #G #L #V #T #J #V0 #U0 #H destruct -| #p #I #G #L #V #T #_ #J #V0 #U0 #H destruct -| #I #G #L #V #T #J #V0 #U0 #H destruct /3 width=1 by and3_intro, or3_intro1/ -| #I #G #L #T #U #HTU #J #V0 #U0 #H destruct /3 width=2 by or3_intro2, ex3_intro/ -] -qed-. - -lemma fqu_inv_flat1: âb,I,G1,G2,L1,L2,V1,U1,T2. â¦G1, L1, â{I}V1.U1â¦ â[b] â¦G2, L2, T2â¦ â - â¨â¨ â§â§ G1 = G2 & L1 = L2 & V1 = T2 - | â§â§ G1 = G2 & L1 = L2 & U1 = T2 - | ââJ. G1 = G2 & L1 = L2.â{J} & â¬*[1] T2 â â{I}V1.U1. -/2 width=4 by fqu_inv_flat1_aux/ qed-. - -(* Advanced inversion lemmas ************************************************) - -lemma fqu_inv_atom1: âb,I,G1,G2,L2,T2. â¦G1, â, âª{I}â¦ â[b] â¦G2, L2, T2â¦ â â¥. -#b * #x #G1 #G2 #L2 #T2 #H -[ elim (fqu_inv_sort1 â¦ H) | elim (fqu_inv_lref1 â¦ H) * | elim (fqu_inv_gref1 â¦ H) ] -H -#I [2: #V |3: #i ] #_ #H destruct -qed-. - -lemma fqu_inv_sort1_bind: âb,I,G1,G2,K,L2,T2,s. â¦G1, K.â{I}, âsâ¦ â[b] â¦G2, L2, T2â¦ â - â§â§ G1 = G2 & L2 = K & T2 = âs. -#b #I #G1 #G2 #K #L2 #T2 #s #H elim (fqu_inv_sort1 â¦ H) -H -#Z #X #H1 #H2 destruct /2 width=1 by and3_intro/ -qed-. - -lemma fqu_inv_zero1_pair: âb,I,G1,G2,K,L2,V,T2. â¦G1, K.â{I}V, #0â¦ â[b] â¦G2, L2, T2â¦ â - â§â§ G1 = G2 & L2 = K & T2 = V. -#b #I #G1 #G2 #K #L2 #V #T2 #H elim (fqu_inv_lref1 â¦ H) -H * -#Z #X #H1 #H2 #H3 #H4 destruct /2 width=1 by and3_intro/ -qed-. - -lemma fqu_inv_lref1_bind: âb,I,G1,G2,K,L2,T2,i. â¦G1, K.â{I}, #(âi)â¦ â[b] â¦G2, L2, T2â¦ â - â§â§ G1 = G2 & L2 = K & T2 = #i. -#b #I #G1 #G2 #K #L2 #T2 #i #H elim (fqu_inv_lref1 â¦ H) -H * -#Z #X #H1 #H2 #H3 #H4 destruct /2 width=1 by and3_intro/ -qed-. - -lemma fqu_inv_gref1_bind: âb,I,G1,G2,K,L2,T2,l. â¦G1, K.â{I}, Â§lâ¦ â[b] â¦G2, L2, T2â¦ â - â§â§ G1 = G2 & L2 = K & T2 = Â§l. -#b #I #G1 #G2 #K #L2 #T2 #l #H elim (fqu_inv_gref1 â¦ H) -H -#Z #H1 #H2 #H3 destruct /2 width=1 by and3_intro/ -qed-. - -(* Basic_2A1: removed theorems 3: - fqu_drop fqu_drop_lt fqu_lref_S_lt -*) diff --git a/matita/matita/contribs/lambdadelta/basic_2/s_transition/fqu_length.ma b/matita/matita/contribs/lambdadelta/basic_2/s_transition/fqu_length.ma deleted file mode 100644 index 467283ff1..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/s_transition/fqu_length.ma +++ /dev/null @@ -1,31 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/syntax/lenv_length.ma". -include "basic_2/s_transition/fqu.ma". - -(* SUPCLOSURE ***************************************************************) - -(* Forward lemmas with length for local environments ************************) - -fact fqu_fwd_length_lref1_aux: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â - âi. T1 = #i â |L2| < |L1|. -#b #G1 #G2 #L1 #L2 #T1 #T2 #H elim H -G1 -G2 -L1 -L2 -T1 -T2 // [2,3: #p] -#I #G #L #V #T [2: #_ ] #j #H destruct -qed-. - -lemma fqu_fwd_length_lref1: âb,G1,G2,L1,L2,T2,i. â¦G1, L1, #iâ¦ â[b] â¦G2, L2, T2â¦ â - |L2| < |L1|. -/2 width=8 by fqu_fwd_length_lref1_aux/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/s_transition/fqu_tdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/s_transition/fqu_tdeq.ma deleted file mode 100644 index 2c7d03371..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/s_transition/fqu_tdeq.ma +++ /dev/null @@ -1,36 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/syntax/tdeq.ma". -include "basic_2/s_transition/fqu_length.ma". - -(* SUPCLOSURE ***************************************************************) - -(* Inversion lemmas with context-free degree-based equivalence for terms ****) - -fact fqu_inv_tdeq_aux: âh,o,b,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â - G1 = G2 â |L1| = |L2| â T1 â[h, o] T2 â â¥. -#h #o #b #G1 #G2 #L1 #L2 #T1 #T2 * -G1 -G2 -L1 -L2 -T1 -T2 -[1: #I #G #L #V #_ #H elim (succ_inv_refl_sn â¦ H) -|6: #I #G #L #T #U #_ #_ #H elim (succ_inv_refl_sn â¦ H) -] -/2 width=6 by tdeq_inv_pair_xy_y, tdeq_inv_pair_xy_x/ -qed-. - -(* Basic_2A1: uses: fqu_inv_eq *) -lemma fqu_inv_tdeq: âh,o,b,G,L1,L2,T1,T2. â¦G, L1, T1â¦ â[b] â¦G, L2, T2â¦ â - |L1| = |L2| â T1 â[h, o] T2 â â¥. -#h #o #b #G #L1 #L2 #T1 #T2 #H -@(fqu_inv_tdeq_aux â¦ H) // (**) (* full auto fails *) -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/s_transition/fqu_weight.ma b/matita/matita/contribs/lambdadelta/basic_2/s_transition/fqu_weight.ma deleted file mode 100644 index 8f6d321a2..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/s_transition/fqu_weight.ma +++ /dev/null @@ -1,37 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/syntax/cl_weight.ma". -include "basic_2/relocation/lifts_weight.ma". -include "basic_2/s_transition/fqu.ma". - -(* SUPCLOSURE ***************************************************************) - -(* Forward lemmas with weight for closures **********************************) - -lemma fqu_fwd_fw: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â - â¯{G2, L2, T2} < â¯{G1, L1, T1}. -#b #G1 #G2 #L1 #L2 #T1 #T2 #H elim H -G1 -G2 -L1 -L2 -T1 -T2 // -#I #I1 #I2 #G #L #HI12 normalize in â¢ (?%%); -I1 -<(lifts_fwd_tw â¦ HI12) /3 width=1 by monotonic_lt_plus_r, monotonic_lt_plus_l/ -qed-. - -(* Advanced eliminators *****************************************************) - -lemma fqu_wf_ind: âb. âQ:relation3 â¦. ( - âG1,L1,T1. (âG2,L2,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â Q G2 L2 T2) â - Q G1 L1 T1 - ) â âG1,L1,T1. Q G1 L1 T1. -#b #Q #HQ @(f3_ind â¦ fw) #x #IHx #G1 #L1 #T1 #H destruct /4 width=2 by fqu_fwd_fw/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/s_transition/fquq.ma b/matita/matita/contribs/lambdadelta/basic_2/s_transition/fquq.ma deleted file mode 100644 index 4c7446e31..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/s_transition/fquq.ma +++ /dev/null @@ -1,46 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/notation/relations/suptermopt_6.ma". -include "basic_2/notation/relations/suptermopt_7.ma". -include "basic_2/s_transition/fqu.ma". - -(* OPTIONAL SUPCLOSURE ******************************************************) - -(* Basic_2A1: was: fquqa *) -(* Basic_2A1: includes: fquq_inv_gen *) -definition fquq: bool â tri_relation genv lenv term â - Î»b. tri_RC â¦ (fqu b). - -interpretation - "extended optional structural successor (closure)" - 'SupTermOpt b G1 L1 T1 G2 L2 T2 = (fquq b G1 L1 T1 G2 L2 T2). - -interpretation - "optional structural successor (closure)" - 'SupTermOpt G1 L1 T1 G2 L2 T2 = (fquq true G1 L1 T1 G2 L2 T2). - -(* Basic properties *********************************************************) - -(* Basic_2A1: includes: fquqa_refl *) -lemma fquq_refl: âb. tri_reflexive â¦ (fquq b). -// qed. - -lemma fqu_fquq: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â â¦G1, L1, T1â¦ ââ¸®[b] â¦G2, L2, T2â¦. -/2 width=1 by or_introl/ qed. - -(* Basic_2A1: removed theorems 8: - fquq_lref_O fquq_pair_sn fquq_bind_dx fquq_flat_dx fquq_drop - fquqa_drop fquq_fquqa fquqa_inv_fquq -*) diff --git a/matita/matita/contribs/lambdadelta/basic_2/s_transition/fquq_length.ma b/matita/matita/contribs/lambdadelta/basic_2/s_transition/fquq_length.ma deleted file mode 100644 index 9cd369686..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/s_transition/fquq_length.ma +++ /dev/null @@ -1,26 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/s_transition/fqu_length.ma". -include "basic_2/s_transition/fquq.ma". - -(* OPTIONAL SUPCLOSURE ******************************************************) - -(* Forward lemmas with length for local environments ************************) - -lemma fquq_fwd_length_lref1: âb,G1,G2,L1,L2,T2,i. â¦G1, L1, #iâ¦ ââ¸®[b] â¦G2, L2, T2â¦ â - |L2| â¤ |L1|. -#b #G1 #G2 #L1 #L2 #T2 #i #H elim H -H [2: * ] -/3 width=6 by fqu_fwd_length_lref1, lt_to_le/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/s_transition/fquq_weight.ma b/matita/matita/contribs/lambdadelta/basic_2/s_transition/fquq_weight.ma deleted file mode 100644 index faddd7dc6..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/s_transition/fquq_weight.ma +++ /dev/null @@ -1,26 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/s_transition/fqu_weight.ma". -include "basic_2/s_transition/fquq.ma". - -(* OPTIONAL SUPCLOSURE ******************************************************) - -(* Forward lemmas with weight for closures **********************************) - -lemma fquq_fwd_fw: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ ââ¸®[b] â¦G2, L2, T2â¦ â - â¯{G2, L2, T2} â¤ â¯{G1, L1, T1}. -#b #G1 #G2 #L1 #L2 #T1 #T2 #H elim H -H [2: * ] -/3 width=2 by fqu_fwd_fw, lt_to_le/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/static/aaa.ma deleted file mode 100644 index 6ea5a39c4..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/aaa.ma +++ /dev/null @@ -1,168 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/notation/relations/atomicarity_4.ma". -include "basic_2/syntax/aarity.ma". -include "basic_2/syntax/lenv.ma". -include "basic_2/syntax/genv.ma". - -(* ATONIC ARITY ASSIGNMENT FOR TERMS ****************************************) - -(* activate genv *) -inductive aaa: relation4 genv lenv term aarity â -| aaa_sort: âG,L,s. aaa G L (âs) (âª) -| aaa_zero: âI,G,L,V,B. aaa G L V B â aaa G (L.â{I}V) (#0) B -| aaa_lref: âI,G,L,A,i. aaa G L (#i) A â aaa G (L.â{I}) (#âi) A -| aaa_abbr: âp,G,L,V,T,B,A. - aaa G L V B â aaa G (L.âV) T A â aaa G L (â{p}V.T) A -| aaa_abst: âp,G,L,V,T,B,A. - aaa G L V B â aaa G (L.âV) T A â aaa G L (â{p}V.T) (â¡B.A) -| aaa_appl: âG,L,V,T,B,A. aaa G L V B â aaa G L T (â¡B.A) â aaa G L (âV.T) A -| aaa_cast: âG,L,V,T,A. aaa G L V A â aaa G L T A â aaa G L (âV.T) A -. - -interpretation "atomic arity assignment (term)" - 'AtomicArity G L T A = (aaa G L T A). - -(* Basic inversion lemmas ***************************************************) - -fact aaa_inv_sort_aux: âG,L,T,A. â¦G, Lâ¦ â¢ T â A â âs. T = âs â A = âª. -#G #L #T #A * -G -L -T -A // -[ #I #G #L #V #B #_ #s #H destruct -| #I #G #L #A #i #_ #s #H destruct -| #p #G #L #V #T #B #A #_ #_ #s #H destruct -| #p #G #L #V #T #B #A #_ #_ #s #H destruct -| #G #L #V #T #B #A #_ #_ #s #H destruct -| #G #L #V #T #A #_ #_ #s #H destruct -] -qed-. - -lemma aaa_inv_sort: âG,L,A,s. â¦G, Lâ¦ â¢ âs â A â A = âª. -/2 width=6 by aaa_inv_sort_aux/ qed-. - -fact aaa_inv_zero_aux: âG,L,T,A. â¦G, Lâ¦ â¢ T â A â T = #0 â - ââI,K,V. L = K.â{I}V & â¦G, Kâ¦ â¢ V â A. -#G #L #T #A * -G -L -T -A /2 width=5 by ex2_3_intro/ -[ #G #L #s #H destruct -| #I #G #L #A #i #_ #H destruct -| #p #G #L #V #T #B #A #_ #_ #H destruct -| #p #G #L #V #T #B #A #_ #_ #H destruct -| #G #L #V #T #B #A #_ #_ #H destruct -| #G #L #V #T #A #_ #_ #H destruct -] -qed-. - -lemma aaa_inv_zero: âG,L,A. â¦G, Lâ¦ â¢ #0 â A â - ââI,K,V. L = K.â{I}V & â¦G, Kâ¦ â¢ V â A. -/2 width=3 by aaa_inv_zero_aux/ qed-. - -fact aaa_inv_lref_aux: âG,L,T,A. â¦G, Lâ¦ â¢ T â A â âi. T = #(âi) â - ââI,K. L = K.â{I} & â¦G, Kâ¦ â¢ #i â A. -#G #L #T #A * -G -L -T -A -[ #G #L #s #j #H destruct -| #I #G #L #V #B #_ #j #H destruct -| #I #G #L #A #i #HA #j #H destruct /2 width=4 by ex2_2_intro/ -| #p #G #L #V #T #B #A #_ #_ #j #H destruct -| #p #G #L #V #T #B #A #_ #_ #j #H destruct -| #G #L #V #T #B #A #_ #_ #j #H destruct -| #G #L #V #T #A #_ #_ #j #H destruct -] -qed-. - -lemma aaa_inv_lref: âG,L,A,i. â¦G, Lâ¦ â¢ #âi â A â - ââI,K. L = K.â{I} & â¦G, Kâ¦ â¢ #i â A. -/2 width=3 by aaa_inv_lref_aux/ qed-. - -fact aaa_inv_gref_aux: âG,L,T,A. â¦G, Lâ¦ â¢ T â A â âl. T = Â§l â â¥. -#G #L #T #A * -G -L -T -A -[ #G #L #s #k #H destruct -| #I #G #L #V #B #_ #k #H destruct -| #I #G #L #A #i #_ #k #H destruct -| #p #G #L #V #T #B #A #_ #_ #k #H destruct -| #p #G #L #V #T #B #A #_ #_ #k #H destruct -| #G #L #V #T #B #A #_ #_ #k #H destruct -| #G #L #V #T #A #_ #_ #k #H destruct -] -qed-. - -lemma aaa_inv_gref: âG,L,A,l. â¦G, Lâ¦ â¢ Â§l â A â â¥. -/2 width=7 by aaa_inv_gref_aux/ qed-. - -fact aaa_inv_abbr_aux: âG,L,T,A. â¦G, Lâ¦ â¢ T â A â âp,W,U. T = â{p}W.U â - ââB. â¦G, Lâ¦ â¢ W â B & â¦G, L.âWâ¦ â¢ U â A. -#G #L #T #A * -G -L -T -A -[ #G #L #s #q #W #U #H destruct -| #I #G #L #V #B #_ #q #W #U #H destruct -| #I #G #L #A #i #_ #q #W #U #H destruct -| #p #G #L #V #T #B #A #HV #HT #q #W #U #H destruct /2 width=2 by ex2_intro/ -| #p #G #L #V #T #B #A #_ #_ #q #W #U #H destruct -| #G #L #V #T #B #A #_ #_ #q #W #U #H destruct -| #G #L #V #T #A #_ #_ #q #W #U #H destruct -] -qed-. - -lemma aaa_inv_abbr: âp,G,L,V,T,A. â¦G, Lâ¦ â¢ â{p}V.T â A â - ââB. â¦G, Lâ¦ â¢ V â B & â¦G, L.âVâ¦ â¢ T â A. -/2 width=4 by aaa_inv_abbr_aux/ qed-. - -fact aaa_inv_abst_aux: âG,L,T,A. â¦G, Lâ¦ â¢ T â A â âp,W,U. T = â{p}W.U â - ââB1,B2. â¦G, Lâ¦ â¢ W â B1 & â¦G, L.âWâ¦ â¢ U â B2 & A = â¡B1.B2. -#G #L #T #A * -G -L -T -A -[ #G #L #s #q #W #U #H destruct -| #I #G #L #V #B #_ #q #W #U #H destruct -| #I #G #L #A #i #_ #q #W #U #H destruct -| #p #G #L #V #T #B #A #_ #_ #q #W #U #H destruct -| #p #G #L #V #T #B #A #HV #HT #q #W #U #H destruct /2 width=5 by ex3_2_intro/ -| #G #L #V #T #B #A #_ #_ #q #W #U #H destruct -| #G #L #V #T #A #_ #_ #q #W #U #H destruct -] -qed-. - -lemma aaa_inv_abst: âp,G,L,W,T,A. â¦G, Lâ¦ â¢ â{p}W.T â A â - ââB1,B2. â¦G, Lâ¦ â¢ W â B1 & â¦G, L.âWâ¦ â¢ T â B2 & A = â¡B1.B2. -/2 width=4 by aaa_inv_abst_aux/ qed-. - -fact aaa_inv_appl_aux: âG,L,T,A. â¦G, Lâ¦ â¢ T â A â âW,U. T = âW.U â - ââB. â¦G, Lâ¦ â¢ W â B & â¦G, Lâ¦ â¢ U â â¡B.A. -#G #L #T #A * -G -L -T -A -[ #G #L #s #W #U #H destruct -| #I #G #L #V #B #_ #W #U #H destruct -| #I #G #L #A #i #_ #W #U #H destruct -| #p #G #L #V #T #B #A #_ #_ #W #U #H destruct -| #p #G #L #V #T #B #A #_ #_ #W #U #H destruct -| #G #L #V #T #B #A #HV #HT #W #U #H destruct /2 width=3 by ex2_intro/ -| #G #L #V #T #A #_ #_ #W #U #H destruct -] -qed-. - -lemma aaa_inv_appl: âG,L,V,T,A. â¦G, Lâ¦ â¢ âV.T â A â - ââB. â¦G, Lâ¦ â¢ V â B & â¦G, Lâ¦ â¢ T â â¡B.A. -/2 width=3 by aaa_inv_appl_aux/ qed-. - -fact aaa_inv_cast_aux: âG,L,T,A. â¦G, Lâ¦ â¢ T â A â âW,U. T = âW.U â - â¦G, Lâ¦ â¢ W â A â§ â¦G, Lâ¦ â¢ U â A. -#G #L #T #A * -G -L -T -A -[ #G #L #s #W #U #H destruct -| #I #G #L #V #B #_ #W #U #H destruct -| #I #G #L #A #i #_ #W #U #H destruct -| #p #G #L #V #T #B #A #_ #_ #W #U #H destruct -| #p #G #L #V #T #B #A #_ #_ #W #U #H destruct -| #G #L #V #T #B #A #_ #_ #W #U #H destruct -| #G #L #V #T #A #HV #HT #W #U #H destruct /2 width=1 by conj/ -] -qed-. - -lemma aaa_inv_cast: âG,L,W,T,A. â¦G, Lâ¦ â¢ âW.T â A â - â¦G, Lâ¦ â¢ W â A â§ â¦G, Lâ¦ â¢ T â A. -/2 width=3 by aaa_inv_cast_aux/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/aaa_aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/static/aaa_aaa.ma deleted file mode 100644 index f6224a96e..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/aaa_aaa.ma +++ /dev/null @@ -1,38 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/static/aaa.ma". - -(* ATONIC ARITY ASSIGNMENT ON TERMS *****************************************) - -(* Main inversion lemmas ****************************************************) - -theorem aaa_mono: âG,L,T,A1. â¦G, Lâ¦ â¢ T â A1 â âA2. â¦G, Lâ¦ â¢ T â A2 â A1 = A2. -#G #L #T #A1 #H elim H -G -L -T -A1 -[ #G #L #s #A2 #H >(aaa_inv_sort â¦ H) -H // -| #I1 #G #L #V1 #B #_ #IH #A2 #H - elim (aaa_inv_zero â¦ H) -H #I2 #K2 #V2 #H #HA2 destruct /2 width=1 by/ -| #I1 #G #L #B #i #_ #IH #A2 #H - elim (aaa_inv_lref â¦ H) -H #I2 #K2 #H #HA2 destruct /2 width=1 by/ -| #p #G #L #V #T #B1 #A1 #_ #_ #_ #IH #A2 #H - elim (aaa_inv_abbr â¦ H) -H /2 width=1 by/ -| #p #G #L #V1 #T1 #B1 #A1 #_ #_ #IHB1 #IHA1 #X #H - elim (aaa_inv_abst â¦ H) -H #B2 #A2 #HB2 #HA2 #H destruct /3 width=1 by eq_f2/ -| #G #L #V1 #T1 #B1 #A1 #_ #_ #_ #IHA1 #A2 #H - elim (aaa_inv_appl â¦ H) -H #B2 #_ #HA2 - lapply (IHA1 â¦ HA2) -L #H destruct // -| #G #L #V #T #A1 #_ #_ #_ #IHA1 #A2 #H - elim (aaa_inv_cast â¦ H) -H /2 width=1 by/ -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/aaa_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/static/aaa_drops.ma deleted file mode 100644 index 930ca157c..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/aaa_drops.ma +++ /dev/null @@ -1,123 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/relocation/drops_drops.ma". -include "basic_2/s_computation/fqup_weight.ma". -include "basic_2/s_computation/fqup_drops.ma". -include "basic_2/static/aaa.ma". - -(* ATONIC ARITY ASSIGNMENT ON TERMS *****************************************) - -(* Advanced properties ******************************************************) - -(* Basic_2A1: was: aaa_lref *) -lemma aaa_lref_drops: âI,G,K,V,B,i,L. â¬*[i] L â K.â{I}V â â¦G, Kâ¦ â¢ V â B â â¦G, Lâ¦ â¢ #i â B. -#I #G #K #V #B #i elim i -i -[ #L #H lapply (drops_fwd_isid â¦ H ?) -H // - #H destruct /2 width=1 by aaa_zero/ -| #i #IH #L (lifts_inv_sort1 â¦ HX) -HX // -| #i1 #HG #HL #HT #A #H #b #f #L2 #HL21 #X #HX - elim (aaa_inv_lref_drops â¦ H) -H #J #K1 #V1 #HLK1 #HA - elim (lifts_inv_lref1 â¦ HX) -HX #i2 #Hf #H destruct - lapply (drops_trans â¦ HL21 â¦ HLK1 ??) -HL21 [1,2: // ] #H - elim (drops_split_trans â¦ H) -H [ |*: /2 width=6 by after_uni_dx/ ] #Y #HLK2 #HY - lapply (drops_tls_at â¦ Hf â¦ HY) -HY #HY -Hf - elim (drops_inv_skip2 â¦ HY) -HY #Z #K2 #HK21 #HZ #H destruct - elim (liftsb_inv_pair_sn â¦ HZ) -HZ #V2 #HV12 #H destruct - /4 width=12 by aaa_lref_drops, fqup_lref, drops_inv_gen/ -| #l #HG #HL #HT #A #H #b #f #L2 #HL21 #X #HX -b -f -IH - elim (aaa_inv_gref â¦ H) -| #p * #V1 #T1 #HG #HL #HT #A #H #b #f #L2 #HL21 #X #HX - [ elim (aaa_inv_abbr â¦ H) -H #B #HB #HA - elim (lifts_inv_bind1 â¦ HX) -HX #V2 #T2 #HV12 #HT12 #H destruct - /5 width=9 by aaa_abbr, drops_skip, ext2_pair/ - | elim (aaa_inv_abst â¦ H) -H #B #A0 #HB #HA #H0 - elim (lifts_inv_bind1 â¦ HX) -HX #V2 #T2 #HV12 #HT12 #H destruct - /5 width=8 by aaa_abst, drops_skip, ext2_pair/ - ] -| * #V1 #T1 #HG #HL #HT #A #H #b #f #L2 #HL21 #X #HX - [ elim (aaa_inv_appl â¦ H) -H #B #HB #HA - elim (lifts_inv_flat1 â¦ HX) -HX #V2 #T2 #HV12 #HT12 #H destruct - /3 width=10 by aaa_appl/ - | elim (aaa_inv_cast â¦ H) -H #H1A #H2A - elim (lifts_inv_flat1 â¦ HX) -HX #V2 #T2 #HV12 #HT12 #H destruct - /3 width=8 by aaa_cast/ - ] -] -qed-. - -(* Inversion lemmas with generic slicing for local environments *************) - -(* Basic_2A1: includes: aaa_inv_lift *) -lemma aaa_inv_lifts: âG,L2,T2,A. â¦G, L2â¦ â¢ T2 â A â âb,f,L1. â¬*[b, f] L2 â L1 â - âT1. â¬*[f] T1 â T2 â â¦G, L1â¦ â¢ T1 â A. -@(fqup_wf_ind_eq (â)) #G0 #L0 #T0 #IH #G #L2 * * -[ #s #HG #HL #HT #A #H #b #f #L1 #HL21 #X #HX -b -IH - lapply (aaa_inv_sort â¦ H) -H #H destruct - >(lifts_inv_sort2 â¦ HX) -HX // -| #i2 #HG #HL #HT #A #H #b #f #L1 #HL21 #X #HX - elim (aaa_inv_lref_drops â¦ H) -H #J #K2 #V2 #HLK2 #HA - elim (lifts_inv_lref2 â¦ HX) -HX #i1 #Hf #H destruct - lapply (drops_split_div â¦ HL21 (ðâ´i1âµ) ???) -HL21 [4: * |*: // ] #Y #HLK1 #HY - lapply (drops_conf â¦ HLK2 â¦ HY ??) -HY [1,2: /2 width=6 by after_uni_dx/ ] #HY - lapply (drops_tls_at â¦ Hf â¦ HY) -HY #HY -Hf - elim (drops_inv_skip1 â¦ HY) -HY #Z #K1 #HK21 #HZ #H destruct - elim (liftsb_inv_pair_dx â¦ HZ) -HZ #V1 #HV12 #H destruct - /4 width=12 by aaa_lref_drops, fqup_lref, drops_inv_F/ -| #l #HG #HL #HT #A #H #b #f #L1 #HL21 #X #HX -IH -b -f - elim (aaa_inv_gref â¦ H) -| #p * #V2 #T2 #HG #HL #HT #A #H #b #f #L1 #HL21 #X #HX - [ elim (aaa_inv_abbr â¦ H) -H #B #HB #HA - elim (lifts_inv_bind2 â¦ HX) -HX #V1 #T1 #HV12 #HT12 #H destruct - /5 width=9 by aaa_abbr, drops_skip, ext2_pair/ - | elim (aaa_inv_abst â¦ H) -H #B #A0 #HB #HA #H0 - elim (lifts_inv_bind2 â¦ HX) -HX #V1 #T1 #HV12 #HT12 #H destruct - /5 width=8 by aaa_abst, drops_skip, ext2_pair/ - ] -| * #V2 #T2 #HG #HL #HT #A #H #b #f #L1 #HL21 #X #HX - [ elim (aaa_inv_appl â¦ H) -H #B #HB #HA - elim (lifts_inv_flat2 â¦ HX) -HX #V1 #T1 #HV12 #HT12 #H destruct - /3 width=10 by aaa_appl/ - | elim (aaa_inv_cast â¦ H) -H #H1A #H2A - elim (lifts_inv_flat2 â¦ HX) -HX #V1 #T1 #HV12 #HT12 #H destruct - /3 width=8 by aaa_cast/ - ] -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/aaa_fdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/static/aaa_fdeq.ma deleted file mode 100644 index 13b5acbd6..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/aaa_fdeq.ma +++ /dev/null @@ -1,25 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/static/fdeq.ma". -include "basic_2/static/aaa_rdeq.ma". - -(* ATONIC ARITY ASSIGNMENT ON TERMS *****************************************) - -(* Properties with degree-based equivalence on referred entries *************) - -lemma aaa_fdeq_conf: âh,o,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[h, o] â¦G2, L2, T2â¦ â - âA. â¦G1, L1â¦ â¢ T1 â A â â¦G2, L2â¦ â¢ T2 â A. -#h #o #G1 #G2 #L1 #L2 #T1 #T2 * -G2 -L2 -T2 -/2 width=7 by aaa_tdeq_conf_rdeq/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/aaa_fqus.ma b/matita/matita/contribs/lambdadelta/basic_2/static/aaa_fqus.ma deleted file mode 100644 index 812bcc365..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/aaa_fqus.ma +++ /dev/null @@ -1,63 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/s_computation/fqus_fqup.ma". -include "basic_2/static/aaa_drops.ma". - -(* ATONIC ARITY ASSIGNMENT ON TERMS *****************************************) - -(* Properties on supclosure *************************************************) - -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_zero â¦ H) -H - #J #K #V #H #HA destruct /2 width=2 by ex_intro/ -| * [ #p ] * #G #L #V #T #X #H - [ elim (aaa_inv_abbr â¦ H) - | elim (aaa_inv_abst â¦ H) - | elim (aaa_inv_appl â¦ H) - | elim (aaa_inv_cast â¦ H) - ] -H /2 width=2 by ex_intro/ -| #p * #G #L #V #T #X #H - [ elim (aaa_inv_abbr â¦ H) - | elim (aaa_inv_abst â¦ H) - ] -H /2 width=2 by ex_intro/ -| #p #I #G #L #V #T #H destruct -| * #G #L #V #T #X #H - [ elim (aaa_inv_appl â¦ H) - | elim (aaa_inv_cast â¦ H) - ] -H /2 width=2 by ex_intro/ -| /5 width=8 by aaa_inv_lifts, drops_refl, drops_drop, ex_intro/ -] -qed-. - -lemma aaa_fquq_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 -H /2 width=6 by aaa_fqu_conf/ -* #H1 #H2 #H3 destruct /2 width=2 by ex_intro/ -qed-. - -lemma aaa_fqup_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 @(fqup_ind â¦ H) -G2 -L2 -T2 -[2: #G #G2 #L #L2 #T #T2 #_ #H2 #IH1 #A #HA elim (IH1 â¦ HA) -IH1 -A ] -/2 width=6 by aaa_fqu_conf/ -qed-. - -lemma aaa_fqus_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(fqus_inv_fqup â¦ H) -H /2 width=6 by aaa_fqup_conf/ -* #H1 #H2 #H3 destruct /2 width=2 by ex_intro/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/aaa_rdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/static/aaa_rdeq.ma deleted file mode 100644 index d55f97ce7..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/aaa_rdeq.ma +++ /dev/null @@ -1,45 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/static/rdeq.ma". -include "basic_2/static/aaa.ma". - -(* ATONIC ARITY ASSIGNMENT ON TERMS *****************************************) - -(* Properties with degree-based equivalence on referred entries *************) - -lemma aaa_tdeq_conf_rdeq: âh,o,G,L1,T1,A. â¦G, L1â¦ â¢ T1 â A â âT2. T1 â[h, o] T2 â - âL2. L1 â[h, o, T1] L2 â â¦G, L2â¦ â¢ T2 â A. -#h #o #G #L1 #T1 #A #H elim H -G -L1 -T1 -A -[ #G #L1 #s1 #X #H1 elim (tdeq_inv_sort1 â¦ H1) -H1 // -| #I #G #L1 #V1 #B #_ #IH #X #H1 >(tdeq_inv_lref1 â¦ H1) -H1 - #Y #H2 elim (rdeq_inv_zero_pair_sn â¦ H2) -H2 - #L2 #V2 #HL12 #HV12 #H destruct /3 width=1 by aaa_zero/ -| #I #G #L1 #A #i #_ #IH #X #H1 >(tdeq_inv_lref1 â¦ H1) -H1 - #Y #H2 elim (rdeq_inv_lref_bind_sn â¦ H2) -H2 - #J #L2 #HL12 #H destruct /3 width=1 by aaa_lref/ -| #p #G #L1 #V1 #T1 #B #A #_ #_ #IHV #IHT #X #H1 elim (tdeq_inv_pair1 â¦ H1) -H1 - #V2 #T2 #HV12 #HT12 #H #L2 #H2 elim (rdeq_inv_bind â¦ H2) -H2 destruct - /5 width=2 by aaa_abbr, rdeq_bind_repl_dx, ext2_pair/ -| #p #G #L1 #V1 #T1 #B #A #_ #_ #IHV #IHT #X #H1 elim (tdeq_inv_pair1 â¦ H1) -H1 - #V2 #T2 #HV12 #HT12 #H #L2 #H2 elim (rdeq_inv_bind â¦ H2) -H2 destruct - /5 width=2 by aaa_abst, rdeq_bind_repl_dx, ext2_pair/ -| #G #L1 #V1 #T1 #B #A #_ #_ #IHV #IHT #X #H1 elim (tdeq_inv_pair1 â¦ H1) -H1 - #V2 #T2 #HV12 #HT12 #H #L2 #H2 elim (rdeq_inv_flat â¦ H2) -H2 destruct - /3 width=3 by aaa_appl/ -| #G #L1 #V1 #T1 #A #_ #_ #IHV #IHT #X #H1 elim (tdeq_inv_pair1 â¦ H1) -H1 - #V2 #T2 #HV12 #HT12 #H #L2 #H2 elim (rdeq_inv_flat â¦ H2) -H2 destruct - /3 width=1 by aaa_cast/ -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/fdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/static/fdeq.ma deleted file mode 100644 index 6d8dd1589..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/fdeq.ma +++ /dev/null @@ -1,52 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/notation/relations/stareqsn_8.ma". -include "basic_2/syntax/genv.ma". -include "basic_2/static/rdeq.ma". - -(* DEGREE-BASED EQUIVALENCE FOR CLOSURES ON REFERRED ENTRIES ****************) - -inductive fdeq (h) (o) (G) (L1) (T1): relation3 genv lenv term â -| fdeq_intro_sn: âL2,T2. L1 â[h, o, T1] L2 â T1 â[h, o] T2 â - fdeq h o G L1 T1 G L2 T2 -. - -interpretation - "degree-based equivalence on referred entries (closure)" - 'StarEqSn h o G1 L1 T1 G2 L2 T2 = (fdeq h o G1 L1 T1 G2 L2 T2). - -(* Basic_properties *********************************************************) - -lemma fdeq_intro_dx (h) (o) (G): âL1,L2,T2. L1 â[h, o, T2] L2 â - âT1. T1 â[h, o] T2 â â¦G, L1, T1â¦ â[h, o] â¦G, L2, T2â¦. -/3 width=3 by fdeq_intro_sn, tdeq_rdeq_div/ qed. - -(* Basic inversion lemmas ***************************************************) - -lemma fdeq_inv_gen_sn: âh,o,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[h, o] â¦G2, L2, T2â¦ â - â§â§ G1 = G2 & L1 â[h, o, T1] L2 & T1 â[h, o] T2. -#h #o #G1 #G2 #L1 #L2 #T1 #T2 * -G2 -L2 -T2 /2 width=1 by and3_intro/ -qed-. - -lemma fdeq_inv_gen_dx: âh,o,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[h, o] â¦G2, L2, T2â¦ â - â§â§ G1 = G2 & L1 â[h, o, T2] L2 & T1 â[h, o] T2. -#h #o #G1 #G2 #L1 #L2 #T1 #T2 * -G2 -L2 -T2 -/3 width=3 by tdeq_rdeq_conf, and3_intro/ -qed-. - -(* Basic_2A1: removed theorems 6: - fleq_refl fleq_sym fleq_inv_gen - fleq_trans fleq_canc_sn fleq_canc_dx -*) diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/fdeq_fdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/static/fdeq_fdeq.ma deleted file mode 100644 index 13ab8ff2f..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/fdeq_fdeq.ma +++ /dev/null @@ -1,52 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/static/rdeq_rdeq.ma". -include "basic_2/static/fdeq.ma". - -(* DEGREE-BASED EQUIVALENCE FOR CLOSURES ON REFERRED ENTRIES ****************) - -(* Advanced properties ******************************************************) - -lemma fdeq_sym: âh,o. tri_symmetric â¦ (fdeq h o). -#h #o #G1 #G2 #L1 #L2 #T1 #T2 * -G1 -L1 -T1 -/3 width=1 by fdeq_intro_dx, rdeq_sym, tdeq_sym/ -qed-. - -(* Main properties **********************************************************) - -theorem fdeq_trans: âh,o. tri_transitive â¦ (fdeq h o). -#h #o #G1 #G #L1 #L #T1 #T * -G -L -T -#L #T #HL1 #HT1 #G2 #L2 #T2 * -G2 -L2 -T2 -/4 width=5 by fdeq_intro_sn, rdeq_trans, tdeq_rdeq_div, tdeq_trans/ -qed-. - -theorem fdeq_canc_sn: âh,o,G,G1,G2,L,L1,L2,T,T1,T2. - â¦G, L, Tâ¦ â[h, o] â¦G1, L1, T1â¦â â¦G, L, Tâ¦ â[h, o] â¦G2, L2, T2â¦ â â¦G1, L1, T1â¦ â[h, o] â¦G2, L2, T2â¦. -/3 width=5 by fdeq_trans, fdeq_sym/ qed-. - -theorem fdeq_canc_dx: âh,o,G1,G2,G,L1,L2,L,T1,T2,T. - â¦G1, L1, T1â¦ â[h, o] â¦G, L, Tâ¦ â â¦G2, L2, T2â¦ â[h, o] â¦G, L, Tâ¦ â â¦G1, L1, T1â¦ â[h, o] â¦G2, L2, T2â¦. -/3 width=5 by fdeq_trans, fdeq_sym/ qed-. - -(* Main inversion lemmas with degree-based equivalence on terms *************) - -theorem fdeq_tdneq_repl_dx: âh,o,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[h, o] â¦G2, L2, T2â¦ â - âU1,U2. â¦G1, L1, U1â¦ â[h, o] â¦G2, L2, U2â¦ â - (T2 â[h, o] U2 â â¥) â (T1 â[h, o] U1 â â¥). -#h #o #G1 #G2 #L1 #L2 #T1 #T2 #HT #U1 #U2 #HU #HnTU2 #HTU1 -elim (fdeq_inv_gen_sn â¦ HT) -HT #_ #_ #HT -elim (fdeq_inv_gen_sn â¦ HU) -HU #_ #_ #HU -/3 width=5 by tdeq_repl/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/fdeq_fqup.ma b/matita/matita/contribs/lambdadelta/basic_2/static/fdeq_fqup.ma deleted file mode 100644 index e9cc92a39..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/fdeq_fqup.ma +++ /dev/null @@ -1,29 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/static/rdeq_fqup.ma". -include "basic_2/static/fdeq.ma". - -(* DEGREE-BASED EQUIVALENCE FOR CLOSURES ON REFERRED ENTRIES ****************) - -(* Properties with degree-based equivalence for terms ***********************) - -lemma tdeq_fdeq: âh,o,T1,T2. T1 â[h, o] T2 â - âG,L. â¦G, L, T1â¦ â[h, o] â¦G, L, T2â¦. -/2 width=1 by fdeq_intro_sn/ qed. - -(* Advanced properties ******************************************************) - -lemma fdeq_refl: âh,o. tri_reflexive â¦ (fdeq h o). -/2 width=1 by fdeq_intro_sn/ qed. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/fdeq_fqus.ma b/matita/matita/contribs/lambdadelta/basic_2/static/fdeq_fqus.ma deleted file mode 100644 index 6c2246cad..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/fdeq_fqus.ma +++ /dev/null @@ -1,31 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/static/rdeq_fqus.ma". -include "basic_2/static/fdeq.ma". - -(* DEGREE-BASED EQUIVALENCE FOR CLOSURES ON REFERRED ENTRIES ****************) - -(* Properties with star-iterated structural successor for closures **********) - -lemma fdeq_fqus_trans: âh,o,b,G1,G,L1,L,T1,T. â¦G1, L1, T1â¦ â[h, o] â¦G, L, Tâ¦ â - âG2,L2,T2. â¦G, L, Tâ¦ â*[b] â¦G2, L2, T2â¦ â - ââG,L0,T0. â¦G1, L1, T1â¦ â*[b] â¦G, L0, T0â¦ & â¦G, L0, T0â¦ â[h, o] â¦G2, L2, T2â¦. -#h #o #b #G1 #G #L1 #L #T1 #T #H1 #G2 #L2 #T2 #H2 -elim(fdeq_inv_gen_dx â¦ H1) -H1 #HG #HL1 #HT1 destruct -elim (rdeq_fqus_trans â¦ H2 â¦ HL1) -L #L #T0 #H2 #HT02 #HL2 -elim (tdeq_fqus_trans â¦ H2 â¦ HT1) -T #L0 #T #H2 #HT0 #HL0 -lapply (tdeq_rdeq_conf â¦ HT02 â¦ HL0) -HL0 #HL0 -/4 width=7 by fdeq_intro_dx, rdeq_trans, tdeq_trans, ex2_3_intro/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/fdeq_req.ma b/matita/matita/contribs/lambdadelta/basic_2/static/fdeq_req.ma deleted file mode 100644 index 7f98713a0..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/fdeq_req.ma +++ /dev/null @@ -1,27 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/static/rdeq_req.ma". -include "basic_2/static/fdeq.ma". - -(* DEGREE-BASED EQUIVALENCE FOR CLOSURES ON REFERRED ENTRIES ****************) - -(* Properties with syntactic equivalence on referred entries ****************) - -lemma req_rdeq_trans: âh,o,L1,L,T1. L1 â¡[T1] L â - âG1,G2,L2,T2. â¦G1, L, T1â¦ â[h, o] â¦G2, L2, T2â¦ â â¦G1, L1, T1â¦ â[h, o] â¦G2, L2, T2â¦. -#h #o #L1 #L #T1 #HL1 #G1 #G2 #L2 #T2 #H -elim (fdeq_inv_gen_sn â¦ H) -H #H #HL2 #T12 destruct -/3 width=3 by fdeq_intro_sn, req_rdeq_trans/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/frees.ma b/matita/matita/contribs/lambdadelta/basic_2/static/frees.ma deleted file mode 100644 index b35ea99b8..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/frees.ma +++ /dev/null @@ -1,226 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "ground_2/relocation/rtmap_sor.ma". -include "basic_2/notation/relations/freestar_3.ma". -include "basic_2/syntax/lenv.ma". - -(* CONTEXT-SENSITIVE FREE VARIABLES *****************************************) - -inductive frees: relation3 lenv term rtmap â -| frees_sort: âf,L,s. ðâ¦fâ¦ â frees L (âs) f -| frees_atom: âf,i. ðâ¦fâ¦ â frees (â) (#i) (â«¯*[i]âf) -| frees_pair: âf,I,L,V. frees L V f â - frees (L.â{I}V) (#0) (âf) -| frees_unit: âf,I,L. ðâ¦fâ¦ â frees (L.â¤{I}) (#0) (âf) -| frees_lref: âf,I,L,i. frees L (#i) f â - frees (L.â{I}) (#âi) (â«¯f) -| frees_gref: âf,L,l. ðâ¦fâ¦ â frees L (Â§l) f -| frees_bind: âf1,f2,f,p,I,L,V,T. frees L V f1 â frees (L.â{I}V) T f2 â - f1 â â«±f2 â f â frees L (â{p,I}V.T) f -| frees_flat: âf1,f2,f,I,L,V,T. frees L V f1 â frees L T f2 â - f1 â f2 â f â frees L (â{I}V.T) f -. - -interpretation - "context-sensitive free variables (term)" - 'FreeStar L T f = (frees L T f). - -(* Basic inversion lemmas ***************************************************) - -fact frees_inv_sort_aux: âf,L,X. L â¢ ð*â¦Xâ¦ â f â âx. X = âx â ðâ¦fâ¦. -#L #X #f #H elim H -f -L -X // -[ #f #i #_ #x #H destruct -| #f #_ #L #V #_ #_ #x #H destruct -| #f #_ #L #_ #x #H destruct -| #f #_ #L #i #_ #_ #x #H destruct -| #f1 #f2 #f #p #I #L #V #T #_ #_ #_ #_ #_ #x #H destruct -| #f1 #f2 #f #I #L #V #T #_ #_ #_ #_ #_ #x #H destruct -] -qed-. - -lemma frees_inv_sort: âf,L,s. L â¢ ð*â¦âsâ¦ â f â ðâ¦fâ¦. -/2 width=5 by frees_inv_sort_aux/ qed-. - -fact frees_inv_atom_aux: âf,L,X. L â¢ ð*â¦Xâ¦ â f â âi. L = â â X = #i â - ââg. ðâ¦gâ¦ & f = â«¯*[i]âg. -#f #L #X #H elim H -f -L -X -[ #f #L #s #_ #j #_ #H destruct -| #f #i #Hf #j #_ #H destruct /2 width=3 by ex2_intro/ -| #f #I #L #V #_ #_ #j #H destruct -| #f #I #L #_ #j #H destruct -| #f #I #L #i #_ #_ #j #H destruct -| #f #L #l #_ #j #_ #H destruct -| #f1 #f2 #f #p #I #L #V #T #_ #_ #_ #_ #_ #j #_ #H destruct -| #f1 #f2 #f #I #L #V #T #_ #_ #_ #_ #_ #j #_ #H destruct -] -qed-. - -lemma frees_inv_atom: âf,i. â â¢ ð*â¦#iâ¦ â f â ââg. ðâ¦gâ¦ & f = â«¯*[i]âg. -/2 width=5 by frees_inv_atom_aux/ qed-. - -fact frees_inv_pair_aux: âf,L,X. L â¢ ð*â¦Xâ¦ â f â âI,K,V. L = K.â{I}V â X = #0 â - ââg. K â¢ ð*â¦Vâ¦ â g & f = âg. -#f #L #X * -f -L -X -[ #f #L #s #_ #Z #Y #X #_ #H destruct -| #f #i #_ #Z #Y #X #H destruct -| #f #I #L #V #Hf #Z #Y #X #H #_ destruct /2 width=3 by ex2_intro/ -| #f #I #L #_ #Z #Y #X #H destruct -| #f #I #L #i #_ #Z #Y #X #_ #H destruct -| #f #L #l #_ #Z #Y #X #_ #H destruct -| #f1 #f2 #f #p #I #L #V #T #_ #_ #_ #Z #Y #X #_ #H destruct -| #f1 #f2 #f #I #L #V #T #_ #_ #_ #Z #Y #X #_ #H destruct -] -qed-. - -lemma frees_inv_pair: âf,I,K,V. K.â{I}V â¢ ð*â¦#0â¦ â f â ââg. K â¢ ð*â¦Vâ¦ â g & f = âg. -/2 width=6 by frees_inv_pair_aux/ qed-. - -fact frees_inv_unit_aux: âf,L,X. L â¢ ð*â¦Xâ¦ â f â âI,K. L = K.â¤{I} â X = #0 â - ââg. ðâ¦gâ¦ & f = âg. -#f #L #X * -f -L -X -[ #f #L #s #_ #Z #Y #_ #H destruct -| #f #i #_ #Z #Y #H destruct -| #f #I #L #V #_ #Z #Y #H destruct -| #f #I #L #Hf #Z #Y #H destruct /2 width=3 by ex2_intro/ -| #f #I #L #i #_ #Z #Y #_ #H destruct -| #f #L #l #_ #Z #Y #_ #H destruct -| #f1 #f2 #f #p #I #L #V #T #_ #_ #_ #Z #Y #_ #H destruct -| #f1 #f2 #f #I #L #V #T #_ #_ #_ #Z #Y #_ #H destruct -] -qed-. - -lemma frees_inv_unit: âf,I,K. K.â¤{I} â¢ ð*â¦#0â¦ â f â ââg. ðâ¦gâ¦ & f = âg. -/2 width=7 by frees_inv_unit_aux/ qed-. - -fact frees_inv_lref_aux: âf,L,X. L â¢ ð*â¦Xâ¦ â f â âI,K,j. L = K.â{I} â X = #(âj) â - ââg. K â¢ ð*â¦#jâ¦ â g & f = â«¯g. -#f #L #X * -f -L -X -[ #f #L #s #_ #Z #Y #j #_ #H destruct -| #f #i #_ #Z #Y #j #H destruct -| #f #I #L #V #_ #Z #Y #j #_ #H destruct -| #f #I #L #_ #Z #Y #j #_ #H destruct -| #f #I #L #i #Hf #Z #Y #j #H1 #H2 destruct /2 width=3 by ex2_intro/ -| #f #L #l #_ #Z #Y #j #_ #H destruct -| #f1 #f2 #f #p #I #L #V #T #_ #_ #_ #Z #Y #j #_ #H destruct -| #f1 #f2 #f #I #L #V #T #_ #_ #_ #Z #Y #j #_ #H destruct -] -qed-. - -lemma frees_inv_lref: âf,I,K,i. K.â{I} â¢ ð*â¦#(âi)â¦ â f â - ââg. K â¢ ð*â¦#iâ¦ â g & f = â«¯g. -/2 width=6 by frees_inv_lref_aux/ qed-. - -fact frees_inv_gref_aux: âf,L,X. L â¢ ð*â¦Xâ¦ â f â âx. X = Â§x â ðâ¦fâ¦. -#f #L #X #H elim H -f -L -X // -[ #f #i #_ #x #H destruct -| #f #_ #L #V #_ #_ #x #H destruct -| #f #_ #L #_ #x #H destruct -| #f #_ #L #i #_ #_ #x #H destruct -| #f1 #f2 #f #p #I #L #V #T #_ #_ #_ #_ #_ #x #H destruct -| #f1 #f2 #f #I #L #V #T #_ #_ #_ #_ #_ #x #H destruct -] -qed-. - -lemma frees_inv_gref: âf,L,l. L â¢ ð*â¦Â§lâ¦ â f â ðâ¦fâ¦. -/2 width=5 by frees_inv_gref_aux/ qed-. - -fact frees_inv_bind_aux: âf,L,X. L â¢ ð*â¦Xâ¦ â f â âp,I,V,T. X = â{p,I}V.T â - ââf1,f2. L â¢ ð*â¦Vâ¦ â f1 & L.â{I}V â¢ ð*â¦Tâ¦ â f2 & f1 â â«±f2 â f. -#f #L #X * -f -L -X -[ #f #L #s #_ #q #J #W #U #H destruct -| #f #i #_ #q #J #W #U #H destruct -| #f #I #L #V #_ #q #J #W #U #H destruct -| #f #I #L #_ #q #J #W #U #H destruct -| #f #I #L #i #_ #q #J #W #U #H destruct -| #f #L #l #_ #q #J #W #U #H destruct -| #f1 #f2 #f #p #I #L #V #T #HV #HT #Hf #q #J #W #U #H destruct /2 width=5 by ex3_2_intro/ -| #f1 #f2 #f #I #L #V #T #_ #_ #_ #q #J #W #U #H destruct -] -qed-. - -lemma frees_inv_bind: âf,p,I,L,V,T. L â¢ ð*â¦â{p,I}V.Tâ¦ â f â - ââf1,f2. L â¢ ð*â¦Vâ¦ â f1 & L.â{I}V â¢ ð*â¦Tâ¦ â f2 & f1 â â«±f2 â f. -/2 width=4 by frees_inv_bind_aux/ qed-. - -fact frees_inv_flat_aux: âf,L,X. L â¢ ð*â¦Xâ¦ â f â âI,V,T. X = â{I}V.T â - ââf1,f2. L â¢ ð*â¦Vâ¦ â f1 & L â¢ ð*â¦Tâ¦ â f2 & f1 â f2 â f. -#f #L #X * -f -L -X -[ #f #L #s #_ #J #W #U #H destruct -| #f #i #_ #J #W #U #H destruct -| #f #I #L #V #_ #J #W #U #H destruct -| #f #I #L #_ #J #W #U #H destruct -| #f #I #L #i #_ #J #W #U #H destruct -| #f #L #l #_ #J #W #U #H destruct -| #f1 #f2 #f #p #I #L #V #T #_ #_ #_ #J #W #U #H destruct -| #f1 #f2 #f #I #L #V #T #HV #HT #Hf #J #W #U #H destruct /2 width=5 by ex3_2_intro/ -] -qed-. - -lemma frees_inv_flat: âf,I,L,V,T. L â¢ ð*â¦â{I}V.Tâ¦ â f â - ââf1,f2. L â¢ ð*â¦Vâ¦ â f1 & L â¢ ð*â¦Tâ¦ â f2 & f1 â f2 â f. -/2 width=4 by frees_inv_flat_aux/ qed-. - -(* Basic properties ********************************************************) - -lemma frees_eq_repl_back: âL,T. eq_repl_back â¦ (Î»f. L â¢ ð*â¦Tâ¦ â f). -#L #T #f1 #H elim H -f1 -L -T -[ /3 width=3 by frees_sort, isid_eq_repl_back/ -| #f1 #i #Hf1 #g2 #H - elim (eq_inv_pushs_sn â¦ H) -H #g #Hg #H destruct - elim (eq_inv_nx â¦ Hg) -Hg - /3 width=3 by frees_atom, isid_eq_repl_back/ -| #f1 #I #L #V #_ #IH #g2 #H - elim (eq_inv_nx â¦ H) -H - /3 width=3 by frees_pair/ -| #f1 #I #L #Hf1 #g2 #H - elim (eq_inv_nx â¦ H) -H - /3 width=3 by frees_unit, isid_eq_repl_back/ -| #f1 #I #L #i #_ #IH #g2 #H - elim (eq_inv_px â¦ H) -H /3 width=3 by frees_lref/ -| /3 width=3 by frees_gref, isid_eq_repl_back/ -| /3 width=7 by frees_bind, sor_eq_repl_back3/ -| /3 width=7 by frees_flat, sor_eq_repl_back3/ -] -qed-. - -lemma frees_eq_repl_fwd: âL,T. eq_repl_fwd â¦ (Î»f. L â¢ ð*â¦Tâ¦ â f). -#L #T @eq_repl_sym /2 width=3 by frees_eq_repl_back/ -qed-. - -lemma frees_lref_push: âf,i. â â¢ ð*â¦#iâ¦ â f â â â¢ ð*â¦#âiâ¦ â â«¯f. -#f #i #H -elim (frees_inv_atom â¦ H) -H #g #Hg #H destruct -/2 width=1 by frees_atom/ -qed. - -(* Forward lemmas with test for finite colength *****************************) - -lemma frees_fwd_isfin: âf,L,T. L â¢ ð*â¦Tâ¦ â f â ðâ¦fâ¦. -#f #L #T #H elim H -f -L -T -/4 width=5 by sor_isfin, isfin_isid, isfin_tl, isfin_pushs, isfin_push, isfin_next/ -qed-. - -(* Basic_2A1: removed theorems 30: - frees_eq frees_be frees_inv - frees_inv_sort frees_inv_gref frees_inv_lref frees_inv_lref_free - frees_inv_lref_skip frees_inv_lref_ge frees_inv_lref_lt - frees_inv_bind frees_inv_flat frees_inv_bind_O - frees_lref_eq frees_lref_be frees_weak - frees_bind_sn frees_bind_dx frees_flat_sn frees_flat_dx - frees_lift_ge frees_inv_lift_be frees_inv_lift_ge - lreq_frees_trans frees_lreq_conf - llor_atom llor_skip llor_total - llor_tail_frees llor_tail_cofrees -*) diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/frees_append.ma b/matita/matita/contribs/lambdadelta/basic_2/static/frees_append.ma deleted file mode 100644 index 9cf6bfe19..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/frees_append.ma +++ /dev/null @@ -1,59 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "basic_2/syntax/append.ma". -include "basic_2/static/frees.ma". - -(* CONTEXT-SENSITIVE FREE VARIABLES *****************************************) - -(* Properties with append for local environments ****************************) - -lemma frees_append_void: âf,K,T. K â¢ ð*â¦Tâ¦ â f â â§.K â¢ ð*â¦Tâ¦ â f. -#f #K #T #H elim H -f -K -T -[ /2 width=1 by frees_sort/ -| #f * /3 width=1 by frees_atom, frees_unit, frees_lref/ -| /2 width=1 by frees_pair/ -| /2 width=1 by frees_unit/ -| /2 width=1 by frees_lref/ -| /2 width=1 by frees_gref/ -| /3 width=5 by frees_bind/ -| /3 width=5 by frees_flat/ -] -qed. - -(* Inversion lemmas with append for local environments **********************) - -fact frees_inv_append_void_aux: âf,L,T. L â¢ ð*â¦Tâ¦ â f â - âK. L = â§.K â K â¢ ð*â¦Tâ¦ â f. -#f #L #T #H elim H -f -L -T -[ /2 width=1 by frees_sort/ -| #f #i #_ #K #H - elim (append_inv_atom3_sn â¦ H) -H #H1 #H2 destruct -| #f #I #L #V #_ #IH #K #H - elim (append_inv_bind3_sn â¦ H) -H * [ | #Y ] #H1 #H2 destruct - /3 width=1 by frees_pair/ -| #f #I #L #Hf #K #H - elim (append_inv_bind3_sn â¦ H) -H * [ | #Y ] #H1 #H2 destruct - /2 width=1 by frees_atom, frees_unit/ -| #f #I #L #i #Hf #IH #K #H - elim (append_inv_bind3_sn â¦ H) -H * [ | #Y ] #H1 #H2 destruct - /3 width=1 by frees_lref, frees_lref_push/ -| /2 width=1 by frees_gref/ -| /3 width=5 by frees_bind/ -| /3 width=5 by frees_flat/ -] -qed-. - -lemma frees_inv_append_void: âf,K,T. â§.K â¢ ð*â¦Tâ¦ â f â K â¢ ð*â¦Tâ¦ â f. -/2 width=3 by frees_inv_append_void_aux/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/frees_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/static/frees_drops.ma deleted file mode 100644 index fe24eadf5..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/frees_drops.ma +++ /dev/null @@ -1,245 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||M|| *) -(* ||A|| A project by Andrea Asperti *) -(* ||T|| *) -(* ||I|| Developers: *) -(* ||T|| The HELM team. *) -(* ||A|| http://helm.cs.unibo.it *) -(* \ / *) -(* \ / This file is distributed under the terms of the *) -(* v GNU General Public License Version 2 *) -(* *) -(**************************************************************************) - -include "ground_2/relocation/nstream_coafter.ma". -include "basic_2/relocation/drops_drops.ma". -include "basic_2/static/frees_fqup.ma". - -(* CONTEXT-SENSITIVE FREE VARIABLES *****************************************) - -(* Advanced properties ******************************************************) - -lemma frees_atom_drops: âb,L,i. â¬*[b, ðâ´iâµ] L â â â - âf. ðâ¦fâ¦ â L â¢ ð*â¦#iâ¦ â â«¯*[i]âf. -#b #L elim L -L /2 width=1 by frees_atom/ -#L #I #IH * -[ #H lapply (drops_fwd_isid â¦ H ?) -H // #H destruct -| /4 width=3 by frees_lref, drops_inv_drop1/ -] -qed. - -lemma frees_pair_drops: âf,K,V. K â¢ ð*â¦Vâ¦ â f â - âi,I,L. â¬*[i] L â K.â{I}V â L â¢ ð*â¦#iâ¦ â â«¯*[i] âf. -#f #K #V #Hf #i elim i -i -[ #I #L #H lapply (drops_fwd_isid â¦ H ?) -H /2 width=1 by frees_pair/ -| #i #IH #I #L #H elim (drops_inv_succ â¦ H) -H /3 width=2 by frees_lref/ -] -qed. - -lemma frees_unit_drops: âf. ðâ¦fâ¦ â âI,K,i,L. â¬*[i] L â K.â¤{I} â - L â¢ ð*â¦#iâ¦ â â«¯*[i] âf. -#f #Hf #I #K #i elim i -i -[ #L #H lapply (drops_fwd_isid â¦ H ?) -H /2 width=1 by frees_unit/ -| #i #IH #Y #H elim (drops_inv_succ â¦ H) -H - #J #L #HLK #H destruct /3 width=1 by frees_lref/ -] -qed. -(* -lemma frees_sort_pushs: âf,K,s. K â¢ ð*â¦âsâ¦ â f â - âi,L. â¬*[i] L â K â L â¢ ð*â¦âsâ¦ â â«¯*[i] f. -#f #K #s #Hf #i elim i -i -[ #L #H lapply (drops_fwd_isid â¦ H ?) -H // -| #i #IH #L #H elim (drops_inv_succ â¦ H) -H /3 width=1 by frees_sort/ -] -qed. -*) -lemma frees_lref_pushs: âf,K,j. K â¢ ð*â¦#jâ¦ â f â - âi,L. â¬*[i] L â K â L â¢ ð*â¦#(i+j)â¦ â â«¯*[i] f. -#f #K #j #Hf #i elim i -i -[ #L #H lapply (drops_fwd_isid â¦ H ?) -H // -| #i #IH #L #H elim (drops_inv_succ â¦ H) -H - #I #Y #HYK #H destruct /3 width=1 by frees_lref/ -] -qed. -(* -lemma frees_gref_pushs: âf,K,l. K â¢ ð*â¦Â§lâ¦ â f â - âi,L. â¬*[i] L â K â L â¢ ð*â¦Â§lâ¦ â â«¯*[i] f. -#f #K #l #Hf #i elim i -i -[ #L #H lapply (drops_fwd_isid â¦ H ?) -H // -| #i #IH #L #H elim (drops_inv_succ â¦ H) -H /3 width=1 by frees_gref/ -] -qed. -*) -(* Advanced inversion lemmas ************************************************) - -lemma frees_inv_lref_drops: âL,i,f. L â¢ ð*â¦#iâ¦ â f â - â¨â¨ ââg. â¬*[â», ðâ´iâµ] L â â & ðâ¦gâ¦ & f = â«¯*[i] âg - | ââg,I,K,V. K â¢ ð*â¦Vâ¦ â g & - â¬*[i] L â K.â{I}V & f = â«¯*[i] âg - | ââg,I,K. â¬*[i] L â K.â¤{I} & ðâ¦gâ¦ & f = â«¯*[i] âg. -#L elim L -L -[ #i #g | #L #I #IH * [ #g cases I -I [ #I | #I #V ] -IH | #i #g ] ] #H -[ elim (frees_inv_atom â¦ H) -H #f #Hf #H destruct - /3 width=3 by or3_intro0, ex3_intro/ -| elim (frees_inv_unit â¦ H) -H #f #Hf #H destruct - /4 width=3 by drops_refl, or3_intro2, ex3_3_intro/ -| elim (frees_inv_pair â¦ H) -H #f #Hf #H destruct - /4 width=7 by drops_refl, or3_intro1, ex3_4_intro/ -| elim (frees_inv_lref â¦ H) -H #f #Hf #H destruct - elim (IH â¦ Hf) -IH -Hf * - [ /4 width=3 by drops_drop, or3_intro0, ex3_intro/ - | /4 width=7 by drops_drop, or3_intro1, ex3_4_intro/ - | /4 width=3 by drops_drop, or3_intro2, ex3_3_intro/ - ] -] -qed-. - -(* Properties with generic slicing for local environments *******************) - -lemma frees_lifts: âb,f1,K,T. K â¢ ð*â¦Tâ¦ â f1 â - âf,L. â¬*[b, f] L â K â âU. â¬*[f] T â U â - âf2. f ~â f1 â f2 â L â¢ ð*â¦Uâ¦ â f2. -#b #f1 #K #T #H lapply (frees_fwd_isfin â¦ H) elim H -f1 -K -T -[ #f1 #K #s #Hf1 #_ #f #L #HLK #U #H2 #f2 #H3 - lapply (coafter_isid_inv_dx â¦ H3 â¦ Hf1) -f1 #Hf2 - >(lifts_inv_sort1 â¦ H2) -U /2 width=1 by frees_sort/ -| #f1 #i #Hf1 #_ #f #L #H1 #U #H2 #f2 #H3 - elim (lifts_inv_lref1 â¦ H2) -H2 #j #Hij #H destruct - elim (coafter_fwd_xnx_pushs â¦ Hij H3) -H3 #g2 #Hg2 #H2 destruct - lapply (coafter_isid_inv_dx â¦ Hg2 â¦ Hf1) -f1 #Hf2 - elim (drops_inv_atom2 â¦ H1) -H1 #n #g #H1 #Hf - elim (after_at_fwd â¦ Hij â¦ Hf) -f #x #_ #Hj -g -i - lapply (at_inv_uni â¦ Hj) -Hj #H destruct - /3 width=8 by frees_atom_drops, drops_trans/ -| #f1 #I #K #V #_ #IH #Hf1 #f #L #H1 #U #H2 #f2 #H3 - lapply (isfin_inv_next â¦ Hf1 ??) -Hf1 [3: |*: // ] #Hf1 - lapply (lifts_inv_lref1 â¦ H2) -H2 * #j #Hf #H destruct - elim (drops_split_trans_bind2 â¦ H1) -H1 [ |*: // ] #Z #Y #HLY #HYK #H - elim (liftsb_inv_pair_sn â¦ H) -H #W #HVW #H destruct - elim (coafter_fwd_xnx_pushs â¦ Hf H3) -H3 #g2 #H3 #H2 destruct - lapply (IH â¦ HYK â¦ HVW â¦ H3) -IH -H3 -HYK -HVW // - /2 width=5 by frees_pair_drops/ -| #f1 #I #K #Hf1 #_ #f #L #H1 #U #H2 #f2 #H3 - lapply (lifts_inv_lref1 â¦ H2) -H2 * #j #Hf #H destruct - elim (coafter_fwd_xnx_pushs â¦ Hf H3) -H3 #g2 #H3 #H2 destruct - lapply (coafter_isid_inv_dx â¦ H3 â¦ Hf1) -f1 #Hg2 - elim (drops_split_trans_bind2 â¦ H1 â¦ Hf) -H1 -Hf #Z #Y #HLY #_ #H - lapply (liftsb_inv_unit_sn â¦ H) -H #H destruct - /2 width=3 by frees_unit_drops/ -| #f1 #I #K #i #_ #IH #Hf1 #f #L #H1 #U #H2 #f2 #H3 - lapply (isfin_inv_push â¦ Hf1 ??) -Hf1 [3: |*: // ] #Hf1 - lapply (lifts_inv_lref1 â¦ H2) -H2 * #x #Hf #H destruct - elim (at_inv_nxx â¦ Hf) -Hf [ |*: // ] #j #Hf #H destruct - elim (drops_split_trans_bind2 â¦ H1) -H1 [ |*: // ] #Z #Y #HLY #HYK #_ - elim (coafter_fwd_xpx_pushs â¦ 0 â¦ H3) [ |*: // ] #g2 #H3 #H2 destruct - lapply (drops_isuni_fwd_drop2 â¦ HLY) -HLY // #HLY - lapply (IH â¦ HYK â¦ H3) -IH -H3 -HYK [4: |*: /2 width=2 by lifts_lref/ ] - >plus_S1 /2 width=3 by frees_lref_pushs/ (**) (* full auto fails *) -| #f1 #K #l #Hf1 #_ #f #L #HLK #U #H2 #f2 #H3 - lapply (coafter_isid_inv_dx â¦ H3 â¦ Hf1) -f1 #Hf2 - >(lifts_inv_gref1 â¦ H2) -U /2 width=1 by frees_gref/ -| #f1V #f1T #f1 #p #I #K #V #T #_ #_ #H1f1 #IHV #IHT #H2f1 #f #L #H1 #Y #H2 #f2 #H3 - elim (sor_inv_isfin3 â¦ H1f1) // #Hf1V #H - lapply (isfin_inv_tl â¦ H) -H - elim (lifts_inv_bind1 â¦ H2) -H2 #W #U #HVW #HTU #H destruct - elim (coafter_sor â¦ H3 â¦ H1f1) /2 width=5 by coafter_isfin2_fwd/ -H3 -H1f1 #f2V #f2T #Hf2V #H - elim (coafter_inv_tl1 â¦ H) -H - /5 width=5 by frees_bind, drops_skip, ext2_pair/ -| #f1V #f1T #f1 #I #K #V #T #_ #_ #H1f1 #IHV #IHT #H2f1 #f #L #H1 #Y #H2 #f2 #H3 - elim (sor_inv_isfin3 â¦ H1f1) // - elim (lifts_inv_flat1 â¦ H2) -H2 #W #U #HVW #HTU #H destruct - elim (coafter_sor â¦ H3 â¦ H1f1) - /3 width=5 by coafter_isfin2_fwd, frees_flat/ -] -qed-. - -lemma frees_lifts_SO: âb,L,K. â¬*[b, ðâ´1âµ] L â K â âT,U. â¬*[1] T â U â - âf. K â¢ ð*â¦Tâ¦ â f â L â¢ ð*â¦Uâ¦ â â«¯f. -#b #L #K #HLK #T #U #HTU #f #Hf -@(frees_lifts b â¦ Hf â¦ HTU) // (**) (* auto fails *) -qed. - -(* Forward lemmas with generic slicing for local environments ***************) - -lemma frees_fwd_coafter: âb,f2,L,U. L â¢ ð*â¦Uâ¦ â f2 â - âf,K. â¬*[b, f] L â K â âT. â¬*[f] T â U â - âf1. K â¢ ð*â¦Tâ¦ â f1 â f ~â f1 â f2. -/4 width=11 by frees_lifts, frees_mono, coafter_eq_repl_back0/ qed-. - -(* Inversion lemmas with generic slicing for local environments *************) - -lemma frees_inv_lifts_ex: âb,f2,L,U. L â¢ ð*â¦Uâ¦ â f2 â - âf,K. â¬*[b, f] L â K â âT. â¬*[f] T â U â - ââf1. f ~â f1 â f2 & K â¢ ð*â¦Tâ¦ â f1. -#b #f2 #L #U #Hf2 #f #K #HLK #T elim (frees_total K T) -/3 width=9 by frees_fwd_coafter, ex2_intro/ -qed-. - -lemma frees_inv_lifts_SO: âb,f,L,U. L â¢ ð*â¦Uâ¦ â f â - âK. â¬*[b, ðâ´1âµ] L â K â âT. â¬*[1] T â U â - K â¢ ð*â¦Tâ¦ â â«±f. -#b #f #L #U #H #K #HLK #T #HTU elim(frees_inv_lifts_ex â¦ H â¦ HLK â¦ HTU) -b -L -U -#f1 #Hf #Hf1 elim (coafter_inv_nxx â¦ Hf) -Hf -/3 width=5 by frees_eq_repl_back, coafter_isid_inv_sn/ -qed-. - -lemma frees_inv_lifts: âb,f2,L,U. L â¢ ð*â¦Uâ¦ â f2 â - âf,K. â¬*[b, f] L â K â âT. â¬*[f] T â U â - âf1. f ~â f1 â f2 â K â¢ ð*â¦Tâ¦ â f1. -#b #f2 #L #U #H #f #K #HLK #T #HTU #f1 #Hf2 elim (frees_inv_lifts_ex â¦ H â¦ HLK â¦ HTU) -b -L -U -/3 width=7 by frees_eq_repl_back, coafter_inj/ -qed-. - -(* Note: this is used by rex_conf and might be modified *) -lemma frees_inv_drops_next: âf1,L1,T1. L1 â¢ ð*â¦T1â¦ â f1 â - âI2,L2,V2,n. â¬*[n] L1 â L2.â{I2}V2 â - âg1. âg1 = â«±*[n] f1 â - ââg2. L2 â¢ ð*â¦V2â¦ â g2 & g2 â g1. -#f1 #L1 #T1 #H elim H -f1 -L1 -T1 -[ #f1 #L1 #s #Hf1 #I2 #L2 #V2 #n #_ #g1 #H1 -I2 -L1 -s - lapply (isid_tls n â¦ Hf1) -Hf1

(injective_next â¦ Hgf1) -g1 - /2 width=3 by ex2_intro/ - | -Hf1 #n #HL12 lapply (drops_inv_drop1 â¦ HL12) -HL12 - #HL12 #g1 tls_xn #H2 elim (IHT1 â¦ H2) -IHT1 -H2 - /3 width=6 by drops_drop, sor_inv_sle_dx_trans, ex2_intro/ - ] -| #fV1 #fT1 #f1 #I1 #L1 #V1 #T1 #_ #_ #Hf1 #IHV1 #IHT1 #I2 #L2 #V2 #n #HL12 #g1 #Hgf1 - lapply (sor_tls â¦ Hf1 n) -Hf1 (lifts_inv_sort1 â¦ H0) -H0 - lapply (acr_gcr â¦ H1RP H2RP (âª)) #HAtom - lapply (s4 â¦ HAtom G L2 (âº)) /2 width=1 by/ -| #i #HG #HL #HT #A #HA #b #f #L0 #HL01 #X0 #H0 #L2 #HL20 destruct - elim (aaa_inv_lref_drops â¦ HA) -HA #I #K1 #V1 #HLK1 #HKV1 - elim (lifts_inv_lref1 â¦ H0) -H0 #j #Hf #H destruct - lapply (acr_gcr â¦ H1RP H2RP A) #HA - lapply (drops_trans â¦ HL01 â¦ HLK1 ??) -HL01 [3: |: // ] #H - elim (drops_split_trans â¦ H) -H [ |: /2 width=6 by after_uni_dx/ ] #Y #HLK0 #HY - lapply (drops_tls_at â¦ Hf â¦ HY) -Hf -HY #HY - elim (drops_inv_skip2 â¦ HY) -HY #Z #K0 #HK01 #HZ #H destruct - elim (liftsb_inv_pair_sn â¦ HZ) -HZ #V0 #HV10 #H destruct - elim (lifts_total V0 (ðâ´âjâµ)) #V #HV0 - elim (lsubc_drops_trans_isuni â¦ HL20 â¦ HLK0) -HL20 -HLK0 // #Y #HLK2 #H - elim (lsubc_inv_bind2 â¦ H) -H * - [ #K2 #HK20 #H destruct - lapply (drops_isuni_fwd_drop2 â¦ HLK2) // #HLK2b - lapply (s5 â¦ HA ? G ? ? (âº) â¦ HV0 ?) -HA - /4 width=11 by acr_lifts, fqup_lref, drops_inv_gen/ - | #K2 #V2 #W2 #B #HKV2 #HK2V0 #HKV0B #_ #H1 #H2 destruct -IH -HLK1 - lapply (drops_isuni_fwd_drop2 â¦ HLK2) // #HLK2b - lapply (aaa_lifts â¦ HKV1 â¦ HK01 â¦ HV10) -HKV1 -HK01 -HV10 #HKV0A - lapply (aaa_mono â¦ HKV0B â¦ HKV0A) #H destruct -HKV0B -HKV0A - elim (lifts_total V2 (ðâ´âjâµ)) #V3 #HV23 - lapply (s5 â¦ HA â¦ G â¦ (âº) â¦ (âW2.V2) (âV.V3) ????) - [3: |: /2 width=9 by drops_inv_gen, lifts_flat/ ] -HLK2 - lapply (s7 â¦ HA G L2 (âº)) -HA /3 width=7 by acr_lifts/ - ] -| #l #HG #HL #HT #A #HA #b #f #L0 #HL01 #X0 #H0 #L2 #HL20 destruct -IH - elim (aaa_inv_gref â¦ HA) -| #V #T #HG #HL #HT #A #HA #b #f #L0 #HL01 #X0 #H0 #L2 #HL20 destruct - elim (aaa_inv_abbr â¦ HA) -HA #B #HV #HT - elim (lifts_inv_bind1 â¦ H0) -H0 #V0 #T0 #HV0 #HT0 #H destruct - lapply (acr_gcr â¦ H1RP H2RP A) #HA - lapply (acr_gcr â¦ H1RP H2RP B) #HB - lapply (s1 â¦ HB) -HB #HB - lapply (s6 â¦ HA G L2 (âº) (âº)) /5 width=10 by lsubc_bind, liftsv_nil, drops_skip, ext2_pair/ -| #W #T #HG #HL #HT #Z0 #HA #b #f #L0 #HL01 #X0 #H0 #L2 #HL20 destruct - elim (aaa_inv_abst â¦ HA) -HA #B #A #HW #HT #H destruct - elim (lifts_inv_bind1 â¦ H0) -H0 #W0 #T0 #HW0 #HT0 #H destruct - @(acr_abst â¦ H1RP H2RP) /2 width=10 by/ - #b3 #f3 #L3 #V3 #W3 #T3 #HL32 #HW03 #HT03 #H1B #H2B - elim (drops_lsubc_trans â¦ H1RP â¦ HL32 â¦ HL20) -L2 #L2 #HL32 #HL20 - lapply (aaa_lifts â¦ HW â¦ (f3âf) L2 â¦ W3 ?) -HW - [4: |: /2 width=8 by drops_trans, lifts_trans/ ] #HW3 - @(IH â¦ ((â«¯f3)ââ«¯f) â¦ (L2. âW3)) -IH - /4 width=12 by lsubc_beta, drops_trans, drops_skip, lifts_trans, ext2_pair/ -| #V #T #HG #HL #HT #A #HA #b #f #L0 #HL01 #X0 #H0 #L2 #HL20 destruct - elim (aaa_inv_appl â¦ HA) -HA #B #HV #HT - elim (lifts_inv_flat1 â¦ H0) -H0 #V0 #T0 #HV0 #HT0 #H destruct - lapply (IH â¦ HT â¦ HL01 â¦ HT0 â¦ HL20) -HT -HT0 - /3 width=10 by drops_refl, lifts_refl/ -| #W #T #HG #HL #HT #A #HA #b #f #L0 #HL01 #X0 #H0 #L2 #HL20 destruct - elim (aaa_inv_cast â¦ HA) -HA #HW #HT - elim (lifts_inv_flat1 â¦ H0) -H0 #W0 #T0 #HW0 #HT0 #H destruct - lapply (acr_gcr â¦ H1RP H2RP A) #HA - lapply (s7 â¦ HA G L2 (âº)) /3 width=10 by/ -] -qed. - -(* Basic_1: was: sc3_arity *) -lemma acr_aaa: âRR,RS,RP. gcp RR RS RP â gcr RR RS RP RP â - âG,L,T,A. â¦G, Lâ¦ â¢ T â A â â¦G, L, Tâ¦ Ïµ[RP] ãAã. -/3 width=9 by drops_refl, lifts_refl, acr_aaa_csubc_lifts/ qed. - -lemma gcr_aaa: âRR,RS,RP. gcp RR RS RP â gcr RR RS RP RP â - âG,L,T,A. â¦G, Lâ¦ â¢ T â A â RP G L T. -#RR #RS #RP #H1RP #H2RP #G #L #T #A #HT -lapply (acr_gcr â¦ H1RP H2RP A) #HA -@(s1 â¦ HA) /2 width=4 by acr_aaa/ -qed. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/gcp_cr.ma b/matita/matita/contribs/lambdadelta/basic_2/static/gcp_cr.ma deleted file mode 100644 index f9b13438a..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/gcp_cr.ma +++ /dev/null @@ -1,177 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/relations/ineint_5.ma". -include "basic_2/syntax/aarity.ma". -include "basic_2/relocation/lifts_simple.ma". -include "basic_2/relocation/lifts_lifts_vector.ma". -include "basic_2/relocation/drops_drops.ma". -include "basic_2/static/gcp.ma". - -(* GENERIC COMPUTATION PROPERTIES *******************************************) - -(* Note: this is Girard's CR1 ) -definition S1 â Î»RP,C:candidate. - âG,L,T. C G L T â RP G L T. - -( Note: this is Tait's iii, or Girard's CR4 ) -definition S2 â Î»RR:relation4 genv lenv term term. Î»RS:relation term. Î»RP,C:candidate. - âG,L,Vs. all â¦ (RP G L) Vs â - âT. ðâ¦Tâ¦ â NF â¦ (RR G L) RS T â C G L (â¶Vs.T). - -( Note: this generalizes Tait's ii ) -definition S3 â Î»C:candidate. - âa,G,L,Vs,V,T,W. - C G L (â¶Vs.â{a}âW.V.T) â C G L (â¶Vs.âV.â{a}W.T). - -definition S4 â Î»RP,C:candidate. - âG,L,Vs. all â¦ (RP G L) Vs â âs. C G L (â¶Vs.âs). - -definition S5 â Î»C:candidate. âI,G,L,K,Vs,V1,V2,i. - C G L (â¶Vs.V2) â â¬[âi] V1 â V2 â - â¬[i] L â K.â{I}V1 â C G L (â¶Vs.#i). - -definition S6 â Î»RP,C:candidate. - âG,L,V1b,V2b. â¬[1] V1b â V2b â - âa,V,T. C G (L.âV) (â¶V2b.T) â RP G L V â C G L (â¶V1b.â{a}V.T). - -definition S7 â Î»C:candidate. - âG,L,Vs,T,W. C G L (â¶Vs.T) â C G L (â¶Vs.W) â C G L (â¶Vs.âW.T). - -(* requirements for the generic reducibility candidate ) -record gcr (RR:relation4 genv lenv term term) (RS:relation term) (RP,C:candidate) : Prop â -{ s1: S1 RP C; - s2: S2 RR RS RP C; - s3: S3 C; - s4: S4 RP C; - s5: S5 C; - s6: S6 RP C; - s7: S7 C -}. - -( the functional construction for candidates ) -definition cfun: candidate â candidate â candidate â - Î»C1,C2,G,K,T. âf,L,W,U. - â¬[â», f] L â K â â¬[f] T â U â C1 G L W â C2 G L (âW.U). - -( the reducibility candidate associated to an atomic arity ) -rec definition acr (RP:candidate) (A:aarity) on A: candidate â -match A with -[ AAtom â RP -| APair B A â cfun (acr RP B) (acr RP A) -]. - -interpretation - "reducibility candidate of an atomic arity (abstract)" - 'InEInt RP G L T A = (acr RP A G L T). - -( Basic properties *********************************************************) - -(* Note: this requires â»-slicing in cfun since b is unknown in d_liftable_1 ) -( Note: this requires multiple relocation ) -( Basic 1: includes: sc3_lift ) -( Basic 2A1: includes: gcr_lift ) -( Basic 2A1: note: gcr_lift should be acr_lift ) -( Basic_1: was: sc3_lift1 ) -( Basic 2A1: was: gcr_lifts ) -( Basic 2A1: note: gcr_lifts should be acr_lifts ) -lemma acr_lifts: âRR,RS,RP. gcp RR RS RP â âA,G. d_liftable1 (acr RP A G). -#RR #RS #RP #H #A #G elim A -A -[ /2 width=7 by cp2/ -| #B #A #HB #HA #K #T #HKT #b #f #L #HLK #U #HTU #f0 #L0 #W #U0 #HL0 #HU0 #HW - lapply (drops_trans â¦ HL0 â¦ HLK ??) [3:|: // ] -L #HL0K - lapply (lifts_trans â¦ HTU â¦ HU0 ??) [3:|*: // ] -U #HTU0 - /2 width=3 by/ (**) (* full auto fails ) -] -qed-. - -( Basic_1: was: - sc3_sn3 sc3_abst sc3_appl sc3_abbr sc3_bind sc3_cast -) -lemma acr_gcr: âRR,RS,RP. gcp RR RS RP â gcr RR RS RP RP â - âA. gcr RR RS RP (acr RP A). -#RR #RS #RP #H1RP #H2RP #A elim A -A // -#B #A #IHB #IHA @mk_gcr -[ #G #L #T #H - elim (cp1 â¦ H1RP G L) #s #HK - lapply (s2 â¦ IHB G L (âº) â¦ HK) // #HB - lapply (H (ðð) L (âs) T ? ? ?) -H - /3 width=6 by s1, cp3, drops_refl, lifts_refl/ -| #G #L #Vs #HVs #T #H1T #H2T #f #L0 #V0 #X #HL0 #H #HB - elim (lifts_inv_applv1 â¦ H) -H #V0s #T0 #HV0s #HT0 #H destruct - lapply (s1 â¦ IHB â¦ HB) #HV0 - @(s2 â¦ IHA â¦ (V0â¨®V0s)) /3 width=13 by cp0, gcp2_all, lifts_simple_dx, conj/ -| #p #G #L #Vs #U #T #W #HA #f #L0 #V0 #X #HL0 #H #HB - elim (lifts_inv_applv1 â¦ H) -H #V0s #X0 #HV0s #H0 #H destruct - elim (lifts_inv_flat1 â¦ H0) -H0 #U0 #X #HU0 #HX #H destruct - elim (lifts_inv_bind1 â¦ HX) -HX #W0 #T0 #HW0 #HT0 #H destruct - @(s3 â¦ IHA â¦ (V0â¨®V0s)) /5 width=6 by lifts_applv, lifts_flat, lifts_bind/ -| #G #L #Vs #HVs #s #f #L0 #V0 #X #HL0 #H #HB - elim (lifts_inv_applv1 â¦ H) -H #V0s #X0 #HV0s #H0 #H destruct - >(lifts_inv_sort1 â¦ H0) -X0 - lapply (s1 â¦ IHB â¦ HB) #HV0 - @(s4 â¦ IHA â¦ (V0â¨®V0s)) /3 width=7 by gcp2_all, conj/ -| #I #G #L #K #Vs #V1 #V2 #i #HA #HV12 #HLK #f #L0 #V0 #X #HL0 #H #HB - elim (lifts_inv_applv1 â¦ H) -H #V0s #X0 #HV0s #H0 #H destruct - elim (lifts_inv_lref1 â¦ H0) -H0 #j #Hf #H destruct - lapply (drops_trans â¦ HL0 â¦ HLK ??) [3: |: // ] -HLK #H - elim (drops_split_trans â¦ H) -H [ |: /2 width=6 by after_uni_dx/ ] #Y #HLK0 #HY - lapply (drops_tls_at â¦ Hf â¦ HY) -HY #HY - elim (drops_inv_skip2 â¦ HY) -HY #Z #K0 #HK0 #HZ #H destruct - elim (liftsb_inv_pair_sn â¦ HZ) -HZ #W1 #HVW1 #H destruct - elim (lifts_total W1 (ðâ´âjâµ)) #W2 #HW12 - lapply (lifts_trans â¦ HVW1 â¦ HW12 ??) -HVW1 [3: |: // ] #H - lapply (lifts_conf â¦ HV12 â¦ H f ?) -V1 [ /2 width=3 by after_uni_succ_sn/ ] #HVW2 - @(s5 â¦ IHA â¦ (V0â¨®V0s) â¦ HW12) /3 width=4 by drops_inv_gen, lifts_applv/ -| #G #L #V1s #V2s #HV12s #p #V #T #HA #HV #f #L0 #V10 #X #HL0 #H #HB - elim (lifts_inv_applv1 â¦ H) -H #V10s #X0 #HV10s #H0 #H destruct - elim (lifts_inv_bind1 â¦ H0) -H0 #V0 #T0 #HV0 #HT0 #H destruct - elim (lifts_total V10 (ðâ´1âµ)) #V20 #HV120 - elim (liftsv_total (ðâ´1âµ) V10s) #V20s #HV120s - @(s6 â¦ IHA â¦ (V10â¨®V10s) (V20â¨®V20s)) /3 width=7 by cp2, liftsv_cons/ - @(HA â¦ (â«¯f)) /3 width=2 by drops_skip, ext2_pair/ - [ @lifts_applv // - lapply (liftsv_trans â¦ HV10s â¦ HV120s ??) -V10s [3: |: // ] #H - elim (liftsv_split_trans â¦ H (ðâ´1âµ) (â«¯f)) /2 width=1 by after_uni_one_sn/ #V10s #HV10s #HV120s - >(liftsv_mono â¦ HV12s â¦ HV10s) -V1s // - | @(acr_lifts â¦ H1RP â¦ HB â¦ HV120) /3 width=2 by drops_refl, drops_drop/ - ] -| #G #L #Vs #T #W #HA #HW #f #L0 #V0 #X #HL0 #H #HB - elim (lifts_inv_applv1 â¦ H) -H #V0s #X0 #HV0s #H0 #H destruct - elim (lifts_inv_flat1 â¦ H0) -H0 #W0 #T0 #HW0 #HT0 #H destruct - @(s7 â¦ IHA â¦ (V0â¨®V0s)) /3 width=5 by lifts_applv/ -] -qed. - -lemma acr_abst: âRR,RS,RP. gcp RR RS RP â gcr RR RS RP RP â - âp,G,L,W,T,A,B. â¦G, L, Wâ¦ Ïµ[RP] ãBã â ( - âb,f,L0,V0,W0,T0. â¬[b, f] L0 â L â â¬[f] W â W0 â â¬[â«¯f] T â T0 â - â¦G, L0, V0â¦ Ïµ[RP] ãBã â â¦G, L0, W0â¦ Ïµ[RP] ãBã â â¦G, L0.ââW0.V0, T0â¦ Ïµ[RP] ãAã - ) â - â¦G, L, â{p}W.Tâ¦ Ïµ[RP] ãâ¡B.Aã. -#RR #RS #RP #H1RP #H2RP #p #G #L #W #T #A #B #HW #HA #f #L0 #V0 #X #HL0 #H #HB -lapply (acr_gcr â¦ H1RP H2RP A) #HCA -lapply (acr_gcr â¦ H1RP H2RP B) #HCB -elim (lifts_inv_bind1 â¦ H) -H #W0 #T0 #HW0 #HT0 #H destruct -lapply (acr_lifts â¦ H1RP â¦ HW â¦ HL0 â¦ HW0) -HW #HW0 -lapply (s3 â¦ HCA â¦ p G L0 (âº)) #H @H -H -lapply (s6 â¦ HCA G L0 (âº) (âº) ?) // #H @H -H -[ @(HA â¦ HL0) // -| lapply (s1 â¦ HCB) -HCB #HCB - lapply (s7 â¦ H2RP G L0 (âº)) /3 width=1 by/ -] -qed. - -(* Basic_1: removed theorems 2: sc3_arity_gen sc3_repl ) -( Basic_1: removed local theorems 1: sc3_sn3_abst *) diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsuba.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsuba.ma deleted file mode 100644 index e16decefa..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsuba.ma +++ /dev/null @@ -1,93 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/relations/lrsubeqa_3.ma". -include "basic_2/static/aaa.ma". - -(* RESTRICTED REFINEMENT FOR ATOMIC ARITY ASSIGNMENT ************************) - -inductive lsuba (G:genv): relation lenv â -| lsuba_atom: lsuba G (â) (â) -| lsuba_bind: âI,L1,L2. lsuba G L1 L2 â lsuba G (L1.â{I}) (L2.â{I}) -| lsuba_beta: âL1,L2,W,V,A. â¦G, L1â¦ â¢ âW.V â A â â¦G, L2â¦ â¢ W â A â - lsuba G L1 L2 â lsuba G (L1.ââW.V) (L2.âW) -. - -interpretation - "local environment refinement (atomic arity assignment)" - 'LRSubEqA G L1 L2 = (lsuba G L1 L2). - -(* Basic inversion lemmas ***************************************************) - -fact lsuba_inv_atom1_aux: âG,L1,L2. G â¢ L1 â«â L2 â L1 = â â L2 = â. -#G #L1 #L2 * -L1 -L2 -[ // -| #I #L1 #L2 #_ #H destruct -| #L1 #L2 #W #V #A #_ #_ #_ #H destruct -] -qed-. - -lemma lsuba_inv_atom1: âG,L2. G â¢ â â«â L2 â L2 = â. -/2 width=4 by lsuba_inv_atom1_aux/ qed-. - -fact lsuba_inv_bind1_aux: âG,L1,L2. G â¢ L1 â«â L2 â âI,K1. L1 = K1.â{I} â - (ââK2. G â¢ K1 â«â K2 & L2 = K2.â{I}) â¨ - ââK2,W,V,A. â¦G, K1â¦ â¢ âW.V â A & â¦G, K2â¦ â¢ W â A & - G â¢ K1 â«â K2 & I = BPair Abbr (âW.V) & L2 = K2.âW. -#G #L1 #L2 * -L1 -L2 -[ #J #K1 #H destruct -| #I #L1 #L2 #HL12 #J #K1 #H destruct /3 width=3 by ex2_intro, or_introl/ -| #L1 #L2 #W #V #A #HV #HW #HL12 #J #K1 #H destruct /3 width=9 by ex5_4_intro, or_intror/ -] -qed-. - -lemma lsuba_inv_bind1: âI,G,K1,L2. G â¢ K1.â{I} â«â L2 â - (ââK2. G â¢ K1 â«â K2 & L2 = K2.â{I}) â¨ - ââK2,W,V,A. â¦G, K1â¦ â¢ âW.V â A & â¦G, K2â¦ â¢ W â A & G â¢ K1 â«â K2 & - I = BPair Abbr (âW.V) & L2 = K2.âW. -/2 width=3 by lsuba_inv_bind1_aux/ qed-. - -fact lsuba_inv_atom2_aux: âG,L1,L2. G â¢ L1 â«â L2 â L2 = â â L1 = â. -#G #L1 #L2 * -L1 -L2 -[ // -| #I #L1 #L2 #_ #H destruct -| #L1 #L2 #W #V #A #_ #_ #_ #H destruct -] -qed-. - -lemma lsubc_inv_atom2: âG,L1. G â¢ L1 â«â â â L1 = â. -/2 width=4 by lsuba_inv_atom2_aux/ qed-. - -fact lsuba_inv_bind2_aux: âG,L1,L2. G â¢ L1 â«â L2 â âI,K2. L2 = K2.â{I} â - (ââK1. G â¢ K1 â«â K2 & L1 = K1.â{I}) â¨ - ââK1,V,W, A. â¦G, K1â¦ â¢ âW.V â A & â¦G, K2â¦ â¢ W â A & - G â¢ K1 â«â K2 & I = BPair Abst W & L1 = K1.ââW.V. -#G #L1 #L2 * -L1 -L2 -[ #J #K2 #H destruct -| #I #L1 #L2 #HL12 #J #K2 #H destruct /3 width=3 by ex2_intro, or_introl/ -| #L1 #L2 #W #V #A #HV #HW #HL12 #J #K2 #H destruct /3 width=9 by ex5_4_intro, or_intror/ -] -qed-. - -lemma lsuba_inv_bind2: âI,G,L1,K2. G â¢ L1 â«â K2.â{I} â - (ââK1. G â¢ K1 â«â K2 & L1 = K1.â{I}) â¨ - ââK1,V,W,A. â¦G, K1â¦ â¢ âW.V â A & â¦G, K2â¦ â¢ W â A & G â¢ K1 â«â K2 & - I = BPair Abst W & L1 = K1.ââW.V. -/2 width=3 by lsuba_inv_bind2_aux/ qed-. - -(* Basic properties *) - -lemma lsuba_refl: âG,L. G â¢ L â«â L. -#G #L elim L -L /2 width=1 by lsuba_atom, lsuba_bind/ -qed. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_aaa.ma deleted file mode 100644 index 7bd8f30ed..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_aaa.ma +++ /dev/null @@ -1,54 +0,0 @@ -(******************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/static/aaa_aaa.ma". -include "basic_2/static/lsuba.ma". - -(* RESTRICTED REFINEMENT FOR ATOMIC ARITY ASSIGNMENT ************************) - -(* Properties with atomic arity assignment **********************************) - -lemma lsuba_aaa_conf: âG,L1,V,A. â¦G, L1â¦ â¢ V â A â - âL2. G â¢ L1 â«â L2 â â¦G, L2â¦ â¢ V â A. -#G #L1 #V #A #H elim H -G -L1 -V -A -[ // -| #I #G #L1 #V #A #HA #IH #L2 #H - elim (lsuba_inv_bind1 â¦ H) -H * /3 width=1 by aaa_zero/ - #L0 #W0 #V0 #A0 #HV0 #HW0 #HL10 #H1 #H2 destruct - lapply (aaa_mono â¦ HV0 â¦ HA) #H destruct -V0 -L1 /2 width=1 by aaa_zero/ -| #I #G #K1 #A #i #_ #IH #L2 #H - elim (lsuba_inv_bind1 â¦ H) -H * /3 width=1 by aaa_lref/ -| /4 width=2 by lsuba_bind, aaa_abbr/ -| /4 width=1 by lsuba_bind, aaa_abst/ -| /3 width=3 by aaa_appl/ -| /3 width=1 by aaa_cast/ -] -qed-. - -lemma lsuba_aaa_trans: âG,L2,V,A. â¦G, L2â¦ â¢ V â A â - âL1. G â¢ L1 â«â L2 â â¦G, L1â¦ â¢ V â A. -#G #L2 #V #A #H elim H -G -L2 -V -A -[ // -| #I #G #L2 #V #A #HA #IH #L1 #H - elim (lsuba_inv_bind2 â¦ H) -H * /3 width=1 by aaa_zero/ - #L0 #V0 #W0 #A0 #HV0 #HW0 #HL02 #H1 #H2 destruct - lapply (aaa_mono â¦ HW0 â¦ HA) #H destruct -L2 /2 width=1 by aaa_zero/ -| #I #G #K2 #A #i #_ #IH #L1 #H - elim (lsuba_inv_bind2 â¦ H) -H * /3 width=1 by aaa_lref/ -| /4 width=2 by lsuba_bind, aaa_abbr/ -| /4 width=1 by lsuba_bind, aaa_abst/ -| /3 width=3 by aaa_appl/ -| /3 width=1 by aaa_cast/ -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_drops.ma deleted file mode 100644 index e55602e4f..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_drops.ma +++ /dev/null @@ -1,68 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/relocation/drops.ma". -include "basic_2/static/lsuba.ma". - -(* RESTRICTED REFINEMENT FOR ATOMIC ARITY ASSIGNMENT ************************) - -(* Properties with generic slicing for local environments *******************) - -(* Note: the premise ðâ¦fâ¦ cannot be removed ) -( Basic_2A1: includes: lsuba_drop_O1_conf ) -lemma lsuba_drops_conf_isuni: âG,L1,L2. G â¢ L1 â«â L2 â - âb,f,K1. ðâ¦fâ¦ â â¬[b, f] L1 â K1 â - ââK2. G â¢ K1 â«â K2 & â¬[b, f] L2 â K2. -#G #L1 #L2 #H elim H -L1 -L2 -[ /2 width=3 by ex2_intro/ -| #I #L1 #L2 #HL12 #IH #b #f #K1 #Hf #H - elim (drops_inv_bind1_isuni â¦ Hf H) -Hf -H - [ #Hf #H destruct -IH - /3 width=3 by lsuba_bind, drops_refl, ex2_intro/ - | #g #Hg #HLK1 #H destruct -HL12 - elim (IH â¦ Hg HLK1) -L1 -Hg /3 width=3 by drops_drop, ex2_intro/ - ] -| #L1 #L2 #W #V #A #HV #HW #HL12 #IH #b #f #K1 #Hf #H - elim (drops_inv_bind1_isuni â¦ Hf H) -Hf -H * - [ #Hf #H destruct -IH - /3 width=3 by drops_refl, lsuba_beta, ex2_intro/ - | #g #Hg #HLK1 #H destruct -HL12 - elim (IH â¦ Hg HLK1) -L1 -Hg /3 width=3 by drops_drop, ex2_intro/ - ] -] -qed-. - -(* Note: the premise ðâ¦fâ¦ cannot be removed ) -( Basic_2A1: includes: lsuba_drop_O1_trans ) -lemma lsuba_drops_trans_isuni: âG,L1,L2. G â¢ L1 â«â L2 â - âb,f,K2. ðâ¦fâ¦ â â¬[b, f] L2 â K2 â - ââK1. G â¢ K1 â«â K2 & â¬[b, f] L1 â K1. -#G #L1 #L2 #H elim H -L1 -L2 -[ /2 width=3 by ex2_intro/ -| #I #L1 #L2 #HL12 #IH #b #f #K2 #Hf #H - elim (drops_inv_bind1_isuni â¦ Hf H) -Hf -H - [ #Hf #H destruct -IH - /3 width=3 by lsuba_bind, drops_refl, ex2_intro/ - | #g #Hg #HLK2 #H destruct -HL12 - elim (IH â¦ Hg HLK2) -L2 -Hg /3 width=3 by drops_drop, ex2_intro/ - ] -| #L1 #L2 #W #V #A #HV #HW #HL12 #IH #b #f #K2 #Hf #H - elim (drops_inv_bind1_isuni â¦ Hf H) -Hf -H * - [ #Hf #H destruct -IH - /3 width=3 by drops_refl, lsuba_beta, ex2_intro/ - | #g #Hg #HLK2 #H destruct -HL12 - elim (IH â¦ Hg HLK2) -L2 -Hg /3 width=3 by drops_drop, ex2_intro/ - ] -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_lsuba.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_lsuba.ma deleted file mode 100644 index 28dc2d8ee..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_lsuba.ma +++ /dev/null @@ -1,36 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/static/lsuba_aaa.ma". - -(* RESTRICTED REFINEMENT FOR ATOMIC ARITY ASSIGNMENT ************************) - -(* Main properties **********************************************************) - -theorem lsuba_trans: âG. Transitive â¦ (lsuba G). -#G #L1 #L #H elim H -L1 -L -[ #X #H >(lsuba_inv_atom1 â¦ H) -H // -| #I #L1 #L #HL1 #IHL1 #Y #H - elim (lsuba_inv_bind1 â¦ H) -H * #L2 - [ #HL2 #H destruct /3 width=1 by lsuba_bind/ - | #W #V #A #HV #HW #HL2 #H1 #H2 destruct - /3 width=3 by lsuba_beta, lsuba_aaa_trans/ - ] -| #L1 #L #W #V #A #HV #HW #HL1 #IHL1 #Y #H - elim (lsuba_inv_bind1 â¦ H) -H * #L2 - [ #HL2 #H destruct /3 width=5 by lsuba_beta, lsuba_aaa_conf/ - | #W0 #V0 #A0 #_ #_ #_ #H destruct - ] -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_lsubr.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_lsubr.ma deleted file mode 100644 index dc36ae778..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_lsubr.ma +++ /dev/null @@ -1,24 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/static/lsubr.ma". -include "basic_2/static/lsuba.ma". - -(* RESTRICTED REFINEMENT FOR ATOMIC ARITY ASSIGNMENT ************************) - -(* Forward lemmas with restricted refinement for local environments *) - -lemma lsuba_fwd_lsubr: âG,L1,L2. G â¢ L1 â«â L2 â L1 â« L2. -#G #L1 #L2 #H elim H -L1 -L2 /2 width=1 by lsubr_bind, lsubr_beta/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsubc.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsubc.ma deleted file mode 100644 index bb4b27fe3..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsubc.ma +++ /dev/null @@ -1,109 +0,0 @@ -(******************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/relations/lrsubeqc_4.ma". -include "basic_2/static/aaa.ma". -include "basic_2/static/gcp_cr.ma". - -(* LOCAL ENVIRONMENT REFINEMENT FOR GENERIC REDUCIBILITY ********************) - -inductive lsubc (RP) (G): relation lenv â -| lsubc_atom: lsubc RP G (â) (â) -| lsubc_bind: âI,L1,L2. lsubc RP G L1 L2 â lsubc RP G (L1.â{I}) (L2.â{I}) -| lsubc_beta: âL1,L2,V,W,A. â¦G, L1, Vâ¦ Ïµ[RP] ãAã â â¦G, L1, Wâ¦ Ïµ[RP] ãAã â â¦G, L2â¦ â¢ W â A â - lsubc RP G L1 L2 â lsubc RP G (L1. ââW.V) (L2.âW) -. - -interpretation - "local environment refinement (generic reducibility)" - 'LRSubEqC RP G L1 L2 = (lsubc RP G L1 L2). - -(* Basic inversion lemmas ***************************************************) - -fact lsubc_inv_atom1_aux: âRP,G,L1,L2. G â¢ L1 â«[RP] L2 â L1 = â â L2 = â. -#RP #G #L1 #L2 * -L1 -L2 -[ // -| #I #L1 #L2 #_ #H destruct -| #L1 #L2 #V #W #A #_ #_ #_ #_ #H destruct -] -qed-. - -(* Basic_1: was just: csubc_gen_sort_r ) -lemma lsubc_inv_atom1: âRP,G,L2. G â¢ â â«[RP] L2 â L2 = â. -/2 width=5 by lsubc_inv_atom1_aux/ qed-. - -fact lsubc_inv_bind1_aux: âRP,G,L1,L2. G â¢ L1 â«[RP] L2 â âI,K1. L1 = K1.â{I} â - (ââK2. G â¢ K1 â«[RP] K2 & L2 = K2.â{I}) â¨ - ââK2,V,W,A. â¦G, K1, Vâ¦ Ïµ[RP] ãAã & â¦G, K1, Wâ¦ Ïµ[RP] ãAã & â¦G, K2â¦ â¢ W â A & - G â¢ K1 â«[RP] K2 & - L2 = K2. âW & I = BPair Abbr (âW.V). -#RP #G #L1 #L2 -L1 -L2 -[ #I #K1 #H destruct -| #J #L1 #L2 #HL12 #I #K1 #H destruct /3 width=3 by ex2_intro, or_introl/ -| #L1 #L2 #V1 #W2 #A #HV1 #H1W2 #H2W2 #HL12 #I #K1 #H destruct - /3 width=10 by ex6_4_intro, or_intror/ -] -qed-. - -(* Basic_1: was: csubc_gen_head_r ) -lemma lsubc_inv_bind1: âRP,I,G,K1,L2. G â¢ K1.â{I} â«[RP] L2 â - (ââK2. G â¢ K1 â«[RP] K2 & L2 = K2.â{I}) â¨ - ââK2,V,W,A. â¦G, K1, Vâ¦ Ïµ[RP] ãAã & â¦G, K1, Wâ¦ Ïµ[RP] ãAã & â¦G, K2â¦ â¢ W â A & - G â¢ K1 â«[RP] K2 & - L2 = K2.âW & I = BPair Abbr (âW.V). -/2 width=3 by lsubc_inv_bind1_aux/ qed-. - -fact lsubc_inv_atom2_aux: âRP,G,L1,L2. G â¢ L1 â«[RP] L2 â L2 = â â L1 = â. -#RP #G #L1 #L2 -L1 -L2 -[ // -| #I #L1 #L2 #_ #H destruct -| #L1 #L2 #V #W #A #_ #_ #_ #_ #H destruct -] -qed-. - -(* Basic_1: was just: csubc_gen_sort_l ) -lemma lsubc_inv_atom2: âRP,G,L1. G â¢ L1 â«[RP] â â L1 = â. -/2 width=5 by lsubc_inv_atom2_aux/ qed-. - -fact lsubc_inv_bind2_aux: âRP,G,L1,L2. G â¢ L1 â«[RP] L2 â âI,K2. L2 = K2.â{I} â - (ââK1. G â¢ K1 â«[RP] K2 & L1 = K1. â{I}) â¨ - ââK1,V,W,A. â¦G, K1, Vâ¦ Ïµ[RP] ãAã & â¦G, K1, Wâ¦ Ïµ[RP] ãAã & â¦G, K2â¦ â¢ W â A & - G â¢ K1 â«[RP] K2 & - L1 = K1.ââW.V & I = BPair Abst W. -#RP #G #L1 #L2 -L1 -L2 -[ #I #K2 #H destruct -| #J #L1 #L2 #HL12 #I #K2 #H destruct /3 width=3 by ex2_intro, or_introl/ -| #L1 #L2 #V1 #W2 #A #HV1 #H1W2 #H2W2 #HL12 #I #K2 #H destruct - /3 width=10 by ex6_4_intro, or_intror/ -] -qed-. - -(* Basic_1: was just: csubc_gen_head_l ) -lemma lsubc_inv_bind2: âRP,I,G,L1,K2. G â¢ L1 â«[RP] K2.â{I} â - (ââK1. G â¢ K1 â«[RP] K2 & L1 = K1.â{I}) â¨ - ââK1,V,W,A. â¦G, K1, Vâ¦ Ïµ[RP] ãAã & â¦G, K1, Wâ¦ Ïµ[RP] ãAã & â¦G, K2â¦ â¢ W â A & - G â¢ K1 â«[RP] K2 & - L1 = K1.ââW.V & I = BPair Abst W. -/2 width=3 by lsubc_inv_bind2_aux/ qed-. - -( Basic properties *********************************************************) - -(* Basic_1: was just: csubc_refl ) -lemma lsubc_refl: âRP,G,L. G â¢ L â«[RP] L. -#RP #G #L elim L -L /2 width=1 by lsubc_bind/ -qed. - -( Basic_1: removed theorems 3: - csubc_clear_conf csubc_getl_conf csubc_csuba -*) diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsubc_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsubc_drops.ma deleted file mode 100644 index 1916a81b4..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsubc_drops.ma +++ /dev/null @@ -1,70 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/static/aaa_drops.ma". -include "basic_2/static/lsubc.ma". - -(* LOCAL ENVIRONMENT REFINEMENT FOR GENERIC REDUCIBILITY ********************) - -(* Properties with generic slicing ******************************************) - -(* Note: the premise ðâ¦fâ¦ cannot be removed ) -( Basic_1: includes: csubc_drop_conf_O ) -( Basic_2A1: includes: lsubc_drop_O1_trans ) -lemma lsubc_drops_trans_isuni: âRP,G,L1,L2. G â¢ L1 â«[RP] L2 â - âb,f,K2. ðâ¦fâ¦ â â¬[b, f] L2 â K2 â - ââK1. â¬[b, f] L1 â K1 & G â¢ K1 â«[RP] K2. -#RP #G #L1 #L2 #H elim H -L1 -L2 -[ /2 width=3 by ex2_intro/ -| #I #L1 #L2 #HL12 #IH #b #f #K2 #Hf #H - elim (drops_inv_bind1_isuni â¦ Hf H) -Hf -H - [ #Hf #H destruct -IH - /3 width=3 by lsubc_bind, drops_refl, ex2_intro/ - | #g #Hg #HLK2 #H destruct -HL12 - elim (IH â¦ Hg HLK2) -L2 -Hg /3 width=3 by drops_drop, ex2_intro/ - ] -| #L1 #L2 #V #W #A #HV #H1W #H2W #HL12 #IH #b #f #K2 #Hf #H - elim (drops_inv_bind1_isuni â¦ Hf H) -Hf -H * - [ #Hf #H destruct -IH - /3 width=8 by drops_refl, lsubc_beta, ex2_intro/ - | #g #Hg #HLK2 #H destruct -HL12 - elim (IH â¦ Hg HLK2) -L2 -Hg /3 width=3 by drops_drop, ex2_intro/ - ] -] -qed-. - -(* Basic_1: was: csubc_drop1_conf_rev ) -( Basic_1: includes: csubc_drop_conf_rev ) -( Basic_2A1: includes: drop_lsubc_trans ) -lemma drops_lsubc_trans: âRR,RS,RP. gcp RR RS RP â - âb,f,G,L1,K1. â¬[b, f] L1 â K1 â âK2. G â¢ K1 â«[RP] K2 â - ââL2. G â¢ L1 â«[RP] L2 & â¬[b, f] L2 â K2. -#RR #RS #RP #HR #b #f #G #L1 #K1 #H elim H -f -L1 -K1 -[ #f #Hf #Y #H lapply (lsubc_inv_atom1 â¦ H) -H - #H destruct /4 width=3 by lsubc_atom, drops_atom, ex2_intro/ -| #f #I #L1 #K1 #_ #IH #K2 #HK12 elim (IH â¦ HK12) -K1 - /3 width=5 by lsubc_bind, drops_drop, ex2_intro/ -| #f #Z #I #L1 #K1 #HLK1 #HZ #IH #Y #H elim (lsubc_inv_bind1 â¦ H) -H - [ #K2 #HK12 #H destruct -HLK1 - elim (IH â¦ HK12) -K1 /3 width=5 by lsubc_bind, drops_skip, ex2_intro/ - | #K2 #V2 #W2 #A #HV2 #H1W2 #H2W2 #HK12 #H1 #H2 destruct - elim (liftsb_inv_pair_sn â¦ HZ) -HZ #V1 #HV21 #H destruct - elim (lifts_inv_flat1 â¦ HV21) -HV21 #W3 #V3 #HW23 #HV3 #H destruct - elim (IH â¦ HK12) -IH -HK12 #K #HL1K #HK2 - lapply (acr_lifts â¦ HR â¦ HV2 â¦ HLK1 â¦ HV3) -HV2 - lapply (acr_lifts â¦ HR â¦ H1W2 â¦ HLK1 â¦ HW23) -H1W2 - /4 width=10 by lsubc_beta, aaa_lifts, drops_skip, ext2_pair, ex2_intro/ - ] -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsubc_lsuba.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsubc_lsuba.ma deleted file mode 100644 index 5a11f0ba1..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsubc_lsuba.ma +++ /dev/null @@ -1,26 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/static/lsuba.ma". -include "basic_2/static/gcp_aaa.ma". - -(* LOCAL ENVIRONMENT REFINEMENT FOR GENERIC REDUCIBILITY ********************) - -(* Properties with lenv refinement for atomic arity assignment ) - -lemma lsuba_lsubc: âRR,RS,RP. gcp RR RS RP â gcr RR RS RP RP â - âG,L1,L2. G â¢ L1 â«â L2 â G â¢ L1 â«[RP] L2. -#RR #RS #RP #H1RP #H2RP #G #L1 #L2 #H elim H -L1 -L2 /2 width=1 by lsubc_bind/ -#L1 #L2 #W #V #A #H elim (aaa_inv_cast â¦ H) -H /3 width=4 by acr_aaa, lsubc_beta/ -qed. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsubc_lsubr.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsubc_lsubr.ma deleted file mode 100644 index 0b1ab85f4..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsubc_lsubr.ma +++ /dev/null @@ -1,24 +0,0 @@ -(************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/static/lsubr.ma". -include "basic_2/static/lsubc.ma". - -(* LOCAL ENVIRONMENT REFINEMENT FOR GENERIC REDUCIBILITY ********************) - -(* Forward lemmas with restricted refinement for local environments *) - -lemma lsubc_fwd_lsubr: âRP,G,L1,L2. G â¢ L1 â«[RP] L2 â L1 â« L2. -#RP #G #L1 #L2 #H elim H -L1 -L2 /2 width=1 by lsubr_bind, lsubr_beta/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsubf.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsubf.ma deleted file mode 100644 index 6eec91277..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsubf.ma +++ /dev/null @@ -1,358 +0,0 @@ -(******************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/relations/lrsubeqf_4.ma". -include "ground_2/relocation/nstream_sor.ma". -include "basic_2/static/frees.ma". - -(* RESTRICTED REFINEMENT FOR CONTEXT-SENSITIVE FREE VARIABLES ***************) - -inductive lsubf: relation4 lenv rtmap lenv rtmap â -| lsubf_atom: âf1,f2. f1 â¡ f2 â lsubf (â) f1 (â) f2 -| lsubf_push: âf1,f2,I1,I2,L1,L2. lsubf L1 (f1) L2 (f2) â - lsubf (L1.â{I1}) (â«¯f1) (L2.â{I2}) (â«¯f2) -| lsubf_bind: âf1,f2,I,L1,L2. lsubf L1 f1 L2 f2 â - lsubf (L1.â{I}) (âf1) (L2.â{I}) (âf2) -| lsubf_beta: âf,f0,f1,f2,L1,L2,W,V. L1 â¢ ðâ¦Vâ¦ â f â f0 â f â f1 â - lsubf L1 f0 L2 f2 â lsubf (L1.ââW.V) (âf1) (L2.âW) (âf2) -| lsubf_unit: âf,f0,f1,f2,I1,I2,L1,L2,V. L1 â¢ ðâ¦Vâ¦ â f â f0 â f â f1 â - lsubf L1 f0 L2 f2 â lsubf (L1.â{I1}V) (âf1) (L2.â¤{I2}) (âf2) -. - -interpretation - "local environment refinement (context-sensitive free variables)" - 'LRSubEqF L1 f1 L2 f2 = (lsubf L1 f1 L2 f2). - -(* Basic inversion lemmas ***************************************************) - -fact lsubf_inv_atom1_aux: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â L1 = â â - f1 â¡ f2 â§ L2 = â. -#f1 #f2 #L1 #L2 * -f1 -f2 -L1 -L2 -[ /2 width=1 by conj/ -| #f1 #f2 #I1 #I2 #L1 #L2 #_ #H destruct -| #f1 #f2 #I #L1 #L2 #_ #H destruct -| #f #f0 #f1 #f2 #L1 #L2 #W #V #_ #_ #_ #H destruct -| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #_ #_ #_ #H destruct -] -qed-. - -lemma lsubf_inv_atom1: âf1,f2,L2. â¦â, f1â¦ â«ð* â¦L2, f2â¦ â f1 â¡ f2 â§ L2 = â. -/2 width=3 by lsubf_inv_atom1_aux/ qed-. - -fact lsubf_inv_push1_aux: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â - âg1,I1,K1. f1 = â«¯g1 â L1 = K1.â{I1} â - ââg2,I2,K2. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f2 = â«¯g2 & L2 = K2.â{I2}. -#f1 #f2 #L1 #L2 * -f1 -f2 -L1 -L2 -[ #f1 #f2 #_ #g1 #J1 #K1 #_ #H destruct -| #f1 #f2 #I1 #I2 #L1 #L2 #H12 #g1 #J1 #K1 #H1 #H2 destruct - <(injective_push â¦ H1) -g1 /2 width=6 by ex3_3_intro/ -| #f1 #f2 #I #L1 #L2 #_ #g1 #J1 #K1 #H elim (discr_next_push â¦ H) -| #f #f0 #f1 #f2 #L1 #L2 #W #V #_ #_ #_ #g1 #J1 #K1 #H elim (discr_next_push â¦ H) -| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #_ #_ #_ #g1 #J1 #K1 #H elim (discr_next_push â¦ H) -] -qed-. - -lemma lsubf_inv_push1: âg1,f2,I1,K1,L2. â¦K1.â{I1}, â«¯g1â¦ â«ð* â¦L2, f2â¦ â - ââg2,I2,K2. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f2 = â«¯g2 & L2 = K2.â{I2}. -/2 width=6 by lsubf_inv_push1_aux/ qed-. - -fact lsubf_inv_pair1_aux: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â - âg1,I,K1,X. f1 = âg1 â L1 = K1.â{I}X â - â¨â¨ ââg2,K2. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f2 = âg2 & L2 = K2.â{I}X - | ââg,g0,g2,K2,W,V. â¦K1, g0â¦ â«ð* â¦K2, g2â¦ & - K1 â¢ ðâ¦Vâ¦ â g & g0 â g â g1 & f2 = âg2 & - I = Abbr & X = âW.V & L2 = K2.âW - | ââg,g0,g2,J,K2. â¦K1, g0â¦ â«ð â¦K2, g2â¦ & - K1 â¢ ðâ¦Xâ¦ â g & g0 â g â g1 & f2 = âg2 & - L2 = K2.â¤{J}. -#f1 #f2 #L1 #L2 -f1 -f2 -L1 -L2 -[ #f1 #f2 #_ #g1 #J #K1 #X #_ #H destruct -| #f1 #f2 #I1 #I2 #L1 #L2 #H12 #g1 #J #K1 #X #H elim (discr_push_next â¦ H) -| #f1 #f2 #I #L1 #L2 #H12 #g1 #J #K1 #X #H1 #H2 destruct - <(injective_next â¦ H1) -g1 /3 width=5 by or3_intro0, ex3_2_intro/ -| #f #f0 #f1 #f2 #L1 #L2 #W #V #Hf #Hf1 #H12 #g1 #J #K1 #X #H1 #H2 destruct - <(injective_next â¦ H1) -g1 /3 width=12 by or3_intro1, ex7_6_intro/ -| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #Hf #Hf1 #H12 #g1 #J #K1 #X #H1 #H2 destruct - <(injective_next â¦ H1) -g1 /3 width=10 by or3_intro2, ex5_5_intro/ -] -qed-. - -lemma lsubf_inv_pair1: âg1,f2,I,K1,L2,X. â¦K1.â{I}X, âg1â¦ â«ð* â¦L2, f2â¦ â - â¨â¨ ââg2,K2. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f2 = âg2 & L2 = K2.â{I}X - | ââg,g0,g2,K2,W,V. â¦K1, g0â¦ â«ð* â¦K2, g2â¦ & - K1 â¢ ðâ¦Vâ¦ â g & g0 â g â g1 & f2 = âg2 & - I = Abbr & X = âW.V & L2 = K2.âW - | ââg,g0,g2,J,K2. â¦K1, g0â¦ â«ð â¦K2, g2â¦ & - K1 â¢ ðâ¦Xâ¦ â g & g0 â g â g1 & f2 = âg2 & - L2 = K2.â¤{J}. -/2 width=5 by lsubf_inv_pair1_aux/ qed-. - -fact lsubf_inv_unit1_aux: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð â¦L2, f2â¦ â - âg1,I,K1. f1 = âg1 â L1 = K1.â¤{I} â - ââg2,K2. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f2 = âg2 & L2 = K2.â¤{I}. -#f1 #f2 #L1 #L2 * -f1 -f2 -L1 -L2 -[ #f1 #f2 #_ #g1 #J #K1 #_ #H destruct -| #f1 #f2 #I1 #I2 #L1 #L2 #H12 #g1 #J #K1 #H elim (discr_push_next â¦ H) -| #f1 #f2 #I #L1 #L2 #H12 #g1 #J #K1 #H1 #H2 destruct - <(injective_next â¦ H1) -g1 /2 width=5 by ex3_2_intro/ -| #f #f0 #f1 #f2 #L1 #L2 #W #V #_ #_ #_ #g1 #J #K1 #_ #H destruct -| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #_ #_ #_ #g1 #J #K1 #_ #H destruct -] -qed-. - -lemma lsubf_inv_unit1: âg1,f2,I,K1,L2. â¦K1.â¤{I}, âg1â¦ â«ð* â¦L2, f2â¦ â - ââg2,K2. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f2 = âg2 & L2 = K2.â¤{I}. -/2 width=5 by lsubf_inv_unit1_aux/ qed-. - -fact lsubf_inv_atom2_aux: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â L2 = â â - f1 â¡ f2 â§ L1 = â. -#f1 #f2 #L1 #L2 * -f1 -f2 -L1 -L2 -[ /2 width=1 by conj/ -| #f1 #f2 #I1 #I2 #L1 #L2 #_ #H destruct -| #f1 #f2 #I #L1 #L2 #_ #H destruct -| #f #f0 #f1 #f2 #L1 #L2 #W #V #_ #_ #_ #H destruct -| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #_ #_ #_ #H destruct -] -qed-. - -lemma lsubf_inv_atom2: âf1,f2,L1. â¦L1, f1â¦ â«ð* â¦â, f2â¦ â f1 â¡ f2 â§ L1 = â. -/2 width=3 by lsubf_inv_atom2_aux/ qed-. - -fact lsubf_inv_push2_aux: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â - âg2,I2,K2. f2 = â«¯g2 â L2 = K2.â{I2} â - ââg1,I1,K1. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f1 = â«¯g1 & L1 = K1.â{I1}. -#f1 #f2 #L1 #L2 * -f1 -f2 -L1 -L2 -[ #f1 #f2 #_ #g2 #J2 #K2 #_ #H destruct -| #f1 #f2 #I1 #I2 #L1 #L2 #H12 #g2 #J2 #K2 #H1 #H2 destruct - <(injective_push â¦ H1) -g2 /2 width=6 by ex3_3_intro/ -| #f1 #f2 #I #L1 #L2 #_ #g2 #J2 #K2 #H elim (discr_next_push â¦ H) -| #f #f0 #f1 #f2 #L1 #L2 #W #V #_ #_ #_ #g2 #J2 #K2 #H elim (discr_next_push â¦ H) -| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #_ #_ #_ #g2 #J2 #K2 #H elim (discr_next_push â¦ H) -] -qed-. - -lemma lsubf_inv_push2: âf1,g2,I2,L1,K2. â¦L1, f1â¦ â«ð* â¦K2.â{I2}, â«¯g2â¦ â - ââg1,I1,K1. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f1 = â«¯g1 & L1 = K1.â{I1}. -/2 width=6 by lsubf_inv_push2_aux/ qed-. - -fact lsubf_inv_pair2_aux: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â - âg2,I,K2,W. f2 = âg2 â L2 = K2.â{I}W â - â¨â¨ ââg1,K1. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f1 = âg1 & L1 = K1.â{I}W - | ââg,g0,g1,K1,V. â¦K1, g0â¦ â«ð* â¦K2, g2â¦ & - K1 â¢ ðâ¦Vâ¦ â g & g0 â g â g1 & f1 = âg1 & - I = Abst & L1 = K1.ââW.V. -#f1 #f2 #L1 #L2 -f1 -f2 -L1 -L2 -[ #f1 #f2 #_ #g2 #J #K2 #X #_ #H destruct -| #f1 #f2 #I1 #I2 #L1 #L2 #H12 #g2 #J #K2 #X #H elim (discr_push_next â¦ H) -| #f1 #f2 #I #L1 #L2 #H12 #g2 #J #K2 #X #H1 #H2 destruct - <(injective_next â¦ H1) -g2 /3 width=5 by ex3_2_intro, or_introl/ -| #f #f0 #f1 #f2 #L1 #L2 #W #V #Hf #Hf1 #H12 #g2 #J #K2 #X #H1 #H2 destruct - <(injective_next â¦ H1) -g2 /3 width=10 by ex6_5_intro, or_intror/ -| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #_ #_ #_ #g2 #J #K2 #X #_ #H destruct -] -qed-. - -lemma lsubf_inv_pair2: âf1,g2,I,L1,K2,W. â¦L1, f1â¦ â«ð* â¦K2.â{I}W, âg2â¦ â - â¨â¨ ââg1,K1. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f1 = âg1 & L1 = K1.â{I}W - | ââg,g0,g1,K1,V. â¦K1, g0â¦ â«ð* â¦K2, g2â¦ & - K1 â¢ ðâ¦Vâ¦ â g & g0 â g â g1 & f1 = âg1 & - I = Abst & L1 = K1.ââW.V. -/2 width=5 by lsubf_inv_pair2_aux/ qed-. - -fact lsubf_inv_unit2_aux: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð â¦L2, f2â¦ â - âg2,I,K2. f2 = âg2 â L2 = K2.â¤{I} â - â¨â¨ ââg1,K1. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f1 = âg1 & L1 = K1.â¤{I} - | ââg,g0,g1,J,K1,V. â¦K1, g0â¦ â«ð* â¦K2, g2â¦ & - K1 â¢ ðâ¦Vâ¦ â g & g0 â g â g1 & f1 = âg1 & - L1 = K1.â{J}V. -#f1 #f2 #L1 #L2 -f1 -f2 -L1 -L2 -[ #f1 #f2 #_ #g2 #J #K2 #_ #H destruct -| #f1 #f2 #I1 #I2 #L1 #L2 #H12 #g2 #J #K2 #H elim (discr_push_next â¦ H) -| #f1 #f2 #I #L1 #L2 #H12 #g2 #J #K2 #H1 #H2 destruct - <(injective_next â¦ H1) -g2 /3 width=5 by ex3_2_intro, or_introl/ -| #f #f0 #f1 #f2 #L1 #L2 #W #V #_ #_ #_ #g2 #J #K2 #_ #H destruct -| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #Hf #Hf1 #H12 #g2 #J #K2 #H1 #H2 destruct - <(injective_next â¦ H1) -g2 /3 width=11 by ex5_6_intro, or_intror/ -] -qed-. - -lemma lsubf_inv_unit2: âf1,g2,I,L1,K2. â¦L1, f1â¦ â«ð* â¦K2.â¤{I}, âg2â¦ â - â¨â¨ ââg1,K1. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f1 = âg1 & L1 = K1.â¤{I} - | ââg,g0,g1,J,K1,V. â¦K1, g0â¦ â«ð* â¦K2, g2â¦ & - K1 â¢ ðâ¦Vâ¦ â g & g0 â g â g1 & f1 = âg1 & - L1 = K1.â{J}V. -/2 width=5 by lsubf_inv_unit2_aux/ qed-. - -( Advanced inversion lemmas ************************************************) - -lemma lsubf_inv_atom: âf1,f2. â¦â, f1â¦ â«ð* â¦â, f2â¦ â f1 â¡ f2. -#f1 #f2 #H elim (lsubf_inv_atom1 â¦ H) -H // -qed-. - -lemma lsubf_inv_push_sn: âg1,f2,I1,I2,K1,K2. â¦K1.â{I1}, â«¯g1â¦ â«ð* â¦K2.â{I2}, f2â¦ â - ââg2. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f2 = â«¯g2. -#g1 #f2 #I #K1 #K2 #X #H elim (lsubf_inv_push1 â¦ H) -H -#g2 #I #Y #H0 #H2 #H destruct /2 width=3 by ex2_intro/ -qed-. - -lemma lsubf_inv_bind_sn: âg1,f2,I,K1,K2. â¦K1.â{I}, âg1â¦ â«ð* â¦K2.â{I}, f2â¦ â - ââg2. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f2 = âg2. -#g1 #f2 * #I [2: #X ] #K1 #K2 #H -[ elim (lsubf_inv_pair1 â¦ H) -H * - [ #z2 #Y2 #H2 #H #H0 destruct /2 width=3 by ex2_intro/ - | #z #z0 #z2 #Y2 #W #V #_ #_ #_ #_ #H0 #_ #H destruct - | #z #z0 #z2 #Z2 #Y2 #_ #_ #_ #_ #H destruct - ] -| elim (lsubf_inv_unit1 â¦ H) -H - #z2 #Y2 #H2 #H #H0 destruct /2 width=3 by ex2_intro/ -] -qed-. - -lemma lsubf_inv_beta_sn: âg1,f2,K1,K2,V,W. â¦K1.ââW.V, âg1â¦ â«ð* â¦K2.âW, f2â¦ â - ââg,g0,g2. â¦K1, g0â¦ â«ð* â¦K2, g2â¦ & K1 â¢ ðâ¦Vâ¦ â g & g0 â g â g1 & f2 = âg2. -#g1 #f2 #K1 #K2 #V #W #H elim (lsubf_inv_pair1 â¦ H) -H -[ #z2 #Y2 #_ #_ #H destruct -| #z #z0 #z2 #Y2 #X0 #X #H02 #Hz #Hg1 #H #_ #H0 #H1 destruct - /2 width=7 by ex4_3_intro/ -| #z #z0 #z2 #Z2 #Y2 #_ #_ #_ #_ #H destruct -] -qed-. - -lemma lsubf_inv_unit_sn: âg1,f2,I,J,K1,K2,V. â¦K1.â{I}V, âg1â¦ â«ð* â¦K2.â¤{J}, f2â¦ â - ââg,g0,g2. â¦K1, g0â¦ â«ð* â¦K2, g2â¦ & K1 â¢ ðâ¦Vâ¦ â g & g0 â g â g1 & f2 = âg2. -#g1 #f2 #I #J #K1 #K2 #V #H elim (lsubf_inv_pair1 â¦ H) -H -[ #z2 #Y2 #_ #_ #H destruct -| #z #z0 #z2 #Y2 #X0 #X #_ #_ #_ #_ #_ #_ #H destruct -| #z #z0 #z2 #Z2 #Y2 #H02 #Hz #Hg1 #H0 #H1 destruct - /2 width=7 by ex4_3_intro/ -] -qed-. - -lemma lsubf_inv_refl: âL,f1,f2. â¦L,f1â¦ â«ð* â¦L,f2â¦ â f1 â¡ f2. -#L elim L -L /2 width=1 by lsubf_inv_atom/ -#L #I #IH #f1 #f2 #H12 -elim (pn_split f1) * #g1 #H destruct -[ elim (lsubf_inv_push_sn â¦ H12) | elim (lsubf_inv_bind_sn â¦ H12) ] -H12 -#g2 #H12 #H destruct /3 width=5 by eq_next, eq_push/ -qed-. - -(* Basic forward lemmas *****************************************************) - -lemma lsubf_fwd_bind_tl: âf1,f2,I,L1,L2. - â¦L1.â{I}, f1â¦ â«ð* â¦L2.â{I}, f2â¦ â â¦L1, â«±f1â¦ â«ð* â¦L2, â«±f2â¦. -#f1 #f2 #I #L1 #L2 #H -elim (pn_split f1) * #g1 #H0 destruct -[ elim (lsubf_inv_push_sn â¦ H) | elim (lsubf_inv_bind_sn â¦ H) ] -H -#g2 #H12 #H destruct // -qed-. - -lemma lsubf_fwd_isid_dx: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â ðâ¦f2â¦ â ðâ¦f1â¦. -#f1 #f2 #L1 #L2 #H elim H -f1 -f2 -L1 -L2 -[ /2 width=3 by isid_eq_repl_fwd/ -| /4 width=3 by isid_inv_push, isid_push/ -| #f1 #f2 #I #L1 #L2 #_ #_ #H elim (isid_inv_next â¦ H) -H // -| #f #f0 #f1 #f2 #L1 #L2 #W #V #_ #_ #_ #_ #H elim (isid_inv_next â¦ H) -H // -| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #_ #_ #_ #_ #H elim (isid_inv_next â¦ H) -H // -] -qed-. - -lemma lsubf_fwd_isid_sn: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â ðâ¦f1â¦ â ðâ¦f2â¦. -#f1 #f2 #L1 #L2 #H elim H -f1 -f2 -L1 -L2 -[ /2 width=3 by isid_eq_repl_back/ -| /4 width=3 by isid_inv_push, isid_push/ -| #f1 #f2 #I #L1 #L2 #_ #_ #H elim (isid_inv_next â¦ H) -H // -| #f #f0 #f1 #f2 #L1 #L2 #W #V #_ #_ #_ #_ #H elim (isid_inv_next â¦ H) -H // -| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #_ #_ #_ #_ #H elim (isid_inv_next â¦ H) -H // -] -qed-. - -lemma lsubf_fwd_sle: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â f2 â f1. -#f1 #f2 #L1 #L2 #H elim H -f1 -f2 -L1 -L2 -/3 width=5 by sor_inv_sle_sn_trans, sle_next, sle_push, sle_refl_eq, eq_sym/ -qed-. - -(* Basic properties *********************************************************) - -axiom lsubf_eq_repl_back1: âf2,L1,L2. eq_repl_back â¦ (Î»f1. â¦L1, f1â¦ â«ð* â¦L2, f2â¦). - -lemma lsubf_eq_repl_fwd1: âf2,L1,L2. eq_repl_fwd â¦ (Î»f1. â¦L1, f1â¦ â«ð* â¦L2, f2â¦). -#f2 #L1 #L2 @eq_repl_sym /2 width=3 by lsubf_eq_repl_back1/ -qed-. - -axiom lsubf_eq_repl_back2: âf1,L1,L2. eq_repl_back â¦ (Î»f2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦). - -lemma lsubf_eq_repl_fwd2: âf1,L1,L2. eq_repl_fwd â¦ (Î»f2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦). -#f1 #L1 #L2 @eq_repl_sym /2 width=3 by lsubf_eq_repl_back2/ -qed-. - -lemma lsubf_refl: bi_reflexive â¦ lsubf. -#L elim L -L /2 width=1 by lsubf_atom, eq_refl/ -#L #I #IH #f elim (pn_split f) * #g #H destruct -/2 width=1 by lsubf_push, lsubf_bind/ -qed. - -lemma lsubf_refl_eq: âf1,f2,L. f1 â¡ f2 â â¦L, f1â¦ â«ð* â¦L, f2â¦. -/2 width=3 by lsubf_eq_repl_back2/ qed. - -lemma lsubf_bind_tl_dx: âg1,f2,I,L1,L2. â¦L1, g1â¦ â«ð* â¦L2, â«±f2â¦ â - ââf1. â¦L1.â{I}, f1â¦ â«ð* â¦L2.â{I}, f2â¦ & g1 = â«±f1. -#g1 #f2 #I #L1 #L2 #H -elim (pn_split f2) * #g2 #H2 destruct -@ex2_intro [1,2,4,5: /2 width=2 by lsubf_push, lsubf_bind/ ] // (**) (* constructor needed ) -qed-. - -lemma lsubf_beta_tl_dx: âf,f0,g1,L1,V. L1 â¢ ðâ¦Vâ¦ â f â f0 â f â g1 â - âf2,L2,W. â¦L1, f0â¦ â«ð* â¦L2, â«±f2â¦ â - ââf1. â¦L1.ââW.V, f1â¦ â«ð* â¦L2.âW, f2â¦ & â«±f1 â g1. -#f #f0 #g1 #L1 #V #Hf #Hg1 #f2 -elim (pn_split f2) * #x2 #H2 #L2 #W #HL12 destruct -[ /3 width=4 by lsubf_push, sor_inv_sle_sn, ex2_intro/ -| @(ex2_intro â¦ (âg1)) /2 width=5 by lsubf_beta/ (**) (* full auto fails ) -] -qed-. - -( Note: this might be moved ) -lemma lsubf_inv_sor_dx: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð â¦L2, f2â¦ â - âf2l,f2r. f2lâf2r â f2 â - ââf1l,f1r. â¦L1, f1lâ¦ â«ð* â¦L2, f2lâ¦ & â¦L1, f1râ¦ â«ð* â¦L2, f2râ¦ & f1lâf1r â f1. -#f1 #f2 #L1 #L2 #H elim H -f1 -f2 -L1 -L2 -[ /3 width=7 by sor_eq_repl_fwd3, ex3_2_intro/ -| #g1 #g2 #I1 #I2 #L1 #L2 #_ #IH #f2l #f2r #H - elim (sor_inv_xxp â¦ H) -H [|: // ] #g2l #g2r #Hg2 #Hl #Hr destruct - elim (IH â¦ Hg2) -g2 /3 width=11 by lsubf_push, sor_pp, ex3_2_intro/ -| #g1 #g2 #I #L1 #L2 #_ #IH #f2l #f2r #H - elim (sor_inv_xxn â¦ H) -H [1,3,4: |: // ] #g2l #g2r #Hg2 #Hl #Hr destruct - elim (IH â¦ Hg2) -g2 /3 width=11 by lsubf_push, lsubf_bind, sor_np, sor_pn, sor_nn, ex3_2_intro/ -| #g #g0 #g1 #g2 #L1 #L2 #W #V #Hg #Hg1 #_ #IH #f2l #f2r #H - elim (sor_inv_xxn â¦ H) -H [1,3,4: |: // ] #g2l #g2r #Hg2 #Hl #Hr destruct - elim (IH â¦ Hg2) -g2 #g1l #g1r #Hl #Hr #Hg0 - [ lapply (sor_comm_23 â¦ Hg0 Hg1 ?) -g0 [3: |: // ] #Hg1 - /3 width=11 by lsubf_push, lsubf_beta, sor_np, ex3_2_intro/ - | lapply (sor_assoc_dx â¦ Hg1 â¦ Hg0 ??) -g0 [3: |: // ] #Hg1 - /3 width=11 by lsubf_push, lsubf_beta, sor_pn, ex3_2_intro/ - | lapply (sor_distr_dx â¦ Hg0 â¦ Hg1) -g0 [5: |: // ] #Hg1 - /3 width=11 by lsubf_beta, sor_nn, ex3_2_intro/ - ] -| #g #g0 #g1 #g2 #I1 #I2 #L1 #L2 #V #Hg #Hg1 #_ #IH #f2l #f2r #H - elim (sor_inv_xxn â¦ H) -H [1,3,4: * |: // ] #g2l #g2r #Hg2 #Hl #Hr destruct - elim (IH â¦ Hg2) -g2 #g1l #g1r #Hl #Hr #Hg0 - [ lapply (sor_comm_23 â¦ Hg0 Hg1 ?) -g0 [3: |: // ] #Hg1 - /3 width=11 by lsubf_push, lsubf_unit, sor_np, ex3_2_intro/ - | lapply (sor_assoc_dx â¦ Hg1 â¦ Hg0 ??) -g0 [3: |: // ] #Hg1 - /3 width=11 by lsubf_push, lsubf_unit, sor_pn, ex3_2_intro/ - | lapply (sor_distr_dx â¦ Hg0 â¦ Hg1) -g0 [5: |: // ] #Hg1 - /3 width=11 by lsubf_unit, sor_nn, ex3_2_intro/ - ] -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsubf_frees.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsubf_frees.ma deleted file mode 100644 index 390e6f13a..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsubf_frees.ma +++ /dev/null @@ -1,51 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/static/lsubf.ma". - -(* RESTRICTED REFINEMENT FOR CONTEXT-SENSITIVE FREE VARIABLES ***************) - -(* Properties with context-sensitive free variables *************************) - -lemma lsubf_frees_trans: âf2,L2,T. L2 â¢ ðâ¦Tâ¦ â f2 â - âf1,L1. â¦L1, f1â¦ â«ð â¦L2, f2â¦ â L1 â¢ ðâ¦Tâ¦ â f1. -#f2 #L2 #T #H elim H -f2 -L2 -T -[ /3 width=5 by lsubf_fwd_isid_dx, frees_sort/ -| #f2 #i #Hf2 #g1 #Y1 #H - elim (lsubf_inv_atom2 â¦ H) -H #Hg1 #H destruct - elim (eq_inv_pushs_dx â¦ Hg1) -Hg1 #g #Hg #H destruct - elim (eq_inv_xn â¦ Hg) -Hg - /3 width=3 by frees_atom, isid_eq_repl_fwd/ -| #f2 #I #K2 #W #_ #IH #g1 #Y1 #H elim (lsubf_inv_pair2 â¦ H) -H - [ #f1 #K1 #H12 #H1 #H2 destruct /3 width=1 by frees_pair/ - | #f #f0 #f1 #K1 #V #H12 #Hf #Hf1 #H1 #H2 #H3 destruct - /4 width=5 by frees_pair, frees_flat/ - ] -| #f2 #I #L2 #Hf2 #g1 #Y1 #H elim (lsubf_inv_unit2 â¦ H) -H * - [ #f1 #L1 #H12 #H1 #H2 destruct - /3 width=5 by lsubf_fwd_isid_dx, frees_unit/ - | #f #f0 #f1 #J #L1 #V #H12 #Hf #Hf1 #H1 #H2 destruct - /5 width=9 by lsubf_fwd_isid_dx, frees_eq_repl_back, frees_pair, sor_isid_inv_sn/ - ] -| #f2 #I #L2 #i #_ #IH #g1 #L1 #H elim (lsubf_inv_push2 â¦ H) -H - /3 width=1 by frees_lref/ -| /3 width=5 by lsubf_fwd_isid_dx, frees_gref/ -| #f2V #f2T #f2 #p #I #L2 #V #T #_ #_ #Hf2 #IHV #IHT #f1 #L1 #H12 - elim (lsubf_inv_sor_dx â¦ H12 â¦ Hf2) -f2 #f1V #g1T #HV #HT #Hf1 - elim (lsubf_bind_tl_dx â¦ (BPair I V) â¦ HT) -HT #f1T #HT #H destruct - /3 width=5 by frees_bind/ -| #f2V #f2T #f2 #I #L2 #V #T #_ #_ #Hf2 #IHV #IHT #f1 #L1 #H12 - elim (lsubf_inv_sor_dx â¦ H12 â¦ Hf2) -f2 /3 width=5 by frees_flat/ -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsubf_lsubf.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsubf_lsubf.ma deleted file mode 100644 index 63211ac45..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsubf_lsubf.ma +++ /dev/null @@ -1,83 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/static/frees_frees.ma". -include "basic_2/static/lsubf.ma". - -(* RESTRICTED REFINEMENT FOR CONTEXT-SENSITIVE FREE VARIABLES ***************) - -(* Main properties **********************************************************) - -theorem lsubf_sor: âK,L,g1,f1. â¦K, g1â¦ â«ð* â¦L, f1â¦ â - âg2,f2. â¦K, g2â¦ â«ð* â¦L, f2â¦ â - âg. g1 â g2 â g â âf. f1 â f2 â f â â¦K, gâ¦ â«ð* â¦L, fâ¦. -#K elim K -K -[ #L #g1 #f1 #H1 #g2 #f2 #H2 #g #Hg #f #Hf - elim (lsubf_inv_atom1 â¦ H1) -H1 #H1 #H destruct - lapply (lsubf_inv_atom â¦ H2) -H2 #H2 - /5 width=4 by lsubf_atom, sor_mono, sor_eq_repl_back2, sor_eq_repl_back1/ -| #K #J #IH #L #g1 #f1 #H1 #g2 #f2 #H2 #g #Hg #f #Hf - elim (pn_split g1) * #y1 #H destruct - elim (pn_split g2) * #y2 #H destruct - [ elim (sor_inv_ppx â¦ Hg) -Hg [|: // ] #y #Hy #H destruct - elim (lsubf_inv_push1 â¦ H1) -H1 #x1 #Z1 #Y1 #H1 #H #H0 destruct - elim (lsubf_inv_push_sn â¦ H2) -H2 #x2 #H2 #H destruct - elim (sor_inv_ppx â¦ Hf) -Hf [|: // ] #x #Hx #H destruct - /3 width=8 by lsubf_push/ - | elim (sor_inv_pnx â¦ Hg) -Hg [|: // ] #y #Hy #H destruct - elim (lsubf_inv_push1 â¦ H1) -H1 #x1 #Z1 #Y1 #H1 #H #H0 destruct - generalize in match H2; -H2 cases J -J #J [| #V ] #H2 - [ elim (lsubf_inv_unit1 â¦ H2) -H2 #x2 #Y2 #H2 #H #H0 destruct - | elim (lsubf_inv_pair1 â¦ H2) -H2 - [ #x2 #Z2 #H2 #H #H0 destruct - | #y3 #y4 #x2 #Y2 #W #U #H2 #Hy3 #Hy2 #H #H0 #H3 #H4 destruct - | #y3 #y4 #x2 #Z2 #Y2 #H2 #Hy3 #Hy2 #H #H0 destruct - ] - ] - elim (sor_inv_pnx â¦ Hf) -Hf [1,6,11,16:|: // ] #x #Hx #H destruct - /3 width=12 by lsubf_unit, lsubf_beta, lsubf_bind, sor_assoc_sn/ - | elim (sor_inv_npx â¦ Hg) -Hg [|: // ] #y #Hy #H destruct - elim (lsubf_inv_push1 â¦ H2) -H2 #x2 #Z2 #Y2 #H2 #H #H0 destruct - generalize in match H1; -H1 cases J -J #J [| #V ] #H1 - [ elim (lsubf_inv_unit1 â¦ H1) -H1 #x1 #Y1 #H1 #H #H0 destruct - | elim (lsubf_inv_pair1 â¦ H1) -H1 * - [ #x1 #Z1 #H1 #H #H0 destruct - | #y3 #y4 #x1 #Y1 #W #U #H1 #Hy3 #Hy1 #H #H0 #H3 #H4 destruct - | #y3 #y4 #x1 #Z1 #Y1 #H1 #Hy3 #Hy1 #H #H0 destruct - ] - ] - elim (sor_inv_npx â¦ Hf) -Hf [1,6,11,16:|: // ] #x #Hx #H destruct - /3 width=12 by lsubf_unit, lsubf_beta, lsubf_bind, sor_comm_23/ - | elim (sor_inv_nnx â¦ Hg) -Hg [|: // ] #y #Hy #H destruct - generalize in match H2; generalize in match H1; -H1 -H2 cases J -J #J [| #V ] #H1 #H2 - [ elim (lsubf_inv_unit1 â¦ H1) -H1 #x1 #Y1 #H1 #H #H0 destruct - elim (lsubf_inv_bind_sn â¦ H2) -H2 #x2 #H2 #H destruct - | elim (lsubf_inv_pair1 â¦ H1) -H1 * - [ #x1 #Z1 #H1 #H #H0 destruct - elim (lsubf_inv_bind_sn â¦ H2) -H2 #x2 #H2 #H destruct - | #y3 #y4 #x1 #Y1 #W #U #H1 #Hy3 #Hy1 #H #H0 #H3 #H4 destruct - elim (lsubf_inv_beta_sn â¦ H2) -H2 #z3 #z4 #x2 #H2 #Hz3 #Hy2 #H destruct - lapply (frees_mono â¦ Hz3 â¦ Hy3) -Hz3 #H3 - lapply (sor_eq_repl_back2 â¦ Hy2 â¦ H3) -z3 #Hy2 - | #y3 #y4 #x1 #Z1 #Y1 #H1 #Hy3 #Hy1 #H #H0 destruct - elim (lsubf_inv_unit_sn â¦ H2) -H2 #z3 #z4 #x2 #H2 #Hz3 #Hy2 #H destruct - lapply (frees_mono â¦ Hz3 â¦ Hy3) -Hz3 #H3 - lapply (sor_eq_repl_back2 â¦ Hy2 â¦ H3) -z3 #Hy2 - ] - ] - elim (sor_inv_nnx â¦ Hf) -Hf [1,6,11,16:|*: // ] #x #Hx #H destruct - /3 width=12 by lsubf_unit, lsubf_beta, lsubf_bind, sor_coll_dx/ - ] -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsubf_lsubr.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsubf_lsubr.ma deleted file mode 100644 index 24b7e90d2..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsubf_lsubr.ma +++ /dev/null @@ -1,85 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/static/lsubr.ma". -include "basic_2/static/lsubf_lsubf.ma". - -(* RESTRICTED REFINEMENT FOR CONTEXT-SENSITIVE FREE VARIABLES ***************) - -(* Forward lemmas with restricted refinement for local environments *********) - -lemma lsubf_fwd_lsubr_isdiv: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â - ðâ¦f1â¦ â ðâ¦f2â¦ â L1 â« L2. -#f1 #f2 #L1 #L2 #H elim H -f1 -f2 -L1 -L2 -/4 width=3 by lsubr_bind, isdiv_inv_next/ -[ #f1 #f2 #I1 #I2 #L1 #L2 #_ #_ #H - elim (isdiv_inv_push â¦ H) // -| /5 width=5 by lsubf_fwd_sle, lsubr_beta, sle_inv_isdiv_sn, isdiv_inv_next/ -| /5 width=5 by lsubf_fwd_sle, lsubr_unit, sle_inv_isdiv_sn, isdiv_inv_next/ -] -qed-. - -(* Properties with restricted refinement for local environments *************) - -lemma lsubr_lsubf_isid: âL1,L2. L1 â« L2 â - âf1,f2. ðâ¦f1â¦ â ðâ¦f2â¦ â â¦L1, f1â¦ â«ð* â¦L2, f2â¦. -#L1 #L2 #H elim H -L1 -L2 -[ /3 width=1 by lsubf_atom, isid_inv_eq_repl/ -| #I #L1 #L2 | #L1 #L2 #V #W | #I1 #I2 #L1 #L2 #V -] -#_ #IH #f1 #f2 #Hf1 #Hf2 -elim (isid_inv_gen â¦ Hf1) -Hf1 #g1 #Hg1 #H destruct -elim (isid_inv_gen â¦ Hf2) -Hf2 #g2 #Hg2 #H destruct -/3 width=1 by lsubf_push/ -qed. - -lemma lsubr_lsubf: âf2,L2,T. L2 â¢ ðâ¦Tâ¦ â f2 â âL1. L1 â« L2 â - âf1. L1 â¢ ðâ¦Tâ¦ â f1 â â¦L1, f1â¦ â«ð* â¦L2, f2â¦. -#f2 #L2 #T #H elim H -f2 -L2 -T -[ #f2 #L2 #s #Hf2 #L1 #HL12 #f1 #Hf1 - lapply (frees_inv_sort â¦ Hf1) -Hf1 /2 width=1 by lsubr_lsubf_isid/ -| #f2 #i #Hf2 #Y1 #HY1 - >(lsubr_inv_atom2 â¦ HY1) -Y1 #g1 #Hg1 - elim (frees_inv_atom â¦ Hg1) -Hg1 #f1 #Hf1 #H destruct - /5 width=5 by lsubf_atom, isid_inv_eq_repl, pushs_eq_repl, eq_next/ -| #f2 #Z #L2 #W #_ #IH #Y1 #HY1 #g1 #Hg1 elim (lsubr_inv_pair2 â¦ HY1) -HY1 * - [ #L1 #HL12 #H destruct - elim (frees_inv_pair â¦ Hg1) -Hg1 #f1 #Hf1 #H destruct - /3 width=1 by lsubf_bind/ - | #L1 #V #HL12 #H1 #H2 destruct - elim (frees_inv_pair â¦ Hg1) -Hg1 #f1 #Hf1 #H destruct - elim (frees_inv_flat â¦ Hf1) -Hf1 /3 width=5 by lsubf_beta/ - ] -| #f2 #I2 #L2 #Hf2 #Y1 #HY1 #g1 #Hg1 elim (lsubr_inv_unit2 â¦ HY1) -HY1 * - [ #L1 #HL12 #H destruct - elim (frees_inv_unit â¦ Hg1) -Hg1 #f1 #Hf1 #H destruct - /3 width=1 by lsubf_bind, lsubr_lsubf_isid/ - | #I #L1 #V #HL12 #H destruct - elim (frees_inv_pair â¦ Hg1) -Hg1 #f1 #Hf1 #H destruct - /3 width=5 by lsubf_unit, sor_isid_sn, lsubr_lsubf_isid/ - ] -| #f2 #I2 #L2 #i #_ #IH #Y1 #HY1 #g1 #Hg1 - elim (lsubr_fwd_bind2 â¦ HY1) -HY1 #I1 #L1 #HL12 #H destruct - elim (frees_inv_lref â¦ Hg1) -Hg1 #f1 #Hf1 #H destruct - /3 width=1 by lsubf_push/ -| #f2 #L2 #l #Hf2 #L1 #HL12 #f1 #Hf1 - lapply (frees_inv_gref â¦ Hf1) -Hf1 /2 width=1 by lsubr_lsubf_isid/ -| #f2V #f2T #f2 #p #I #L2 #V #T #_ #_ #Hf2 #IHV #IHT #L1 #HL12 #f1 #Hf1 - elim (frees_inv_bind â¦ Hf1) -Hf1 #f1V #f1T #Hf1V #Hf1T #Hf1 - /5 width=8 by lsubf_sor, lsubf_fwd_bind_tl, lsubr_bind/ -| #f2V #f2T #f2 #I #L2 #V #T #_ #_ #Hf2 #IHV #IHT #L1 #HL12 #f1 #Hf1 - elim (frees_inv_flat â¦ Hf1) -Hf1 #f1V #f1T #Hf1V #Hf1T #Hf1 - /3 width=8 by lsubf_sor/ -] -qed. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsubr.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsubr.ma deleted file mode 100644 index 382458d9e..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsubr.ma +++ /dev/null @@ -1,176 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/relations/lrsubeqc_2.ma". -include "basic_2/syntax/lenv.ma". - -(* RESTRICTED REFINEMENT FOR LOCAL ENVIRONMENTS *****************************) - -(* Basic_2A1: just tpr_cpr and tprs_cprs require the extended lsubr_atom ) -( Basic_2A1: includes: lsubr_pair ) -inductive lsubr: relation lenv â -| lsubr_atom: lsubr (â) (â) -| lsubr_bind: âI,L1,L2. lsubr L1 L2 â lsubr (L1.â{I}) (L2.â{I}) -| lsubr_beta: âL1,L2,V,W. lsubr L1 L2 â lsubr (L1.ââW.V) (L2.âW) -| lsubr_unit: âI1,I2,L1,L2,V. lsubr L1 L2 â lsubr (L1.â{I1}V) (L2.â¤{I2}) -. - -interpretation - "restricted refinement (local environment)" - 'LRSubEqC L1 L2 = (lsubr L1 L2). - -( Basic properties *********************************************************) - -lemma lsubr_refl: âL. L â« L. -#L elim L -L /2 width=1 by lsubr_atom, lsubr_bind/ -qed. - -(* Basic inversion lemmas ***************************************************) - -fact lsubr_inv_atom1_aux: âL1,L2. L1 â« L2 â L1 = â â L2 = â. -#L1 #L2 * -L1 -L2 // -[ #I #L1 #L2 #_ #H destruct -| #L1 #L2 #V #W #_ #H destruct -| #I1 #I2 #L1 #L2 #V #_ #H destruct -] -qed-. - -lemma lsubr_inv_atom1: âL2. â â« L2 â L2 = â. -/2 width=3 by lsubr_inv_atom1_aux/ qed-. - -fact lsubr_inv_bind1_aux: âL1,L2. L1 â« L2 â âI,K1. L1 = K1.â{I} â - â¨â¨ ââK2. K1 â« K2 & L2 = K2.â{I} - | ââK2,V,W. K1 â« K2 & L2 = K2.âW & - I = BPair Abbr (âW.V) - | ââJ1,J2,K2,V. K1 â« K2 & L2 = K2.â¤{J2} & - I = BPair J1 V. -#L1 #L2 * -L1 -L2 -[ #J #K1 #H destruct -| #I #L1 #L2 #HL12 #J #K1 #H destruct /3 width=3 by or3_intro0, ex2_intro/ -| #L1 #L2 #V #W #HL12 #J #K1 #H destruct /3 width=6 by or3_intro1, ex3_3_intro/ -| #I1 #I2 #L1 #L2 #V #HL12 #J #K1 #H destruct /3 width=4 by or3_intro2, ex3_4_intro/ -] -qed-. - -(* Basic_2A1: uses: lsubr_inv_pair1 ) -lemma lsubr_inv_bind1: âI,K1,L2. K1.â{I} â« L2 â - â¨â¨ ââK2. K1 â« K2 & L2 = K2.â{I} - | ââK2,V,W. K1 â« K2 & L2 = K2.âW & - I = BPair Abbr (âW.V) - | ââJ1,J2,K2,V. K1 â« K2 & L2 = K2.â¤{J2} & - I = BPair J1 V. -/2 width=3 by lsubr_inv_bind1_aux/ qed-. - -fact lsubr_inv_atom2_aux: âL1,L2. L1 â« L2 â L2 = â â L1 = â. -#L1 #L2 -L1 -L2 // -[ #I #L1 #L2 #_ #H destruct -| #L1 #L2 #V #W #_ #H destruct -| #I1 #I2 #L1 #L2 #V #_ #H destruct -] -qed-. - -lemma lsubr_inv_atom2: âL1. L1 â« â â L1 = â. -/2 width=3 by lsubr_inv_atom2_aux/ qed-. - -fact lsubr_inv_bind2_aux: âL1,L2. L1 â« L2 â âI,K2. L2 = K2.â{I} â - â¨â¨ ââK1. K1 â« K2 & L1 = K1.â{I} - | ââK1,W,V. K1 â« K2 & L1 = K1.ââW.V & I = BPair Abst W - | ââJ1,J2,K1,V. K1 â« K2 & L1 = K1.â{J1}V & I = BUnit J2. -#L1 #L2 * -L1 -L2 -[ #J #K2 #H destruct -| #I #L1 #L2 #HL12 #J #K2 #H destruct /3 width=3 by ex2_intro, or3_intro0/ -| #L1 #L2 #V1 #V2 #HL12 #J #K2 #H destruct /3 width=6 by ex3_3_intro, or3_intro1/ -| #I1 #I2 #L1 #L2 #V #HL12 #J #K2 #H destruct /3 width=5 by ex3_4_intro, or3_intro2/ -] -qed-. - -lemma lsubr_inv_bind2: âI,L1,K2. L1 â« K2.â{I} â - â¨â¨ ââK1. K1 â« K2 & L1 = K1.â{I} - | ââK1,W,V. K1 â« K2 & L1 = K1.ââW.V & I = BPair Abst W - | ââJ1,J2,K1,V. K1 â« K2 & L1 = K1.â{J1}V & I = BUnit J2. -/2 width=3 by lsubr_inv_bind2_aux/ qed-. - -(* Advanced inversion lemmas ************************************************) - -lemma lsubr_inv_abst1: âK1,L2,W. K1.âW â« L2 â - â¨â¨ ââK2. K1 â« K2 & L2 = K2.âW - | ââI2,K2. K1 â« K2 & L2 = K2.â¤{I2}. -#K1 #L2 #W #H elim (lsubr_inv_bind1 â¦ H) -H * -/3 width=4 by ex2_2_intro, ex2_intro, or_introl, or_intror/ -#K2 #V2 #W2 #_ #_ #H destruct -qed-. - -lemma lsubr_inv_unit1: âI,K1,L2. K1.â¤{I} â« L2 â - ââK2. K1 â« K2 & L2 = K2.â¤{I}. -#I #K1 #L2 #H elim (lsubr_inv_bind1 â¦ H) -H * -[ #K2 #HK12 #H destruct /2 width=3 by ex2_intro/ -| #K2 #V #W #_ #_ #H destruct -| #I1 #I2 #K2 #V #_ #_ #H destruct -] -qed-. - -lemma lsubr_inv_pair2: âI,L1,K2,W. L1 â« K2.â{I}W â - â¨â¨ ââK1. K1 â« K2 & L1 = K1.â{I}W - | ââK1,V. K1 â« K2 & L1 = K1.ââW.V & I = Abst. -#I #L1 #K2 #W #H elim (lsubr_inv_bind2 â¦ H) -H * -[ /3 width=3 by ex2_intro, or_introl/ -| #K2 #X #V #HK12 #H1 #H2 destruct /3 width=4 by ex3_2_intro, or_intror/ -| #I1 #I1 #K2 #V #_ #_ #H destruct -] -qed-. - -lemma lsubr_inv_abbr2: âL1,K2,V. L1 â« K2.âV â - ââK1. K1 â« K2 & L1 = K1.âV. -#L1 #K2 #V #H elim (lsubr_inv_pair2 â¦ H) -H * -[ /2 width=3 by ex2_intro/ -| #K1 #X #_ #_ #H destruct -] -qed-. - -lemma lsubr_inv_abst2: âL1,K2,W. L1 â« K2.âW â - â¨â¨ ââK1. K1 â« K2 & L1 = K1.âW - | ââK1,V. K1 â« K2 & L1 = K1.ââW.V. -#L1 #K2 #W #H elim (lsubr_inv_pair2 â¦ H) -H * -/3 width=4 by ex2_2_intro, ex2_intro, or_introl, or_intror/ -qed-. - -lemma lsubr_inv_unit2: âI,L1,K2. L1 â« K2.â¤{I} â - â¨â¨ ââK1. K1 â« K2 & L1 = K1.â¤{I} - | ââJ,K1,V. K1 â« K2 & L1 = K1.â{J}V. -#I #L1 #K2 #H elim (lsubr_inv_bind2 â¦ H) -H * -[ /3 width=3 by ex2_intro, or_introl/ -| #K1 #W #V #_ #_ #H destruct -| #I1 #I2 #K1 #V #HK12 #H1 #H2 destruct /3 width=5 by ex2_3_intro, or_intror/ -] -qed-. - -(* Basic forward lemmas *****************************************************) - -lemma lsubr_fwd_bind1: âI1,K1,L2. K1.â{I1} â« L2 â - ââI2,K2. K1 â« K2 & L2 = K2.â{I2}. -#I1 #K1 #L2 #H elim (lsubr_inv_bind1 â¦ H) -H * -[ #K2 #HK12 #H destruct /3 width=4 by ex2_2_intro/ -| #K2 #W1 #V1 #HK12 #H1 #H2 destruct /3 width=4 by ex2_2_intro/ -| #I1 #I2 #K2 #V1 #HK12 #H1 #H2 destruct /3 width=4 by ex2_2_intro/ -] -qed-. - -lemma lsubr_fwd_bind2: âI2,L1,K2. L1 â« K2.â{I2} â - ââI1,K1. K1 â« K2 & L1 = K1.â{I1}. -#I2 #L1 #K2 #H elim (lsubr_inv_bind2 â¦ H) -H * -[ #K1 #HK12 #H destruct /3 width=4 by ex2_2_intro/ -| #K1 #W1 #V1 #HK12 #H1 #H2 destruct /3 width=4 by ex2_2_intro/ -| #I1 #I2 #K1 #V1 #HK12 #H1 #H2 destruct /3 width=4 by ex2_2_intro/ -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsubr_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsubr_drops.ma deleted file mode 100644 index f69618336..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsubr_drops.ma +++ /dev/null @@ -1,52 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/relocation/drops.ma". -include "basic_2/static/lsubr.ma". - -(* RESTRICTED REFINEMENT FOR LOCAL ENVIRONMENTS *****************************) - -(* Forward lemmas with generic slicing for local environments ***************) - -(* Basic_2A1: includes: lsubr_fwd_drop2_pair ) -lemma lsubr_fwd_drops2_bind: âL1,L2. L1 â« L2 â - âb,f,I,K2. ðâ¦fâ¦ â â¬[b, f] L2 â K2.â{I} â - â¨â¨ ââK1. K1 â« K2 & â¬[b, f] L1 â K1.â{I} - | ââK1,W,V. K1 â« K2 & â¬[b, f] L1 â K1.ââW.V & I = BPair Abst W - | ââJ1,J2,K1,V. K1 â« K2 & â¬[b, f] L1 â K1.â{J1}V & I = BUnit J2. -#L1 #L2 #H elim H -L1 -L2 -[ #b #f #I #K2 #_ #H - elim (drops_inv_atom1 â¦ H) -H #H destruct -| #J #L1 #L2 | #L1 #L2 #V #W | #I1 #I2 #L1 #L2 #V1 -] -#HL12 #IH #b #f #I #K2 #Hf #H -elim (drops_inv_bind1_isuni â¦ Hf H) -Hf -H -[1,3,5: #Hf #H destruct -IH - /4 width=6 by drops_refl, or3_intro0, or3_intro1, or3_intro2, ex3_4_intro, ex3_3_intro, ex2_intro/ -|2,4,6: #g #Hg #HLK2 #H destruct -HL12 - elim (IH â¦ Hg HLK2) -IH -Hg -HLK2 * - /4 width=6 by drops_drop, or3_intro0, or3_intro1, or3_intro2, ex3_4_intro, ex3_3_intro, ex2_intro/ -] -qed-. - -(* Basic_2A1: includes: lsubr_fwd_drop2_abbr ) -lemma lsubr_fwd_drops2_abbr: âL1,L2. L1 â« L2 â - âb,f,K2,V. ðâ¦fâ¦ â â¬[b, f] L2 â K2.âV â - ââK1. K1 â« K2 & â¬[b, f] L1 â K1.âV. -#L1 #L2 #HL12 #b #f #K2 #V #Hf #HLK2 -elim (lsubr_fwd_drops2_bind â¦ HL12 â¦ Hf HLK2) -L2 -Hf // -[ #K1 #W #V #_ #_ #H destruct -| #I1 #I2 #K1 #V #_ #_ #H destruct -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsubr_length.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsubr_length.ma deleted file mode 100644 index db04cd8fa..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsubr_length.ma +++ /dev/null @@ -1,24 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/lenv_length.ma". -include "basic_2/static/lsubr.ma". - -(* RESTRICTED REFINEMENT FOR LOCAL ENVIRONMENTS *****************************) - -(* Forward lemmas with length for local environments ) - -lemma lsubr_fwd_length: âL1,L2. L1 â« L2 â |L2| = |L1|. -#L1 #L2 #H elim H -L1 -L2 normalize // -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsubr_lsubr.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsubr_lsubr.ma deleted file mode 100644 index ac9691aa6..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsubr_lsubr.ma +++ /dev/null @@ -1,32 +0,0 @@ -(**************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/static/lsubr.ma". - -(* RESTRICTED REFINEMENT FOR LOCAL ENVIRONMENTS *****************************) - -(* Main properties **********************************************************) - -theorem lsubr_trans: Transitive â¦ lsubr. -#L1 #L #H elim H -L1 -L // -[ #I #L1 #L #_ #IH #X #H elim (lsubr_inv_bind1 â¦ H) -H * - [ #L2 #HL2 #H | #L2 #V #W #HL2 #H1 #H2 | #I1 #I2 #L2 #V #Hl2 #H1 #H2 ] - destruct /3 width=1 by lsubr_bind, lsubr_beta, lsubr_unit/ -| #L1 #L #V #W #_ #IH #X #H elim (lsubr_inv_abst1 â¦ H) -H * - [ #L2 #HL2 #H | #I #L2 #HL2 #H ] - destruct /3 width=1 by lsubr_beta, lsubr_unit/ -| #I1 #I2 #L1 #L #V #_ #IH #X #H elim (lsubr_inv_unit1 â¦ H) -H - /4 width=1 by lsubr_unit/ -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/rdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/static/rdeq.ma deleted file mode 100644 index efbd69ae1..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/rdeq.ma +++ /dev/null @@ -1,194 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/relations/stareqsn_5.ma". -include "basic_2/syntax/tdeq_ext.ma". -include "basic_2/static/rex.ma". - -(* DEGREE-BASED EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES ******) - -definition rdeq (h) (o): relation3 term lenv lenv â - rex (cdeq h o). - -interpretation - "degree-based equivalence on referred entries (local environment)" - 'StarEqSn h o T L1 L2 = (rdeq h o T L1 L2). - -interpretation - "degree-based ranged equivalence (local environment)" - 'StarEqSn h o f L1 L2 = (sex (cdeq_ext h o) cfull f L1 L2). - -(* Basic properties ***********************************************************) - -lemma frees_tdeq_conf_rdeq (h) (o): âf,L1,T1. L1 â¢ ðâ¦T1â¦ â f â âT2. T1 â[h, o] T2 â - âL2. L1 â[h, o, f] L2 â L2 â¢ ðâ¦T2â¦ â f. -#h #o #f #L1 #T1 #H elim H -f -L1 -T1 -[ #f #L1 #s1 #Hf #X #H1 #L2 #_ - elim (tdeq_inv_sort1 â¦ H1) -H1 #s2 #d #_ #_ #H destruct - /2 width=3 by frees_sort/ -| #f #i #Hf #X #H1 - >(tdeq_inv_lref1 â¦ H1) -X #Y #H2 - >(sex_inv_atom1 â¦ H2) -Y - /2 width=1 by frees_atom/ -| #f #I #L1 #V1 #_ #IH #X #H1 - >(tdeq_inv_lref1 â¦ H1) -X #Y #H2 - elim (sex_inv_next1 â¦ H2) -H2 #Z #L2 #HL12 #HZ #H destruct - elim (ext2_inv_pair_sn â¦ HZ) -HZ #V2 #HV12 #H destruct - /3 width=1 by frees_pair/ -| #f #I #L1 #Hf #X #H1 - >(tdeq_inv_lref1 â¦ H1) -X #Y #H2 - elim (sex_inv_next1 â¦ H2) -H2 #Z #L2 #_ #HZ #H destruct - >(ext2_inv_unit_sn â¦ HZ) -Z /2 width=1 by frees_unit/ -| #f #I #L1 #i #_ #IH #X #H1 - >(tdeq_inv_lref1 â¦ H1) -X #Y #H2 - elim (sex_inv_push1 â¦ H2) -H2 #J #L2 #HL12 #_ #H destruct - /3 width=1 by frees_lref/ -| #f #L1 #l #Hf #X #H1 #L2 #_ - >(tdeq_inv_gref1 â¦ H1) -X /2 width=1 by frees_gref/ -| #f1V #f1T #f1 #p #I #L1 #V1 #T1 #_ #_ #Hf1 #IHV #IHT #X #H1 - elim (tdeq_inv_pair1 â¦ H1) -H1 #V2 #T2 #HV12 #HT12 #H1 #L2 #HL12 destruct - /6 width=5 by frees_bind, sex_inv_tl, ext2_pair, sle_sex_trans, sor_inv_sle_dx, sor_inv_sle_sn/ -| #f1V #f1T #f1 #I #L1 #V1 #T1 #_ #_ #Hf1 #IHV #IHT #X #H1 - elim (tdeq_inv_pair1 â¦ H1) -H1 #V2 #T2 #HV12 #HT12 #H1 #L2 #HL12 destruct - /5 width=5 by frees_flat, sle_sex_trans, sor_inv_sle_dx, sor_inv_sle_sn/ -] -qed-. - -lemma frees_tdeq_conf (h) (o): âf,L,T1. L â¢ ðâ¦T1â¦ â f â - âT2. T1 â[h, o] T2 â L â¢ ðâ¦T2â¦ â f. -/4 width=7 by frees_tdeq_conf_rdeq, sex_refl, ext2_refl/ qed-. - -lemma frees_rdeq_conf (h) (o): âf,L1,T. L1 â¢ ðâ¦Tâ¦ â f â - âL2. L1 â[h, o, f] L2 â L2 â¢ ðâ¦Tâ¦ â f. -/2 width=7 by frees_tdeq_conf_rdeq, tdeq_refl/ qed-. - -lemma tdeq_rex_conf (R) (h) (o): s_r_confluent1 â¦ (cdeq h o) (rex R). -#R #h #o #L1 #T1 #T2 #HT12 #L2 * -/3 width=5 by frees_tdeq_conf, ex2_intro/ -qed-. - -lemma tdeq_rex_div (R) (h) (o): âT1,T2. T1 â[h, o] T2 â - âL1,L2. L1 âª¤[R, T2] L2 â L1 âª¤[R, T1] L2. -/3 width=5 by tdeq_rex_conf, tdeq_sym/ qed-. - -lemma tdeq_rdeq_conf (h) (o): s_r_confluent1 â¦ (cdeq h o) (rdeq h o). -/2 width=5 by tdeq_rex_conf/ qed-. - -lemma tdeq_rdeq_div (h) (o): âT1,T2. T1 â[h, o] T2 â - âL1,L2. L1 â[h, o, T2] L2 â L1 â[h, o, T1] L2. -/2 width=5 by tdeq_rex_div/ qed-. - -lemma rdeq_atom (h) (o): âI. â â[h, o, âª{I}] â. -/2 width=1 by rex_atom/ qed. - -lemma rdeq_sort (h) (o): âI1,I2,L1,L2,s. - L1 â[h, o, âs] L2 â L1.â{I1} â[h, o, âs] L2.â{I2}. -/2 width=1 by rex_sort/ qed. - -lemma rdeq_pair (h) (o): âI,L1,L2,V1,V2. L1 â[h, o, V1] L2 â V1 â[h, o] V2 â - L1.â{I}V1 â[h, o, #0] L2.â{I}V2. -/2 width=1 by rex_pair/ qed. -(* -lemma rdeq_unit (h) (o): âf,I,L1,L2. ðâ¦fâ¦ â L1 âª¤[cdeq_ext h o, cfull, f] L2 â - L1.â¤{I} â[h, o, #0] L2.â¤{I}. -/2 width=3 by rex_unit/ qed. -) -lemma rdeq_lref (h) (o): âI1,I2,L1,L2,i. - L1 â[h, o, #i] L2 â L1.â{I1} â[h, o, #âi] L2.â{I2}. -/2 width=1 by rex_lref/ qed. - -lemma rdeq_gref (h) (o): âI1,I2,L1,L2,l. - L1 â[h, o, Â§l] L2 â L1.â{I1} â[h, o, Â§l] L2.â{I2}. -/2 width=1 by rex_gref/ qed. - -lemma rdeq_bind_repl_dx (h) (o): âI,I1,L1,L2.âT:term. - L1.â{I} â[h, o, T] L2.â{I1} â - âI2. I â[h, o] I2 â - L1.â{I} â[h, o, T] L2.â{I2}. -/2 width=2 by rex_bind_repl_dx/ qed-. - -( Basic inversion lemmas ***************************************************) - -lemma rdeq_inv_atom_sn (h) (o): âY2. âT:term. â â[h, o, T] Y2 â Y2 = â. -/2 width=3 by rex_inv_atom_sn/ qed-. - -lemma rdeq_inv_atom_dx (h) (o): âY1. âT:term. Y1 â[h, o, T] â â Y1 = â. -/2 width=3 by rex_inv_atom_dx/ qed-. -(* -lemma rdeq_inv_zero (h) (o): âY1,Y2. Y1 â[h, o, #0] Y2 â - â¨â¨ â§â§ Y1 = â & Y2 = â - | ââI,L1,L2,V1,V2. L1 â[h, o, V1] L2 & V1 â[h, o] V2 & - Y1 = L1.â{I}V1 & Y2 = L2.â{I}V2 - | ââf,I,L1,L2. ðâ¦fâ¦ & L1 âª¤[cdeq_ext h o, cfull, f] L2 & - Y1 = L1.â¤{I} & Y2 = L2.â¤{I}. -#h #o #Y1 #Y2 #H elim (rex_inv_zero â¦ H) -H * -/3 width=9 by or3_intro0, or3_intro1, or3_intro2, ex4_5_intro, ex4_4_intro, conj/ -qed-. -) -lemma rdeq_inv_lref (h) (o): âY1,Y2,i. Y1 â[h, o, #âi] Y2 â - â¨â¨ â§â§ Y1 = â & Y2 = â - | ââI1,I2,L1,L2. L1 â[h, o, #i] L2 & - Y1 = L1.â{I1} & Y2 = L2.â{I2}. -/2 width=1 by rex_inv_lref/ qed-. - -( Basic_2A1: uses: lleq_inv_bind lleq_inv_bind_O ) -lemma rdeq_inv_bind (h) (o): âp,I,L1,L2,V,T. L1 â[h, o, â{p,I}V.T] L2 â - â§â§ L1 â[h, o, V] L2 & L1.â{I}V â[h, o, T] L2.â{I}V. -/2 width=2 by rex_inv_bind/ qed-. - -( Basic_2A1: uses: lleq_inv_flat ) -lemma rdeq_inv_flat (h) (o): âI,L1,L2,V,T. L1 â[h, o, â{I}V.T] L2 â - â§â§ L1 â[h, o, V] L2 & L1 â[h, o, T] L2. -/2 width=2 by rex_inv_flat/ qed-. - -( Advanced inversion lemmas ************************************************) - -lemma rdeq_inv_zero_pair_sn (h) (o): âI,Y2,L1,V1. L1.â{I}V1 â[h, o, #0] Y2 â - ââL2,V2. L1 â[h, o, V1] L2 & V1 â[h, o] V2 & Y2 = L2.â{I}V2. -/2 width=1 by rex_inv_zero_pair_sn/ qed-. - -lemma rdeq_inv_zero_pair_dx (h) (o): âI,Y1,L2,V2. Y1 â[h, o, #0] L2.â{I}V2 â - ââL1,V1. L1 â[h, o, V1] L2 & V1 â[h, o] V2 & Y1 = L1.â{I}V1. -/2 width=1 by rex_inv_zero_pair_dx/ qed-. - -lemma rdeq_inv_lref_bind_sn (h) (o): âI1,Y2,L1,i. L1.â{I1} â[h, o, #âi] Y2 â - ââI2,L2. L1 â[h, o, #i] L2 & Y2 = L2.â{I2}. -/2 width=2 by rex_inv_lref_bind_sn/ qed-. - -lemma rdeq_inv_lref_bind_dx (h) (o): âI2,Y1,L2,i. Y1 â[h, o, #âi] L2.â{I2} â - ââI1,L1. L1 â[h, o, #i] L2 & Y1 = L1.â{I1}. -/2 width=2 by rex_inv_lref_bind_dx/ qed-. - -(* Basic forward lemmas *****************************************************) - -lemma rdeq_fwd_zero_pair (h) (o): âI,K1,K2,V1,V2. - K1.â{I}V1 â[h, o, #0] K2.â{I}V2 â K1 â[h, o, V1] K2. -/2 width=3 by rex_fwd_zero_pair/ qed-. - -(* Basic_2A1: uses: lleq_fwd_bind_sn lleq_fwd_flat_sn ) -lemma rdeq_fwd_pair_sn (h) (o): âI,L1,L2,V,T. L1 â[h, o, â¡{I}V.T] L2 â L1 â[h, o, V] L2. -/2 width=3 by rex_fwd_pair_sn/ qed-. - -( Basic_2A1: uses: lleq_fwd_bind_dx lleq_fwd_bind_O_dx ) -lemma rdeq_fwd_bind_dx (h) (o): âp,I,L1,L2,V,T. - L1 â[h, o, â{p,I}V.T] L2 â L1.â{I}V â[h, o, T] L2.â{I}V. -/2 width=2 by rex_fwd_bind_dx/ qed-. - -( Basic_2A1: uses: lleq_fwd_flat_dx *) -lemma rdeq_fwd_flat_dx (h) (o): âI,L1,L2,V,T. L1 â[h, o, â{I}V.T] L2 â L1 â[h, o, T] L2. -/2 width=3 by rex_fwd_flat_dx/ qed-. - -lemma rdeq_fwd_dx (h) (o): âI2,L1,K2. âT:term. L1 â[h, o, T] K2.â{I2} â - ââI1,K1. L1 = K1.â{I1}. -/2 width=5 by rex_fwd_dx/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_drops.ma deleted file mode 100644 index 1cff3b95c..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_drops.ma +++ /dev/null @@ -1,47 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/relocation/lifts_tdeq.ma". -include "basic_2/static/rex_drops.ma". -include "basic_2/static/rdeq.ma". - -(* DEGREE-BASED EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES ******) - -(* Properties with generic slicing for local environments *******************) - -lemma rdeq_lifts_sn: âh,o. f_dedropable_sn (cdeq h o). -/3 width=5 by rex_liftable_dedropable_sn, tdeq_lifts_sn/ qed-. - -(* Inversion lemmas with generic slicing for local environments *************) - -lemma rdeq_inv_lifts_sn: âh,o. f_dropable_sn (cdeq h o). -/2 width=5 by rex_dropable_sn/ qed-. - -(* Note: missing in basic_2A1 ) -lemma rdeq_inv_lifts_dx: âh,o. f_dropable_dx (cdeq h o). -/2 width=5 by rex_dropable_dx/ qed-. - -( Basic_2A1: uses: lleq_inv_lift_le lleq_inv_lift_be lleq_inv_lift_ge ) -lemma rdeq_inv_lifts_bi: âh,o,L1,L2,U. L1 â[h, o, U] L2 â âb,f. ðâ¦fâ¦ â - âK1,K2. â¬[b, f] L1 â K1 â â¬[b, f] L2 â K2 â - âT. â¬[f] T â U â K1 â[h, o, T] K2. -/2 width=10 by rex_inv_lifts_bi/ qed-. - -lemma rdeq_inv_lref_pair_sn: âh,o,L1,L2,i. L1 â[h, o, #i] L2 â âI,K1,V1. â¬[i] L1 â K1.â{I}V1 â - ââK2,V2. â¬[i] L2 â K2.â{I}V2 & K1 â[h, o, V1] K2 & V1 â[h, o] V2. -/2 width=3 by rex_inv_lref_pair_sn/ qed-. - -lemma rdeq_inv_lref_pair_dx: âh,o,L1,L2,i. L1 â[h, o, #i] L2 â âI,K2,V2. â¬[i] L2 â K2.â{I}V2 â - ââK1,V1. â¬[i] L1 â K1.â{I}V1 & K1 â[h, o, V1] K2 & V1 â[h, o] V2. -/2 width=3 by rex_inv_lref_pair_dx/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_fqup.ma b/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_fqup.ma deleted file mode 100644 index 5ee09e1c8..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_fqup.ma +++ /dev/null @@ -1,39 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/static/rex_fqup.ma". -include "basic_2/static/rdeq.ma". - -(* DEGREE-BASED EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES ******) - -(* Advanced properties ******************************************************) - -lemma rdeq_refl: âh,o,T. reflexive â¦ (rdeq h o T). -/2 width=1 by rex_refl/ qed. - -lemma rdeq_pair_refl: âh,o,V1,V2. V1 â[h, o] V2 â - âI,L. âT:term. L.â{I}V1 â[h, o, T] L.â{I}V2. -/2 width=1 by rex_pair_refl/ qed. - -(* Advanced inversion lemmas ************************************************) - -lemma rdeq_inv_bind_void: âh,o,p,I,L1,L2,V,T. L1 â[h, o, â{p,I}V.T] L2 â - L1 â[h, o, V] L2 â§ L1.â§ â[h, o, T] L2.â§. -/2 width=3 by rex_inv_bind_void/ qed-. - -(* Advanced forward lemmas ) - -lemma rdeq_fwd_bind_dx_void: âh,o,p,I,L1,L2,V,T. - L1 â[h, o, â{p,I}V.T] L2 â L1.â§ â[h, o, T] L2.â§. -/2 width=4 by rex_fwd_bind_dx_void/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_fqus.ma b/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_fqus.ma deleted file mode 100644 index 8fe8c8f89..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_fqus.ma +++ /dev/null @@ -1,156 +0,0 @@ -(************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/s_computation/fqus_fqup.ma". -include "basic_2/static/rdeq_drops.ma". -include "basic_2/static/rdeq_fqup.ma". -include "basic_2/static/rdeq_rdeq.ma". - -(* DEGREE-BASED EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES ******) - -(* Properties with extended structural successor for closures ***************) - -lemma fqu_tdeq_conf: âh,o,b,G1,G2,L1,L2,U1,T1. â¦G1, L1, U1â¦ â[b] â¦G2, L2, T1â¦ â - âU2. U1 â[h, o] U2 â - ââL,T2. â¦G1, L1, U2â¦ â[b] â¦G2, L, T2â¦ & L2 â[h, o, T1] L & T1 â[h, o] T2. -#h #o #b #G1 #G2 #L1 #L2 #U1 #T1 #H elim H -G1 -G2 -L1 -L2 -U1 -T1 -[ #I #G #L #W #X #H >(tdeq_inv_lref1 â¦ H) -X - /2 width=5 by fqu_lref_O, ex3_2_intro/ -| #I #G #L #W1 #U1 #X #H - elim (tdeq_inv_pair1 â¦ H) -H #W2 #U2 #HW12 #_ #H destruct - /2 width=5 by fqu_pair_sn, ex3_2_intro/ -| #p #I #G #L #W1 #U1 #X #H - elim (tdeq_inv_pair1 â¦ H) -H #W2 #U2 #HW12 #HU12 #H destruct - /3 width=5 by rdeq_pair_refl, fqu_bind_dx, ex3_2_intro/ -| #p #I #G #L #W1 #U1 #Hb #X #H - elim (tdeq_inv_pair1 â¦ H) -H #W2 #U2 #HW12 #HU12 #H destruct - /3 width=5 by fqu_clear, ex3_2_intro/ -| #I #G #L #W1 #U1 #X #H - elim (tdeq_inv_pair1 â¦ H) -H #W2 #U2 #_ #HU12 #H destruct - /2 width=5 by fqu_flat_dx, ex3_2_intro/ -| #I #G #L #T1 #U1 #HTU1 #U2 #HU12 - elim (tdeq_inv_lifts_sn â¦ HU12 â¦ HTU1) -U1 - /3 width=5 by fqu_drop, ex3_2_intro/ -] -qed-. - -lemma tdeq_fqu_trans: âh,o,b,G1,G2,L1,L2,U1,T1. â¦G1, L1, U1â¦ â[b] â¦G2, L2, T1â¦ â - âU2. U2 â[h, o] U1 â - ââL,T2. â¦G1, L1, U2â¦ â[b] â¦G2, L, T2â¦ & T2 â[h, o] T1 & L â[h, o, T1] L2. -#h #o #b #G1 #G2 #L1 #L2 #U1 #T1 #H12 #U2 #HU21 -elim (fqu_tdeq_conf â¦ o â¦ H12 U2) -H12 -/3 width=5 by rdeq_sym, tdeq_sym, ex3_2_intro/ -qed-. - -(* Basic_2A1: uses: lleq_fqu_trans ) -lemma rdeq_fqu_trans: âh,o,b,G1,G2,L2,K2,T,U. â¦G1, L2, Tâ¦ â[b] â¦G2, K2, Uâ¦ â - âL1. L1 â[h, o, T] L2 â - ââK1,U0. â¦G1, L1, Tâ¦ â[b] â¦G2, K1, U0â¦ & U0 â[h, o] U & K1 â[h, o, U] K2. -#h #o #b #G1 #G2 #L2 #K2 #T #U #H elim H -G1 -G2 -L2 -K2 -T -U -[ #I #G #L2 #V2 #L1 #H elim (rdeq_inv_zero_pair_dx â¦ H) -H - #K1 #V1 #HV1 #HV12 #H destruct - /3 width=7 by tdeq_rdeq_conf, fqu_lref_O, ex3_2_intro/ -| [ #p ] #I #G #L2 #V #T #L1 #H - [ elim (rdeq_inv_bind â¦ H) - | elim (rdeq_inv_flat â¦ H) - ] -H - /2 width=5 by fqu_pair_sn, ex3_2_intro/ -| #p #I #G #L2 #V #T #L1 #H elim (rdeq_inv_bind â¦ H) -H - /2 width=5 by fqu_bind_dx, ex3_2_intro/ -| #p #I #G #L2 #V #T #Hb #L1 #H elim (rdeq_inv_bind_void â¦ H) -H - /3 width=5 by fqu_clear, ex3_2_intro/ -| #I #G #L2 #V #T #L1 #H elim (rdeq_inv_flat â¦ H) -H - /2 width=5 by fqu_flat_dx, ex3_2_intro/ -| #I #G #L2 #T #U #HTU #Y #HU - elim (rdeq_fwd_dx â¦ HU) #L1 #V1 #H destruct - /5 width=14 by rdeq_inv_lifts_bi, fqu_drop, drops_refl, drops_drop, ex3_2_intro/ -] -qed-. - -(* Properties with optional structural successor for closures ***************) - -lemma tdeq_fquq_trans: âh,o,b,G1,G2,L1,L2,U1,T1. â¦G1, L1, U1â¦ ââ¸®[b] â¦G2, L2, T1â¦ â - âU2. U2 â[h, o] U1 â - ââL,T2. â¦G1, L1, U2â¦ ââ¸®[b] â¦G2, L, T2â¦ & T2 â[h, o] T1 & L â[h, o, T1] L2. -#h #o #b #G1 #G2 #L1 #L2 #U1 #T1 #H elim H -H -[ #H #U2 #HU21 elim (tdeq_fqu_trans â¦ H â¦ HU21) -U1 - /3 width=5 by fqu_fquq, ex3_2_intro/ -| * #HG #HL #HT destruct /2 width=5 by ex3_2_intro/ -] -qed-. - -(* Basic_2A1: was just: lleq_fquq_trans ) -lemma rdeq_fquq_trans: âh,o,b,G1,G2,L2,K2,T,U. â¦G1, L2, Tâ¦ ââ¸®[b] â¦G2, K2, Uâ¦ â - âL1. L1 â[h, o, T] L2 â - ââK1,U0. â¦G1, L1, Tâ¦ ââ¸®[b] â¦G2, K1, U0â¦ & U0 â[h, o] U & K1 â[h, o, U] K2. -#h #o #b #G1 #G2 #L2 #K2 #T #U #H elim H -H -[ #H #L1 #HL12 elim (rdeq_fqu_trans â¦ H â¦ HL12) -L2 /3 width=5 by fqu_fquq, ex3_2_intro/ -| #HG #HL #HT destruct /2 width=5 by ex3_2_intro/ -] -qed-. - -(* Properties with plus-iterated structural successor for closures **********) - -(* Basic_2A1: was just: lleq_fqup_trans *) -lemma rdeq_fqup_trans: âh,o,b,G1,G2,L2,K2,T,U. â¦G1, L2, Tâ¦ â+[b] â¦G2, K2, Uâ¦ â - âL1. L1 â[h, o, T] L2 â - ââK1,U0. â¦G1, L1, Tâ¦ â+[b] â¦G2, K1, U0â¦ & U0 â[h, o] U & K1 â[h, o, U] K2. -#h #o #b #G1 #G2 #L2 #K2 #T #U #H @(fqup_ind â¦ H) -G2 -K2 -U -[ #G2 #K2 #U #HTU #L1 #HL12 elim (rdeq_fqu_trans â¦ HTU â¦ HL12) -L2 - /3 width=5 by fqu_fqup, ex3_2_intro/ -| #G #G2 #K #K2 #U #U2 #_ #HU2 #IHTU #L1 #HL12 - elim (IHTU â¦ HL12) -L2 #K0 #U0 #HTU #HU0 #HK0 - elim (rdeq_fqu_trans â¦ HU2 â¦ HK0) -K #K1 #U1 #HU1 #HU12 #HK12 - elim (tdeq_fqu_trans â¦ HU1 â¦ HU0) -U #K3 #U3 #HU03 #HU31 #HK31 - @(ex3_2_intro â¦ K3 U3) (**) (* full auto too slow ) - /3 width=5 by rdeq_trans, tdeq_rdeq_conf, fqup_strap1, tdeq_trans/ -] -qed-. - -lemma tdeq_fqup_trans: âh,o,b,G1,G2,L1,L2,U1,T1. â¦G1, L1, U1â¦ â+[b] â¦G2, L2, T1â¦ â - âU2. U2 â[h, o] U1 â - ââL,T2. â¦G1, L1, U2â¦ â+[b] â¦G2, L, T2â¦ & T2 â[h, o] T1 & L â[h, o, T1] L2. -#h #o #b #G1 #G2 #L1 #L2 #U1 #T1 #H @(fqup_ind_dx â¦ H) -G1 -L1 -U1 -[ #G1 #L1 #U1 #H #U2 #HU21 elim (tdeq_fqu_trans â¦ H â¦ HU21) -U1 - /3 width=5 by fqu_fqup, ex3_2_intro/ -| #G1 #G #L1 #L #U1 #U #H #_ #IH #U2 #HU21 - elim (tdeq_fqu_trans â¦ H â¦ HU21) -U1 #L0 #T #H1 #HTU #HL0 - lapply (tdeq_rdeq_div â¦ HTU â¦ HL0) -HL0 #HL0 - elim (IH â¦ HTU) -U #K2 #U1 #H2 #HUT1 #HKL2 - elim (rdeq_fqup_trans â¦ H2 â¦ HL0) -L #K #U #H2 #HU1 #HK2 - lapply (tdeq_rdeq_conf â¦ HUT1 â¦ HK2) -HK2 #HK2 - /3 width=7 by rdeq_trans, fqup_strap2, tdeq_trans, ex3_2_intro/ -] -qed-. - -( Properties with star-iterated structural successor for closures **********) - -lemma tdeq_fqus_trans: âh,o,b,G1,G2,L1,L2,U1,T1. â¦G1, L1, U1â¦ â[b] â¦G2, L2, T1â¦ â - âU2. U2 â[h, o] U1 â - ââL,T2. â¦G1, L1, U2â¦ â[b] â¦G2, L, T2â¦ & T2 â[h, o] T1 & L â[h, o, T1] L2. -#h #o #b #G1 #G2 #L1 #L2 #U1 #T1 #H #U2 #HU21 elim(fqus_inv_fqup â¦ H) -H -[ #H elim (tdeq_fqup_trans â¦ H â¦ HU21) -U1 /3 width=5 by fqup_fqus, ex3_2_intro/ -| * #HG #HL #HT destruct /2 width=5 by ex3_2_intro/ -] -qed-. - -(* Basic_2A1: was just: lleq_fqus_trans ) -lemma rdeq_fqus_trans: âh,o,b,G1,G2,L2,K2,T,U. â¦G1, L2, Tâ¦ â[b] â¦G2, K2, Uâ¦ â - âL1. L1 â[h, o, T] L2 â - ââK1,U0. â¦G1, L1, Tâ¦ â[b] â¦G2, K1, U0â¦ & U0 â[h, o] U & K1 â[h, o, U] K2. -#h #o #b #G1 #G2 #L2 #K2 #T #U #H #L1 #HL12 elim(fqus_inv_fqup â¦ H) -H -[ #H elim (rdeq_fqup_trans â¦ H â¦ HL12) -L2 /3 width=5 by fqup_fqus, ex3_2_intro/ -| #HG #HL #HT destruct /2 width=5 by ex3_2_intro/ -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_length.ma b/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_length.ma deleted file mode 100644 index a877646c9..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_length.ma +++ /dev/null @@ -1,55 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/relocation/lifts_tdeq.ma". -include "basic_2/static/rex_length.ma". -include "basic_2/static/rex_fsle.ma". -include "basic_2/static/rdeq.ma". - -(* DEGREE-BASED EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES ******) - -(* Advanved properties with free variables inclusion ************************) - -lemma rdeq_fsge_comp (h) (o): rex_fsge_compatible (cdeq h o). -#h #o #L1 #L2 #T * #f1 #Hf1 #HL12 -lapply (frees_rdeq_conf h o â¦ Hf1 â¦ HL12) -lapply (sex_fwd_length â¦ HL12) -/3 width=8 by lveq_length_eq, ex4_4_intro/ (**) (* full auto fails ) -qed-. - -( Properties with length for local environments ****************************) - -(* Basic_2A1: uses: lleq_sort ) -lemma rdeq_sort_length (h) (o): âL1,L2. |L1| = |L2| â âs. L1 â[h, o, âs] L2. -/2 width=1 by rex_sort_length/ qed. - -( Basic_2A1: uses: lleq_gref ) -lemma rdeq_gref_length (h) (o): âL1,L2. |L1| = |L2| â âl. L1 â[h, o, Â§l] L2. -/2 width=1 by rex_gref_length/ qed. - -lemma rdeq_unit_length (h) (o): âL1,L2. |L1| = |L2| â - âI. L1.â¤{I} â[h, o, #0] L2.â¤{I}. -/2 width=1 by rex_unit_length/ qed. - -( Basic_2A1: uses: lleq_lift_le lleq_lift_ge ) -lemma rdeq_lifts_bi (h) (o): âL1,L2. |L1| = |L2| â âK1,K2,T. K1 â[h, o, T] K2 â - âb,f. â¬[b, f] L1 â K1 â â¬[b, f] L2 â K2 â - âU. â¬[f] T â U â L1 â[h, o, U] L2. -/3 width=9 by rex_lifts_bi, tdeq_lifts_sn/ qed-. - -(* Forward lemmas with length for local environments ************************) - -(* Basic_2A1: lleq_fwd_length *) -lemma rdeq_fwd_length (h) (o): âL1,L2. âT:term. L1 â[h, o, T] L2 â |L1| = |L2|. -/2 width=3 by rex_fwd_length/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_rdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_rdeq.ma deleted file mode 100644 index 6bd574d2b..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_rdeq.ma +++ /dev/null @@ -1,100 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/ext2_ext2.ma". -include "basic_2/syntax/tdeq_tdeq.ma". -include "basic_2/static/rdeq_length.ma". - -(* DEGREE-BASED EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES ******) - -(* Advanced properties ******************************************************) - -(* Basic_2A1: uses: lleq_sym ) -lemma rdeq_sym: âh,o,T. symmetric â¦ (rdeq h o T). -/3 width=3 by rdeq_fsge_comp, rex_sym, tdeq_sym/ qed-. - -( Basic_2A1: uses: lleq_dec ) -lemma rdeq_dec: âh,o,L1,L2. âT:term. Decidable (L1 â[h, o, T] L2). -/3 width=1 by rex_dec, tdeq_dec/ qed-. - -( Main properties **********************************************************) - -(* Basic_2A1: uses: lleq_bind lleq_bind_O ) -theorem rdeq_bind: âh,o,p,I,L1,L2,V1,V2,T. - L1 â[h, o, V1] L2 â L1.â{I}V1 â[h, o, T] L2.â{I}V2 â - L1 â[h, o, â{p,I}V1.T] L2. -/2 width=2 by rex_bind/ qed. - -( Basic_2A1: uses: lleq_flat ) -theorem rdeq_flat: âh,o,I,L1,L2,V,T. L1 â[h, o, V] L2 â L1 â[h, o, T] L2 â - L1 â[h, o, â{I}V.T] L2. -/2 width=1 by rex_flat/ qed. - -theorem rdeq_bind_void: âh,o,p,I,L1,L2,V,T. - L1 â[h, o, V] L2 â L1.â§ â[h, o, T] L2.â§ â - L1 â[h, o, â{p,I}V.T] L2. -/2 width=1 by rex_bind_void/ qed. - -( Basic_2A1: uses: lleq_trans ) -theorem rdeq_trans: âh,o,T. Transitive â¦ (rdeq h o T). -#h #o #T #L1 #L #f1 #Hf1 #HL1 #L2 * #f2 #Hf2 #HL2 -lapply (frees_tdeq_conf_rdeq â¦ Hf1 T â¦ HL1) // #H0 -lapply (frees_mono â¦ Hf2 â¦ H0) -Hf2 -H0 -/5 width=7 by sex_trans, sex_eq_repl_back, tdeq_trans, ext2_trans, ex2_intro/ -qed-. - -(* Basic_2A1: uses: lleq_canc_sn ) -theorem rdeq_canc_sn: âh,o,T. left_cancellable â¦ (rdeq h o T). -/3 width=3 by rdeq_trans, rdeq_sym/ qed-. - -( Basic_2A1: uses: lleq_canc_dx ) -theorem rdeq_canc_dx: âh,o,T. right_cancellable â¦ (rdeq h o T). -/3 width=3 by rdeq_trans, rdeq_sym/ qed-. - -theorem rdeq_repl: âh,o,L1,L2. âT:term. L1 â[h, o, T] L2 â - âK1. L1 â[h, o, T] K1 â âK2. L2 â[h, o, T] K2 â K1 â[h, o, T] K2. -/3 width=3 by rdeq_canc_sn, rdeq_trans/ qed-. - -( Negated properties *******************************************************) - -(* Note: auto works with /4 width=8/ so rdeq_canc_sn is preferred **********) -(* Basic_2A1: uses: lleq_nlleq_trans ) -lemma rdeq_rdneq_trans: âh,o.âT:term.âL1,L. L1 â[h, o, T] L â - âL2. (L â[h, o, T] L2 â â¥) â (L1 â[h, o, T] L2 â â¥). -/3 width=3 by rdeq_canc_sn/ qed-. - -( Basic_2A1: uses: nlleq_lleq_div ) -lemma rdneq_rdeq_div: âh,o.âT:term.âL2,L. L2 â[h, o, T] L â - âL1. (L1 â[h, o, T] L â â¥) â (L1 â[h, o, T] L2 â â¥). -/3 width=3 by rdeq_trans/ qed-. - -theorem rdneq_rdeq_canc_dx: âh,o,L1,L. âT:term. (L1 â[h, o, T] L â â¥) â - âL2. L2 â[h, o, T] L â L1 â[h, o, T] L2 â â¥. -/3 width=3 by rdeq_trans/ qed-. - -( Negated inversion lemmas *************************************************) - -(* Basic_2A1: uses: nlleq_inv_bind nlleq_inv_bind_O ) -lemma rdneq_inv_bind: âh,o,p,I,L1,L2,V,T. (L1 â[h, o, â{p,I}V.T] L2 â â¥) â - (L1 â[h, o, V] L2 â â¥) â¨ (L1.â{I}V â[h, o, T] L2.â{I}V â â¥). -/3 width=2 by rnex_inv_bind, tdeq_dec/ qed-. - -( Basic_2A1: uses: nlleq_inv_flat *) -lemma rdneq_inv_flat: âh,o,I,L1,L2,V,T. (L1 â[h, o, â{I}V.T] L2 â â¥) â - (L1 â[h, o, V] L2 â â¥) â¨ (L1 â[h, o, T] L2 â â¥). -/3 width=2 by rnex_inv_flat, tdeq_dec/ qed-. - -lemma rdneq_inv_bind_void: âh,o,p,I,L1,L2,V,T. (L1 â[h, o, â{p,I}V.T] L2 â â¥) â - (L1 â[h, o, V] L2 â â¥) â¨ (L1.â§ â[h, o, T] L2.â§ â â¥). -/3 width=3 by rnex_inv_bind_void, tdeq_dec/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_req.ma b/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_req.ma deleted file mode 100644 index 46ab07b2b..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/rdeq_req.ma +++ /dev/null @@ -1,27 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/static/req_fsle.ma". -include "basic_2/static/rdeq.ma". - -(* DEGREE-BASED EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES ******) - -(* Properties with syntactic equivalence on referred entries ) - -lemma req_rdeq: âh,o,L1,L2. âT:term. L1 â¡[T] L2 â L1 â[h, o, T] L2. -/2 width=3 by rex_co/ qed. - -lemma req_rdeq_trans: âh,o,L1,L. âT:term. L1 â¡[T] L â - âL2. L â[h, o, T] L2 â L1 â[h, o, T] L2. -/2 width=3 by req_rex_trans/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/req.ma b/matita/matita/contribs/lambdadelta/basic_2/static/req.ma deleted file mode 100644 index d01f4ea5d..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/req.ma +++ /dev/null @@ -1,109 +0,0 @@ -(**********************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/relations/ideqsn_3.ma". -include "basic_2/static/rex.ma". - -(* SYNTACTIC EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES *********) - -(* Basic_2A1: was: lleq ) -definition req: relation3 term lenv lenv â - rex ceq. - -interpretation - "syntactic equivalence on referred entries (local environment)" - 'IdEqSn T L1 L2 = (req T L1 L2). - -( Note: "req_transitive R" is equivalent to "rex_transitive ceq R R" ) -( Basic_2A1: uses: lleq_transitive ) -definition req_transitive: predicate (relation3 lenv term term) â - Î»R. âL2,T1,T2. R L2 T1 T2 â âL1. L1 â¡[T1] L2 â R L1 T1 T2. - -( Basic inversion lemmas ***************************************************) - -lemma req_inv_bind: âp,I,L1,L2,V,T. L1 â¡[â{p,I}V.T] L2 â - â§â§ L1 â¡[V] L2 & L1.â{I}V â¡[T] L2.â{I}V. -/2 width=2 by rex_inv_bind/ qed-. - -lemma req_inv_flat: âI,L1,L2,V,T. L1 â¡[â{I}V.T] L2 â - â§â§ L1 â¡[V] L2 & L1 â¡[T] L2. -/2 width=2 by rex_inv_flat/ qed-. - -(* Advanced inversion lemmas ************************************************) - -lemma req_inv_zero_pair_sn: âI,L2,K1,V. K1.â{I}V â¡[#0] L2 â - ââK2. K1 â¡[V] K2 & L2 = K2.â{I}V. -#I #L2 #K1 #V #H -elim (rex_inv_zero_pair_sn â¦ H) -H #K2 #X #HK12 #HX #H destruct -/2 width=3 by ex2_intro/ -qed-. - -lemma req_inv_zero_pair_dx: âI,L1,K2,V. L1 â¡[#0] K2.â{I}V â - ââK1. K1 â¡[V] K2 & L1 = K1.â{I}V. -#I #L1 #K2 #V #H -elim (rex_inv_zero_pair_dx â¦ H) -H #K1 #X #HK12 #HX #H destruct -/2 width=3 by ex2_intro/ -qed-. - -lemma req_inv_lref_bind_sn: âI1,K1,L2,i. K1.â{I1} â¡[#âi] L2 â - ââI2,K2. K1 â¡[#i] K2 & L2 = K2.â{I2}. -/2 width=2 by rex_inv_lref_bind_sn/ qed-. - -lemma req_inv_lref_bind_dx: âI2,K2,L1,i. L1 â¡[#âi] K2.â{I2} â - ââI1,K1. K1 â¡[#i] K2 & L1 = K1.â{I1}. -/2 width=2 by rex_inv_lref_bind_dx/ qed-. - -(* Basic forward lemmas *****************************************************) - -(* Basic_2A1: was: llpx_sn_lrefl ) -( Basic_2A1: this should have been lleq_fwd_llpx_sn ) -lemma req_fwd_rex: âR. c_reflexive â¦ R â - âL1,L2,T. L1 â¡[T] L2 â L1 âª¤[R, T] L2. -#R #HR #L1 #L2 #T #f #Hf #HL12 -/4 width=7 by sex_co, cext2_co, ex2_intro/ -qed-. - -(* Basic_properties *********************************************************) - -lemma frees_req_conf: âf,L1,T. L1 â¢ ðâ¦Tâ¦ â f â - âL2. L1 â¡[T] L2 â L2 â¢ ðâ¦Tâ¦ â f. -#f #L1 #T #H elim H -f -L1 -T -[ /2 width=3 by frees_sort/ -| #f #i #Hf #L2 #H2 - >(rex_inv_atom_sn â¦ H2) -L2 - /2 width=1 by frees_atom/ -| #f #I #L1 #V1 #_ #IH #Y #H2 - elim (req_inv_zero_pair_sn â¦ H2) -H2 #L2 #HL12 #H destruct - /3 width=1 by frees_pair/ -| #f #I #L1 #Hf #Y #H2 - elim (rex_inv_zero_unit_sn â¦ H2) -H2 #g #L2 #_ #_ #H destruct - /2 width=1 by frees_unit/ -| #f #I #L1 #i #_ #IH #Y #H2 - elim (req_inv_lref_bind_sn â¦ H2) -H2 #J #L2 #HL12 #H destruct - /3 width=1 by frees_lref/ -| /2 width=1 by frees_gref/ -| #f1V #f1T #f1 #p #I #L1 #V1 #T1 #_ #_ #Hf1 #IHV #IHT #L2 #H2 - elim (req_inv_bind â¦ H2) -H2 /3 width=5 by frees_bind/ -| #f1V #f1T #f1 #I #L1 #V1 #T1 #_ #_ #Hf1 #IHV #IHT #L2 #H2 - elim (req_inv_flat â¦ H2) -H2 /3 width=5 by frees_flat/ -] -qed-. - -(* Basic_2A1: removed theorems 10: - lleq_ind lleq_fwd_lref - lleq_fwd_drop_sn lleq_fwd_drop_dx - lleq_skip lleq_lref lleq_free - lleq_Y lleq_ge_up lleq_ge - -*) diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/req_fqup.ma b/matita/matita/contribs/lambdadelta/basic_2/static/req_fqup.ma deleted file mode 100644 index 3fe7ad753..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/req_fqup.ma +++ /dev/null @@ -1,24 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/static/rex_fqup.ma". -include "basic_2/static/req.ma". - -(* SYNTACTIC EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES *********) - -(* Advanced properties ******************************************************) - -(* Basic_2A1: was: lleq_refl *) -lemma req_refl: âT. reflexive â¦ (req T). -/2 width=1 by rex_refl/ qed. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/req_fsle.ma b/matita/matita/contribs/lambdadelta/basic_2/static/req_fsle.ma deleted file mode 100644 index 7662395c0..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/req_fsle.ma +++ /dev/null @@ -1,33 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/static/rex_length.ma". -include "basic_2/static/rex_fsle.ma". -include "basic_2/static/req.ma". - -(* SYNTACTIC EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES *********) - -(* Properties with free variables inclusion for restricted closures *********) - -lemma req_fsle_comp: rex_fsle_compatible ceq. -#L1 #L2 #T #HL12 -elim (frees_total L1 T) -/4 width=8 by frees_req_conf, rex_fwd_length, lveq_length_eq, sle_refl, ex4_4_intro/ -qed. - -(* Forward lemmas with free variables inclusion for restricted closures *) - -lemma req_rex_trans: âR. req_transitive R â - âL1,L,T. L1 â¡[T] L â âL2. L âª¤[R, T] L2 â L1 âª¤[R, T] L2. -/4 width=16 by req_fsle_comp, rex_trans_fsle, rex_trans_next/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/rex.ma b/matita/matita/contribs/lambdadelta/basic_2/static/rex.ma deleted file mode 100644 index cc175f08f..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/rex.ma +++ /dev/null @@ -1,320 +0,0 @@ -(**********************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "ground_2/relocation/rtmap_id.ma". -include "basic_2/notation/relations/relation_4.ma". -include "basic_2/syntax/cext2.ma". -include "basic_2/relocation/sex.ma". -include "basic_2/static/frees.ma". - -(* GENERIC EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ****) - -definition rex (R) (T): relation lenv â - Î»L1,L2. ââf. L1 â¢ ðâ¦Tâ¦ â f & L1 âª¤[cext2 R, cfull, f] L2. - -interpretation "generic extension on referred entries (local environment)" - 'Relation R T L1 L2 = (rex R T L1 L2). - -definition R_confluent2_rex: relation4 (relation3 lenv term term) - (relation3 lenv term term) â¦ â - Î»R1,R2,RP1,RP2. - âL0,T0,T1. R1 L0 T0 T1 â âT2. R2 L0 T0 T2 â - âL1. L0 âª¤[RP1, T0] L1 â âL2. L0 âª¤[RP2, T0] L2 â - ââT. R2 L1 T1 T & R1 L2 T2 T. - -definition rex_confluent: relation â¦ â - Î»R1,R2. - âK1,K,V1. K1 âª¤[R1, V1] K â âV. R1 K1 V1 V â - âK2. K âª¤[R2, V] K2 â K âª¤[R2, V1] K2. - -definition rex_transitive: relation3 ? (relation3 ?? term) â¦ â - Î»R1,R2,R3. - âK1,K,V1. K1 âª¤[R1, V1] K â - âV. R1 K1 V1 V â âV2. R2 K V V2 â R3 K1 V1 V2. - -( Basic inversion lemmas ***************************************************) - -lemma rex_inv_atom_sn (R): âY2,T. â âª¤[R, T] Y2 â Y2 = â. -#R #Y2 #T * /2 width=4 by sex_inv_atom1/ -qed-. - -lemma rex_inv_atom_dx (R): âY1,T. Y1 âª¤[R, T] â â Y1 = â. -#R #I #Y1 * /2 width=4 by sex_inv_atom2/ -qed-. - -lemma rex_inv_sort (R): âY1,Y2,s. Y1 âª¤[R, âs] Y2 â - â¨â¨ Y1 = â â§ Y2 = â - | ââI1,I2,L1,L2. L1 âª¤[R, âs] L2 & - Y1 = L1.â{I1} & Y2 = L2.â{I2}. -#R * [ | #Y1 #I1 ] #Y2 #s * #f #H1 #H2 -[ lapply (sex_inv_atom1 â¦ H2) -H2 /3 width=1 by or_introl, conj/ -| lapply (frees_inv_sort â¦ H1) -H1 #Hf - elim (isid_inv_gen â¦ Hf) -Hf #g #Hg #H destruct - elim (sex_inv_push1 â¦ H2) -H2 #I2 #L2 #H12 #_ #H destruct - /5 width=7 by frees_sort, ex3_4_intro, ex2_intro, or_intror/ -] -qed-. - -lemma rex_inv_zero (R): âY1,Y2. Y1 âª¤[R, #0] Y2 â - â¨â¨ Y1 = â â§ Y2 = â - | ââI,L1,L2,V1,V2. L1 âª¤[R, V1] L2 & R L1 V1 V2 & - Y1 = L1.â{I}V1 & Y2 = L2.â{I}V2 - | ââf,I,L1,L2. ðâ¦fâ¦ & L1 âª¤[cext2 R, cfull, f] L2 & - Y1 = L1.â¤{I} & Y2 = L2.â¤{I}. -#R * [ | #Y1 * #I1 [ | #X ] ] #Y2 * #f #H1 #H2 -[ lapply (sex_inv_atom1 â¦ H2) -H2 /3 width=1 by or3_intro0, conj/ -| elim (frees_inv_unit â¦ H1) -H1 #g #HX #H destruct - elim (sex_inv_next1 â¦ H2) -H2 #I2 #L2 #HL12 #H #H2 destruct - >(ext2_inv_unit_sn â¦ H) -H /3 width=8 by or3_intro2, ex4_4_intro/ -| elim (frees_inv_pair â¦ H1) -H1 #g #Hg #H destruct - elim (sex_inv_next1 â¦ H2) -H2 #Z2 #L2 #HL12 #H - elim (ext2_inv_pair_sn â¦ H) -H - /4 width=9 by or3_intro1, ex4_5_intro, ex2_intro/ -] -qed-. - -lemma rex_inv_lref (R): âY1,Y2,i. Y1 âª¤[R, #âi] Y2 â - â¨â¨ Y1 = â â§ Y2 = â - | ââI1,I2,L1,L2. L1 âª¤[R, #i] L2 & - Y1 = L1.â{I1} & Y2 = L2.â{I2}. -#R * [ | #Y1 #I1 ] #Y2 #i * #f #H1 #H2 -[ lapply (sex_inv_atom1 â¦ H2) -H2 /3 width=1 by or_introl, conj/ -| elim (frees_inv_lref â¦ H1) -H1 #g #Hg #H destruct - elim (sex_inv_push1 â¦ H2) -H2 - /4 width=7 by ex3_4_intro, ex2_intro, or_intror/ -] -qed-. - -lemma rex_inv_gref (R): âY1,Y2,l. Y1 âª¤[R, Â§l] Y2 â - â¨â¨ Y1 = â â§ Y2 = â - | ââI1,I2,L1,L2. L1 âª¤[R, Â§l] L2 & - Y1 = L1.â{I1} & Y2 = L2.â{I2}. -#R * [ | #Y1 #I1 ] #Y2 #l * #f #H1 #H2 -[ lapply (sex_inv_atom1 â¦ H2) -H2 /3 width=1 by or_introl, conj/ -| lapply (frees_inv_gref â¦ H1) -H1 #Hf - elim (isid_inv_gen â¦ Hf) -Hf #g #Hg #H destruct - elim (sex_inv_push1 â¦ H2) -H2 #I2 #L2 #H12 #_ #H destruct - /5 width=7 by frees_gref, ex3_4_intro, ex2_intro, or_intror/ -] -qed-. - -(* Basic_2A1: uses: llpx_sn_inv_bind llpx_sn_inv_bind_O ) -lemma rex_inv_bind (R): âp,I,L1,L2,V1,V2,T. L1 âª¤[R, â{p,I}V1.T] L2 â R L1 V1 V2 â - â§â§ L1 âª¤[R, V1] L2 & L1.â{I}V1 âª¤[R, T] L2.â{I}V2. -#R #p #I #L1 #L2 #V1 #V2 #T #f #Hf #HL #HV elim (frees_inv_bind â¦ Hf) -Hf -/6 width=6 by sle_sex_trans, sex_inv_tl, ext2_pair, sor_inv_sle_dx, sor_inv_sle_sn, ex2_intro, conj/ -qed-. - -(* Basic_2A1: uses: llpx_sn_inv_flat ) -lemma rex_inv_flat (R): âI,L1,L2,V,T. L1 âª¤[R, â{I}V.T] L2 â - â§â§ L1 âª¤[R, V] L2 & L1 âª¤[R, T] L2. -#R #I #L1 #L2 #V #T #f #Hf #HL elim (frees_inv_flat â¦ Hf) -Hf -/5 width=6 by sle_sex_trans, sor_inv_sle_dx, sor_inv_sle_sn, ex2_intro, conj/ -qed-. - -(* Advanced inversion lemmas ************************************************) - -lemma rex_inv_sort_bind_sn (R): âI1,K1,L2,s. K1.â{I1} âª¤[R, âs] L2 â - ââI2,K2. K1 âª¤[R, âs] K2 & L2 = K2.â{I2}. -#R #I1 #K1 #L2 #s #H elim (rex_inv_sort â¦ H) -H * -[ #H destruct -| #Z1 #I2 #Y1 #K2 #Hs #H1 #H2 destruct /2 width=4 by ex2_2_intro/ -] -qed-. - -lemma rex_inv_sort_bind_dx (R): âI2,K2,L1,s. L1 âª¤[R, âs] K2.â{I2} â - ââI1,K1. K1 âª¤[R, âs] K2 & L1 = K1.â{I1}. -#R #I2 #K2 #L1 #s #H elim (rex_inv_sort â¦ H) -H * -[ #_ #H destruct -| #I1 #Z2 #K1 #Y2 #Hs #H1 #H2 destruct /2 width=4 by ex2_2_intro/ -] -qed-. - -lemma rex_inv_zero_pair_sn (R): âI,L2,K1,V1. K1.â{I}V1 âª¤[R, #0] L2 â - ââK2,V2. K1 âª¤[R, V1] K2 & R K1 V1 V2 & - L2 = K2.â{I}V2. -#R #I #L2 #K1 #V1 #H elim (rex_inv_zero â¦ H) -H * -[ #H destruct -| #Z #Y1 #K2 #X1 #V2 #HK12 #HV12 #H1 #H2 destruct - /2 width=5 by ex3_2_intro/ -| #f #Z #Y1 #Y2 #_ #_ #H destruct -] -qed-. - -lemma rex_inv_zero_pair_dx (R): âI,L1,K2,V2. L1 âª¤[R, #0] K2.â{I}V2 â - ââK1,V1. K1 âª¤[R, V1] K2 & R K1 V1 V2 & - L1 = K1.â{I}V1. -#R #I #L1 #K2 #V2 #H elim (rex_inv_zero â¦ H) -H * -[ #_ #H destruct -| #Z #K1 #Y2 #V1 #X2 #HK12 #HV12 #H1 #H2 destruct - /2 width=5 by ex3_2_intro/ -| #f #Z #Y1 #Y2 #_ #_ #_ #H destruct -] -qed-. - -lemma rex_inv_zero_unit_sn (R): âI,K1,L2. K1.â¤{I} âª¤[R, #0] L2 â - ââf,K2. ðâ¦fâ¦ & K1 âª¤[cext2 R, cfull, f] K2 & - L2 = K2.â¤{I}. -#R #I #K1 #L2 #H elim (rex_inv_zero â¦ H) -H * -[ #H destruct -| #Z #Y1 #Y2 #X1 #X2 #_ #_ #H destruct -| #f #Z #Y1 #K2 #Hf #HK12 #H1 #H2 destruct /2 width=5 by ex3_2_intro/ -] -qed-. - -lemma rex_inv_zero_unit_dx (R): âI,L1,K2. L1 âª¤[R, #0] K2.â¤{I} â - ââf,K1. ðâ¦fâ¦ & K1 âª¤[cext2 R, cfull, f] K2 & - L1 = K1.â¤{I}. -#R #I #L1 #K2 #H elim (rex_inv_zero â¦ H) -H * -[ #_ #H destruct -| #Z #Y1 #Y2 #X1 #X2 #_ #_ #_ #H destruct -| #f #Z #K1 #Y2 #Hf #HK12 #H1 #H2 destruct /2 width=5 by ex3_2_intro/ -] -qed-. - -lemma rex_inv_lref_bind_sn (R): âI1,K1,L2,i. K1.â{I1} âª¤[R, #âi] L2 â - ââI2,K2. K1 âª¤[R, #i] K2 & L2 = K2.â{I2}. -#R #I1 #K1 #L2 #i #H elim (rex_inv_lref â¦ H) -H * -[ #H destruct -| #Z1 #I2 #Y1 #K2 #Hi #H1 #H2 destruct /2 width=4 by ex2_2_intro/ -] -qed-. - -lemma rex_inv_lref_bind_dx (R): âI2,K2,L1,i. L1 âª¤[R, #âi] K2.â{I2} â - ââI1,K1. K1 âª¤[R, #i] K2 & L1 = K1.â{I1}. -#R #I2 #K2 #L1 #i #H elim (rex_inv_lref â¦ H) -H * -[ #_ #H destruct -| #I1 #Z2 #K1 #Y2 #Hi #H1 #H2 destruct /2 width=4 by ex2_2_intro/ -] -qed-. - -lemma rex_inv_gref_bind_sn (R): âI1,K1,L2,l. K1.â{I1} âª¤[R, Â§l] L2 â - ââI2,K2. K1 âª¤[R, Â§l] K2 & L2 = K2.â{I2}. -#R #I1 #K1 #L2 #l #H elim (rex_inv_gref â¦ H) -H * -[ #H destruct -| #Z1 #I2 #Y1 #K2 #Hl #H1 #H2 destruct /2 width=4 by ex2_2_intro/ -] -qed-. - -lemma rex_inv_gref_bind_dx (R): âI2,K2,L1,l. L1 âª¤[R, Â§l] K2.â{I2} â - ââI1,K1. K1 âª¤[R, Â§l] K2 & L1 = K1.â{I1}. -#R #I2 #K2 #L1 #l #H elim (rex_inv_gref â¦ H) -H * -[ #_ #H destruct -| #I1 #Z2 #K1 #Y2 #Hl #H1 #H2 destruct /2 width=4 by ex2_2_intro/ -] -qed-. - -(* Basic forward lemmas *****************************************************) - -lemma rex_fwd_zero_pair (R): âI,K1,K2,V1,V2. - K1.â{I}V1 âª¤[R, #0] K2.â{I}V2 â K1 âª¤[R, V1] K2. -#R #I #K1 #K2 #V1 #V2 #H -elim (rex_inv_zero_pair_sn â¦ H) -H #Y #X #HK12 #_ #H destruct // -qed-. - -(* Basic_2A1: uses: llpx_sn_fwd_pair_sn llpx_sn_fwd_bind_sn llpx_sn_fwd_flat_sn ) -lemma rex_fwd_pair_sn (R): âI,L1,L2,V,T. L1 âª¤[R, â¡{I}V.T] L2 â L1 âª¤[R, V] L2. -#R [ #p ] #I #L1 #L2 #V #T * #f #Hf #HL -[ elim (frees_inv_bind â¦ Hf) | elim (frees_inv_flat â¦ Hf) ] -Hf -/4 width=6 by sle_sex_trans, sor_inv_sle_sn, ex2_intro/ -qed-. - -(* Basic_2A1: uses: llpx_sn_fwd_bind_dx llpx_sn_fwd_bind_O_dx ) -lemma rex_fwd_bind_dx (R): âp,I,L1,L2,V1,V2,T. L1 âª¤[R, â{p,I}V1.T] L2 â - R L1 V1 V2 â L1.â{I}V1 âª¤[R, T] L2.â{I}V2. -#R #p #I #L1 #L2 #V1 #V2 #T #H #HV elim (rex_inv_bind â¦ H HV) -H -HV // -qed-. - -( Basic_2A1: uses: llpx_sn_fwd_flat_dx ) -lemma rex_fwd_flat_dx (R): âI,L1,L2,V,T. L1 âª¤[R, â{I}V.T] L2 â L1 âª¤[R, T] L2. -#R #I #L1 #L2 #V #T #H elim (rex_inv_flat â¦ H) -H // -qed-. - -lemma rex_fwd_dx (R): âI2,L1,K2,T. L1 âª¤[R, T] K2.â{I2} â - ââI1,K1. L1 = K1.â{I1}. -#R #I2 #L1 #K2 #T #f elim (pn_split f) * #g #Hg #_ #Hf destruct -[ elim (sex_inv_push2 â¦ Hf) | elim (sex_inv_next2 â¦ Hf) ] -Hf #I1 #K1 #_ #_ #H destruct -/2 width=3 by ex1_2_intro/ -qed-. - -(* Basic properties *********************************************************) - -lemma rex_atom (R): âI. â âª¤[R, âª{I}] â. -#R * /3 width=3 by frees_sort, frees_atom, frees_gref, sex_atom, ex2_intro/ -qed. - -lemma rex_sort (R): âI1,I2,L1,L2,s. - L1 âª¤[R, âs] L2 â L1.â{I1} âª¤[R, âs] L2.â{I2}. -#R #I1 #I2 #L1 #L2 #s * #f #Hf #H12 -lapply (frees_inv_sort â¦ Hf) -Hf -/4 width=3 by frees_sort, sex_push, isid_push, ex2_intro/ -qed. - -lemma rex_pair (R): âI,L1,L2,V1,V2. L1 âª¤[R, V1] L2 â - R L1 V1 V2 â L1.â{I}V1 âª¤[R, #0] L2.â{I}V2. -#R #I1 #I2 #L1 #L2 #V1 * -/4 width=3 by ext2_pair, frees_pair, sex_next, ex2_intro/ -qed. - -lemma rex_unit (R): âf,I,L1,L2. ðâ¦fâ¦ â L1 âª¤[cext2 R, cfull, f] L2 â - L1.â¤{I} âª¤[R, #0] L2.â¤{I}. -/4 width=3 by frees_unit, sex_next, ext2_unit, ex2_intro/ qed. - -lemma rex_lref (R): âI1,I2,L1,L2,i. - L1 âª¤[R, #i] L2 â L1.â{I1} âª¤[R, #âi] L2.â{I2}. -#R #I1 #I2 #L1 #L2 #i * /3 width=3 by sex_push, frees_lref, ex2_intro/ -qed. - -lemma rex_gref (R): âI1,I2,L1,L2,l. - L1 âª¤[R, Â§l] L2 â L1.â{I1} âª¤[R, Â§l] L2.â{I2}. -#R #I1 #I2 #L1 #L2 #l * #f #Hf #H12 -lapply (frees_inv_gref â¦ Hf) -Hf -/4 width=3 by frees_gref, sex_push, isid_push, ex2_intro/ -qed. - -lemma rex_bind_repl_dx (R): âI,I1,L1,L2,T. - L1.â{I} âª¤[R, T] L2.â{I1} â - âI2. cext2 R L1 I I2 â - L1.â{I} âª¤[R, T] L2.â{I2}. -#R #I #I1 #L1 #L2 #T * #f #Hf #HL12 #I2 #HR -/3 width=5 by sex_pair_repl, ex2_intro/ -qed-. - -(* Basic_2A1: uses: llpx_sn_co ) -lemma rex_co (R1) (R2): (âL,T1,T2. R1 L T1 T2 â R2 L T1 T2) â - âL1,L2,T. L1 âª¤[R1, T] L2 â L1 âª¤[R2, T] L2. -#R1 #R2 #HR #L1 #L2 #T /5 width=7 by sex_co, cext2_co, ex2_intro/ -qed-. - -lemma rex_isid (R1) (R2): âL1,L2,T1,T2. - (âf. L1 â¢ ðâ¦T1â¦ â f â ðâ¦fâ¦) â - (âf. ðâ¦fâ¦ â L1 â¢ ðâ¦T2â¦ â f) â - L1 âª¤[R1, T1] L2 â L1 âª¤[R2, T2] L2. -#R1 #R2 #L1 #L2 #T1 #T2 #H1 #H2 * -/4 width=7 by sex_co_isid, ex2_intro/ -qed-. - -lemma rex_unit_sn (R1) (R2): - âI,K1,L2. K1.â¤{I} âª¤[R1, #0] L2 â K1.â¤{I} âª¤[R2, #0] L2. -#R1 #R2 #I #K1 #L2 #H -elim (rex_inv_zero_unit_sn â¦ H) -H #f #K2 #Hf #HK12 #H destruct -/3 width=7 by rex_unit, sex_co_isid/ -qed-. - -(* Basic_2A1: removed theorems 9: - llpx_sn_skip llpx_sn_lref llpx_sn_free - llpx_sn_fwd_lref - llpx_sn_Y llpx_sn_ge_up llpx_sn_ge - llpx_sn_fwd_drop_sn llpx_sn_fwd_drop_dx -*) diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/rex_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/static/rex_drops.ma deleted file mode 100644 index 7ce890273..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/rex_drops.ma +++ /dev/null @@ -1,124 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/relocation/drops_cext2.ma". -include "basic_2/relocation/drops_sex.ma". -include "basic_2/static/frees_drops.ma". -include "basic_2/static/rex.ma". - -(* GENERIC EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ****) - -definition f_dedropable_sn: predicate (relation3 lenv term term) â - Î»R. âb,f,L1,K1. â¬[b, f] L1 â K1 â - âK2,T. K1 âª¤[R, T] K2 â âU. â¬[f] T â U â - ââL2. L1 âª¤[R, U] L2 & â¬[b, f] L2 â K2 & L1 â¡[f] L2. - -definition f_dropable_sn: predicate (relation3 lenv term term) â - Î»R. âb,f,L1,K1. â¬[b, f] L1 â K1 â ðâ¦fâ¦ â - âL2,U. L1 âª¤[R, U] L2 â âT. â¬[f] T â U â - ââK2. K1 âª¤[R, T] K2 & â¬[b, f] L2 â K2. - -definition f_dropable_dx: predicate (relation3 lenv term term) â - Î»R. âL1,L2,U. L1 âª¤[R, U] L2 â - âb,f,K2. â¬[b, f] L2 â K2 â ðâ¦fâ¦ â âT. â¬[f] T â U â - ââK1. â¬[b, f] L1 â K1 & K1 âª¤[R, T] K2. - -definition f_transitive_next: relation3 â¦ â Î»R1,R2,R3. - âf,L,T. L â¢ ðâ¦Tâ¦ â f â - âg,I,K,n. â¬[n] L â K.â{I} â âg = â«±[n] f â - sex_transitive (cext2 R1) (cext2 R2) (cext2 R3) (cext2 R1) cfull g K I. - -(* Properties with generic slicing for local environments *******************) - -lemma rex_liftable_dedropable_sn: âR. (âL. reflexive ? (R L)) â - d_liftable2_sn â¦ lifts R â f_dedropable_sn R. -#R #H1R #H2R #b #f #L1 #K1 #HLK1 #K2 #T * #f1 #Hf1 #HK12 #U #HTU -elim (frees_total L1 U) #f2 #Hf2 -lapply (frees_fwd_coafter â¦ Hf2 â¦ HLK1 â¦ HTU â¦ Hf1) -HTU #Hf -elim (sex_liftable_co_dedropable_sn â¦ HLK1 â¦ HK12 â¦ Hf) -f1 -K1 -/3 width=6 by cext2_d_liftable2_sn, cfull_lift_sn, ext2_refl, ex3_intro, ex2_intro/ -qed-. - -lemma rex_trans_next: âR1,R2,R3. rex_transitive R1 R2 R3 â f_transitive_next R1 R2 R3. -#R1 #R2 #R3 #HR #f #L1 #T #Hf #g #I1 #K1 #n #HLK #Hgf #I #H -generalize in match HLK; -HLK elim H -I1 -I -[ #I #_ #L2 #_ #I2 #H - lapply (ext2_inv_unit_sn â¦ H) -H #H destruct - /2 width=1 by ext2_unit/ -| #I #V1 #V #HV1 #HLK1 #L2 #HL12 #I2 #H - elim (ext2_inv_pair_sn â¦ H) -H #V2 #HV2 #H destruct - elim (frees_inv_drops_next â¦ Hf â¦ HLK1 â¦ Hgf) -f -HLK1 #f #Hf #Hfg - /5 width=5 by ext2_pair, sle_sex_trans, ex2_intro/ -] -qed. - -(* Inversion lemmas with generic slicing for local environments *************) - -(* Basic_2A1: uses: llpx_sn_inv_lift_le llpx_sn_inv_lift_be llpx_sn_inv_lift_ge ) -( Basic_2A1: was: llpx_sn_drop_conf_O ) -lemma rex_dropable_sn: âR. f_dropable_sn R. -#R #b #f #L1 #K1 #HLK1 #H1f #L2 #U #f2 #Hf2 #HL12 #T #HTU -elim (frees_total K1 T) #f1 #Hf1 -lapply (frees_fwd_coafter â¦ Hf2 â¦ HLK1 â¦ HTU â¦ Hf1) -HTU #H2f -elim (sex_co_dropable_sn â¦ HLK1 â¦ HL12 â¦ H2f) -f2 -L1 -/3 width=3 by ex2_intro/ -qed-. - -(* Basic_2A1: was: llpx_sn_drop_trans_O ) -( Note: the proof might be simplified ) -lemma rex_dropable_dx: âR. f_dropable_dx R. -#R #L1 #L2 #U #f2 #Hf2 #HL12 #b #f #K2 #HLK2 #H1f #T #HTU -elim (drops_isuni_ex â¦ H1f L1) #K1 #HLK1 -elim (frees_total K1 T) #f1 #Hf1 -lapply (frees_fwd_coafter â¦ Hf2 â¦ HLK1 â¦ HTU â¦ Hf1) -K1 #H2f -elim (sex_co_dropable_dx â¦ HL12 â¦ HLK2 â¦ H2f) -L2 -/4 width=9 by frees_inv_lifts, ex2_intro/ -qed-. - -(* Basic_2A1: uses: llpx_sn_inv_lift_O ) -lemma rex_inv_lifts_bi: âR,L1,L2,U. L1 âª¤[R, U] L2 â âb,f. ðâ¦fâ¦ â - âK1,K2. â¬[b, f] L1 â K1 â â¬[b, f] L2 â K2 â - âT. â¬[f] T â U â K1 âª¤[R, T] K2. -#R #L1 #L2 #U #HL12 #b #f #Hf #K1 #K2 #HLK1 #HLK2 #T #HTU -elim (rex_dropable_sn â¦ HLK1 â¦ HL12 â¦ HTU) -L1 -U // #Y #HK12 #HY -lapply (drops_mono â¦ HY â¦ HLK2) -b -f -L2 #H destruct // -qed-. - -lemma rex_inv_lref_pair_sn: âR,L1,L2,i. L1 âª¤[R, #i] L2 â âI,K1,V1. â¬[i] L1 â K1.â{I}V1 â - ââK2,V2. â¬[i] L2 â K2.â{I}V2 & K1 âª¤[R, V1] K2 & R K1 V1 V2. -#R #L1 #L2 #i #HL12 #I #K1 #V1 #HLK1 elim (rex_dropable_sn â¦ HLK1 â¦ HL12 (#0)) -HLK1 -HL12 // -#Y #HY #HLK2 elim (rex_inv_zero_pair_sn â¦ HY) -HY -#K2 #V2 #HK12 #HV12 #H destruct /2 width=5 by ex3_2_intro/ -qed-. - -lemma rex_inv_lref_pair_dx: âR,L1,L2,i. L1 âª¤[R, #i] L2 â âI,K2,V2. â¬[i] L2 â K2.â{I}V2 â - ââK1,V1. â¬[i] L1 â K1.â{I}V1 & K1 âª¤[R, V1] K2 & R K1 V1 V2. -#R #L1 #L2 #i #HL12 #I #K2 #V2 #HLK2 elim (rex_dropable_dx â¦ HL12 â¦ HLK2 â¦ (#0)) -HLK2 -HL12 // -#Y #HLK1 #HY elim (rex_inv_zero_pair_dx â¦ HY) -HY -#K1 #V1 #HK12 #HV12 #H destruct /2 width=5 by ex3_2_intro/ -qed-. - -lemma rex_inv_lref_unit_sn: âR,L1,L2,i. L1 âª¤[R, #i] L2 â âI,K1. â¬[i] L1 â K1.â¤{I} â - ââf,K2. â¬[i] L2 â K2.â¤{I} & K1 âª¤[cext2 R, cfull, f] K2 & ðâ¦fâ¦. -#R #L1 #L2 #i #HL12 #I #K1 #HLK1 elim (rex_dropable_sn â¦ HLK1 â¦ HL12 (#0)) -HLK1 -HL12 // -#Y #HY #HLK2 elim (rex_inv_zero_unit_sn â¦ HY) -HY -#f #K2 #Hf #HK12 #H destruct /2 width=5 by ex3_2_intro/ -qed-. - -lemma rex_inv_lref_unit_dx: âR,L1,L2,i. L1 âª¤[R, #i] L2 â âI,K2. â¬[i] L2 â K2.â¤{I} â - ââf,K1. â¬[i] L1 â K1.â¤{I} & K1 âª¤[cext2 R, cfull, f] K2 & ðâ¦fâ¦. -#R #L1 #L2 #i #HL12 #I #K2 #HLK2 elim (rex_dropable_dx â¦ HL12 â¦ HLK2 â¦ (#0)) -HLK2 -HL12 // -#Y #HLK1 #HY elim (rex_inv_zero_unit_dx â¦ HY) -HY -#f #K2 #Hf #HK12 #H destruct /2 width=5 by ex3_2_intro/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/rex_fqup.ma b/matita/matita/contribs/lambdadelta/basic_2/static/rex_fqup.ma deleted file mode 100644 index 6060d3ff6..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/rex_fqup.ma +++ /dev/null @@ -1,49 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/static/frees_fqup.ma". -include "basic_2/static/rex.ma". - -(* GENERIC EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ****) - -(* Advanced properties ******************************************************) - -(* Basic_2A1: uses: llpx_sn_refl ) -lemma rex_refl: âR. (âL. reflexive â¦ (R L)) â âL,T. L âª¤[R, T] L. -#R #HR #L #T elim (frees_total L T) -/4 width=3 by sex_refl, ext2_refl, ex2_intro/ -qed. - -lemma rex_pair_refl: âR. (âL. reflexive â¦ (R L)) â - âL,V1,V2. R L V1 V2 â âI,T. L.â{I}V1 âª¤[R, T] L.â{I}V2. -#R #HR #L #V1 #V2 #HV12 #I #T -elim (frees_total (L.â{I}V1) T) #f #Hf -elim (pn_split f) #g #H destruct -/5 width=3 by sex_refl, sex_next, sex_push, ext2_refl, ext2_pair, ex2_intro/ -qed. - -(* Advanced inversion lemmas ************************************************) - -lemma rex_inv_bind_void: âR,p,I,L1,L2,V,T. L1 âª¤[R, â{p,I}V.T] L2 â - L1 âª¤[R, V] L2 â§ L1.â§ âª¤[R, T] L2.â§. -#R #p #I #L1 #L2 #V #T * #f #Hf #HL elim (frees_inv_bind_void â¦ Hf) -Hf -/6 width=6 by sle_sex_trans, sex_inv_tl, sor_inv_sle_dx, sor_inv_sle_sn, ex2_intro, conj/ -qed-. - -(* Advanced forward lemmas ) - -lemma rex_fwd_bind_dx_void: âR,p,I,L1,L2,V,T. L1 âª¤[R, â{p,I}V.T] L2 â - L1.â§ âª¤[R, T] L2.â§. -#R #p #I #L1 #L2 #V #T #H elim (rex_inv_bind_void â¦ H) -H // -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/rex_fsle.ma b/matita/matita/contribs/lambdadelta/basic_2/static/rex_fsle.ma deleted file mode 100644 index b69cd2efb..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/rex_fsle.ma +++ /dev/null @@ -1,176 +0,0 @@ -(************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/relocation/sex_length.ma". -include "basic_2/static/fsle_fsle.ma". -include "basic_2/static/rex_drops.ma". -include "basic_2/static/rex_rex.ma". - -(* GENERIC EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ****) - -definition R_fsge_compatible: predicate (relation3 â¦) â Î»RN. - âL,T1,T2. RN L T1 T2 â â¦L, T2â¦ â â¦L, T1â¦. - -definition rex_fsge_compatible: predicate (relation3 â¦) â Î»RN. - âL1,L2,T. L1 âª¤[RN, T] L2 â â¦L2, Tâ¦ â â¦L1, Tâ¦. - -definition rex_fsle_compatible: predicate (relation3 â¦) â Î»RN. - âL1,L2,T. L1 âª¤[RN, T] L2 â â¦L1, Tâ¦ â â¦L2, Tâ¦. - -(* Basic inversions with free variables inclusion for restricted closures ***) - -lemma frees_sex_conf: âR. rex_fsge_compatible R â - âL1,T,f1. L1 â¢ ðâ¦Tâ¦ â f1 â - âL2. L1 âª¤[cext2 R, cfull, f1] L2 â - ââf2. L2 â¢ ðâ¦Tâ¦ â f2 & f2 â f1. -#R #HR #L1 #T #f1 #Hf1 #L2 #H1L -lapply (HR L1 L2 T ?) /2 width=3 by ex2_intro/ #H2L -@(fsle_frees_trans_eq â¦ H2L â¦ Hf1) /3 width=4 by sex_fwd_length, sym_eq/ -qed-. - -(* Properties with free variables inclusion for restricted closures *********) - -(* Note: we just need lveq_inv_refl: âL,n1,n2. L ââ§[n1, n2] L â â§â§ 0 = n1 & 0 = n2 ) -lemma fsge_rex_trans: âR,L1,T1,T2. â¦L1, T1â¦ â â¦L1, T2â¦ â - âL2. L1 âª¤[R, T2] L2 â L1 âª¤[R, T1] L2. -#R #L1 #T1 #T2 * #n1 #n2 #f1 #f2 #Hf1 #Hf2 #Hn #Hf #L2 #HL12 -elim (lveq_inj_length â¦ Hn ?) // #H1 #H2 destruct -/4 width=5 by rex_inv_frees, sle_sex_trans, ex2_intro/ -qed-. - -lemma rex_sym: âR. rex_fsge_compatible R â - (âL1,L2,T1,T2. R L1 T1 T2 â R L2 T2 T1) â - âT. symmetric â¦ (rex R T). -#R #H1R #H2R #T #L1 #L2 -* #f1 #Hf1 #HL12 -elim (frees_sex_conf â¦ Hf1 â¦ HL12) -Hf1 // -/5 width=5 by sle_sex_trans, sex_sym, cext2_sym, ex2_intro/ -qed-. - -lemma rex_pair_sn_split: âR1,R2. (âL. reflexive â¦ (R1 L)) â (âL. reflexive â¦ (R2 L)) â - rex_fsge_compatible R1 â - âL1,L2,V. L1 âª¤[R1, V] L2 â âI,T. - ââL. L1 âª¤[R1, â¡{I}V.T] L & L âª¤[R2, V] L2. -#R1 #R2 #HR1 #HR2 #HR #L1 #L2 #V * #f #Hf #HL12 * [ #p ] #I #T -[ elim (frees_total L1 (â{p,I}V.T)) #g #Hg - elim (frees_inv_bind â¦ Hg) #y1 #y2 #H #_ #Hy -| elim (frees_total L1 (â{I}V.T)) #g #Hg - elim (frees_inv_flat â¦ Hg) #y1 #y2 #H #_ #Hy -] -lapply(frees_mono â¦ H â¦ Hf) -H #H1 -lapply (sor_eq_repl_back1 â¦ Hy â¦ H1) -y1 #Hy -lapply (sor_inv_sle_sn â¦ Hy) -y2 #Hfg -elim (sex_sle_split (cext2 R1) (cext2 R2) â¦ HL12 â¦ Hfg) -HL12 /2 width=1 by ext2_refl/ #L #HL1 #HL2 -lapply (sle_sex_trans â¦ HL1 â¦ Hfg) // #H -elim (frees_sex_conf â¦ Hf â¦ H) -Hf -H -/4 width=7 by sle_sex_trans, ex2_intro/ -qed-. - -lemma rex_flat_dx_split: âR1,R2. (âL. reflexive â¦ (R1 L)) â (âL. reflexive â¦ (R2 L)) â - rex_fsge_compatible R1 â - âL1,L2,T. L1 âª¤[R1, T] L2 â âI,V. - ââL. L1 âª¤[R1, â{I}V.T] L & L âª¤[R2, T] L2. -#R1 #R2 #HR1 #HR2 #HR #L1 #L2 #T * #f #Hf #HL12 #I #V -elim (frees_total L1 (â{I}V.T)) #g #Hg -elim (frees_inv_flat â¦ Hg) #y1 #y2 #_ #H #Hy -lapply(frees_mono â¦ H â¦ Hf) -H #H2 -lapply (sor_eq_repl_back2 â¦ Hy â¦ H2) -y2 #Hy -lapply (sor_inv_sle_dx â¦ Hy) -y1 #Hfg -elim (sex_sle_split (cext2 R1) (cext2 R2) â¦ HL12 â¦ Hfg) -HL12 /2 width=1 by ext2_refl/ #L #HL1 #HL2 -lapply (sle_sex_trans â¦ HL1 â¦ Hfg) // #H -elim (frees_sex_conf â¦ Hf â¦ H) -Hf -H -/4 width=7 by sle_sex_trans, ex2_intro/ -qed-. - -lemma rex_bind_dx_split: âR1,R2. (âL. reflexive â¦ (R1 L)) â (âL. reflexive â¦ (R2 L)) â - rex_fsge_compatible R1 â - âI,L1,L2,V1,T. L1.â{I}V1 âª¤[R1, T] L2 â âp. - ââL,V. L1 âª¤[R1, â{p,I}V1.T] L & L.â{I}V âª¤[R2, T] L2 & R1 L1 V1 V. -#R1 #R2 #HR1 #HR2 #HR #I #L1 #L2 #V1 #T * #f #Hf #HL12 #p -elim (frees_total L1 (â{p,I}V1.T)) #g #Hg -elim (frees_inv_bind â¦ Hg) #y1 #y2 #_ #H #Hy -lapply(frees_mono â¦ H â¦ Hf) -H #H2 -lapply (tl_eq_repl â¦ H2) -H2 #H2 -lapply (sor_eq_repl_back2 â¦ Hy â¦ H2) -y2 #Hy -lapply (sor_inv_sle_dx â¦ Hy) -y1 #Hfg -lapply (sle_inv_tl_sn â¦ Hfg) -Hfg #Hfg -elim (sex_sle_split (cext2 R1) (cext2 R2) â¦ HL12 â¦ Hfg) -HL12 /2 width=1 by ext2_refl/ #Y #H #HL2 -lapply (sle_sex_trans â¦ H â¦ Hfg) // #H0 -elim (sex_inv_next1 â¦ H) -H #Z #L #HL1 #H -elim (ext2_inv_pair_sn â¦ H) -H #V #HV #H1 #H2 destruct -elim (frees_sex_conf â¦ Hf â¦ H0) -Hf -H0 -/4 width=7 by sle_sex_trans, ex3_2_intro, ex2_intro/ -qed-. - -lemma rex_bind_dx_split_void: âR1,R2. (âL. reflexive â¦ (R1 L)) â (âL. reflexive â¦ (R2 L)) â - rex_fsge_compatible R1 â - âL1,L2,T. L1.â§ âª¤[R1, T] L2 â âp,I,V. - ââL. L1 âª¤[R1, â{p,I}V.T] L & L.â§ âª¤[R2, T] L2. -#R1 #R2 #HR1 #HR2 #HR #L1 #L2 #T * #f #Hf #HL12 #p #I #V -elim (frees_total L1 (â{p,I}V.T)) #g #Hg -elim (frees_inv_bind_void â¦ Hg) #y1 #y2 #_ #H #Hy -lapply(frees_mono â¦ H â¦ Hf) -H #H2 -lapply (tl_eq_repl â¦ H2) -H2 #H2 -lapply (sor_eq_repl_back2 â¦ Hy â¦ H2) -y2 #Hy -lapply (sor_inv_sle_dx â¦ Hy) -y1 #Hfg -lapply (sle_inv_tl_sn â¦ Hfg) -Hfg #Hfg -elim (sex_sle_split (cext2 R1) (cext2 R2) â¦ HL12 â¦ Hfg) -HL12 /2 width=1 by ext2_refl/ #Y #H #HL2 -lapply (sle_sex_trans â¦ H â¦ Hfg) // #H0 -elim (sex_inv_next1 â¦ H) -H #Z #L #HL1 #H -elim (ext2_inv_unit_sn â¦ H) -H #H destruct -elim (frees_sex_conf â¦ Hf â¦ H0) -Hf -H0 -/4 width=7 by sle_sex_trans, ex2_intro/ (* note: 2 ex2_intro ) -qed-. - -( Main properties with free variables inclusion for restricted closures ****) - -theorem rex_conf: âR1,R2. - rex_fsge_compatible R1 â - rex_fsge_compatible R2 â - R_confluent2_rex R1 R2 R1 R2 â - âT. confluent2 â¦ (rex R1 T) (rex R2 T). -#R1 #R2 #HR1 #HR2 #HR12 #T #L0 #L1 * #f1 #Hf1 #HL01 #L2 * #f #Hf #HL02 -lapply (frees_mono â¦ Hf1 â¦ Hf) -Hf1 #Hf12 -lapply (sex_eq_repl_back â¦ HL01 â¦ Hf12) -f1 #HL01 -elim (sex_conf â¦ HL01 â¦ HL02) /2 width=3 by ex2_intro/ [ | -HL01 -HL02 ] -[ #L #HL1 #HL2 - elim (frees_sex_conf â¦ Hf â¦ HL01) // -HR1 -HL01 #f1 #Hf1 #H1 - elim (frees_sex_conf â¦ Hf â¦ HL02) // -HR2 -HL02 #f2 #Hf2 #H2 - lapply (sle_sex_trans â¦ HL1 â¦ H1) // -HL1 -H1 #HL1 - lapply (sle_sex_trans â¦ HL2 â¦ H2) // -HL2 -H2 #HL2 - /3 width=5 by ex2_intro/ -| #g * #I0 [2: #V0 ] #K0 #n #HLK0 #Hgf #Z1 #H1 #Z2 #H2 #K1 #HK01 #K2 #HK02 - [ elim (ext2_inv_pair_sn â¦ H1) -H1 #V1 #HV01 #H destruct - elim (ext2_inv_pair_sn â¦ H2) -H2 #V2 #HV02 #H destruct - elim (frees_inv_drops_next â¦ Hf â¦ HLK0 â¦ Hgf) -Hf -HLK0 -Hgf #g0 #Hg0 #H0 - lapply (sle_sex_trans â¦ HK01 â¦ H0) // -HK01 #HK01 - lapply (sle_sex_trans â¦ HK02 â¦ H0) // -HK02 #HK02 - elim (HR12 â¦ HV01 â¦ HV02 K1 â¦ K2) /3 width=3 by ext2_pair, ex2_intro/ - | lapply (ext2_inv_unit_sn â¦ H1) -H1 #H destruct - lapply (ext2_inv_unit_sn â¦ H2) -H2 #H destruct - /3 width=3 by ext2_unit, ex2_intro/ - ] -] -qed-. - -theorem rex_trans_fsle: âR1,R2,R3. - rex_fsle_compatible R1 â f_transitive_next R1 R2 R3 â - âL1,L,T. L1 âª¤[R1, T] L â - âL2. L âª¤[R2, T] L2 â L1 âª¤[R3, T] L2. -#R1 #R2 #R3 #H1R #H2R #L1 #L #T #H -lapply (H1R â¦ H) -H1R #H0 -cases H -H #f1 #Hf1 #HL1 #L2 * #f2 #Hf2 #HL2 -lapply (fsle_inv_frees_eq â¦ H0 â¦ Hf1 â¦ Hf2) -H0 -Hf2 -/4 width=14 by sex_trans_gen, sex_fwd_length, sle_sex_trans, ex2_intro/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/rex_length.ma b/matita/matita/contribs/lambdadelta/basic_2/static/rex_length.ma deleted file mode 100644 index bd6b0d6c2..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/rex_length.ma +++ /dev/null @@ -1,72 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/relocation/sex_length.ma". -include "basic_2/static/rex_drops.ma". - -(* GENERIC EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ****) - -(* Forward lemmas with length for local environments ************************) - -(* Basic_2A1: uses: llpx_sn_fwd_length ) -lemma rex_fwd_length (R): âL1,L2,T. L1 âª¤[R, T] L2 â |L1| = |L2|. -#R #L1 #L2 #T /2 width=4 by sex_fwd_length/ -qed-. - -(* Properties with length for local environments ****************************) - -(* Basic_2A1: uses: llpx_sn_sort ) -lemma rex_sort_length (R): âL1,L2. |L1| = |L2| â âs. L1 âª¤[R, âs] L2. -#R #L1 elim L1 -L1 -[ #Y #H #s >(length_inv_zero_sn â¦ H) -H // -| #K1 #I1 #IH #Y #H #s - elim (length_inv_succ_sn â¦ H) -H #I2 #K2 #HK12 #H destruct - /3 width=1 by rex_sort/ -] -qed. - -( Basic_2A1: uses: llpx_sn_gref ) -lemma rex_gref_length (R): âL1,L2. |L1| = |L2| â âl. L1 âª¤[R, Â§l] L2. -#R #L1 elim L1 -L1 -[ #Y #H #s >(length_inv_zero_sn â¦ H) -H // -| #K1 #I1 #IH #Y #H #s - elim (length_inv_succ_sn â¦ H) -H #I2 #K2 #HK12 #H destruct - /3 width=1 by rex_gref/ -] -qed. - -lemma rex_unit_length (R): âL1,L2. |L1| = |L2| â âI. L1.â¤{I} âª¤[R, #0] L2.â¤{I}. -/3 width=3 by rex_unit, sex_length_isid/ qed. - -( Basic_2A1: uses: llpx_sn_lift_le llpx_sn_lift_ge ) -lemma rex_lifts_bi (R): d_liftable2_sn â¦ lifts R â - âL1,L2. |L1| = |L2| â âK1,K2,T. K1 âª¤[R, T] K2 â - âb,f. â¬[b, f] L1 â K1 â â¬[b, f] L2 â K2 â - âU. â¬[f] T â U â L1 âª¤[R, U] L2. -#R #HR #L1 #L2 #HL12 #K1 #K2 #T * #f1 #Hf1 #HK12 #b #f #HLK1 #HLK2 #U #HTU -elim (frees_total L1 U) #f2 #Hf2 -lapply (frees_fwd_coafter â¦ Hf2 â¦ HLK1 â¦ HTU â¦ Hf1) -HTU #Hf -/4 width=12 by sex_length_cfull, sex_liftable_co_dedropable_bi, cext2_d_liftable2_sn, cfull_lift_sn, ex2_intro/ -qed-. - -(* Inversion lemmas with length for local environment ***********************) - -lemma rex_inv_zero_length (R): âY1,Y2. Y1 âª¤[R, #0] Y2 â - â¨â¨ â§â§ Y1 = â & Y2 = â - | ââI,L1,L2,V1,V2. L1 âª¤[R, V1] L2 & R L1 V1 V2 & - Y1 = L1.â{I}V1 & Y2 = L2.â{I}V2 - | ââI,L1,L2. |L1| = |L2| & Y1 = L1.â¤{I} & Y2 = L2.â¤{I}. -#R #Y1 #Y2 #H elim (rex_inv_zero â¦ H) -H * -/4 width=9 by sex_fwd_length, ex4_5_intro, ex3_3_intro, or3_intro2, or3_intro1, or3_intro0, conj/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/rex_lex.ma b/matita/matita/contribs/lambdadelta/basic_2/static/rex_lex.ma deleted file mode 100644 index 970588d1a..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/rex_lex.ma +++ /dev/null @@ -1,41 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/relocation/lex.ma". -include "basic_2/static/rex_fsle.ma". -include "basic_2/static/req.ma". - -(* GENERIC EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ****) - -(* Properties with generic extension of a context-sensitive relation ********) - -lemma rex_lex: âR,L1,L2. L1 âª¤[R] L2 â âT. L1 âª¤[R, T] L2. -#R #L1 #L2 * #f #Hf #HL12 #T -elim (frees_total L1 T) #g #Hg -/4 width=5 by sex_sdj, sdj_isid_sn, ex2_intro/ -qed. - -(* Inversion lemmas with generic extension of a context sensitive relation **) - -lemma rex_inv_lex_req: âR. c_reflexive â¦ R â - rex_fsge_compatible R â - âL1,L2,T. L1 âª¤[R, T] L2 â - ââL. L1 âª¤[R] L & L â¡[T] L2. -#R #H1R #H2R #L1 #L2 #T * #f1 #Hf1 #HL -elim (sex_sdj_split â¦ ceq_ext â¦ HL ðð ?) -HL -[ #L0 #HL10 #HL02 |: /2 width=1 by ext2_refl, sdj_isid_dx/ ] -H1R -lapply (sex_sdj â¦ HL10 f1 ?) /2 width=1 by sdj_isid_sn/ #H -elim (frees_sex_conf â¦ Hf1 â¦ H) // -H2R -H #f0 #Hf0 #Hf01 -/4 width=7 by sle_sex_trans, ( 2x *) ex2_intro/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/rex_rex.ma b/matita/matita/contribs/lambdadelta/basic_2/static/rex_rex.ma deleted file mode 100644 index 96162fd38..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/static/rex_rex.ma +++ /dev/null @@ -1,89 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/relocation/sex_sex.ma". -include "basic_2/static/frees_fqup.ma". -include "basic_2/static/rex.ma". - -(* GENERIC EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ****) - -(* Advanced inversion lemmas ************************************************) - -lemma rex_inv_frees: âR,L1,L2,T. L1 âª¤[R, T] L2 â - âf. L1 â¢ ðâ¦Tâ¦ â f â L1 âª¤[cext2 R, cfull, f] L2. -#R #L1 #L2 #T /3 width=6 by frees_mono, sex_eq_repl_back/ -qed-. - -(* Advanced properties ******************************************************) - -(* Basic_2A1: uses: llpx_sn_dec ) -lemma rex_dec: âR. (âL,T1,T2. Decidable (R L T1 T2)) â - âL1,L2,T. Decidable (L1 âª¤[R, T] L2). -#R #HR #L1 #L2 #T -elim (frees_total L1 T) #f #Hf -elim (sex_dec (cext2 R) cfull â¦ L1 L2 f) -/4 width=3 by rex_inv_frees, cfull_dec, ext2_dec, ex2_intro, or_intror, or_introl/ -qed-. - -( Main properties **********************************************************) - -(* Basic_2A1: uses: llpx_sn_bind llpx_sn_bind_O ) -theorem rex_bind: âR,p,I,L1,L2,V1,V2,T. - L1 âª¤[R, V1] L2 â L1.â{I}V1 âª¤[R, T] L2.â{I}V2 â - L1 âª¤[R, â{p,I}V1.T] L2. -#R #p #I #L1 #L2 #V1 #V2 #T #f1 #HV #Hf1 * #f2 #HT #Hf2 -lapply (sex_fwd_bind â¦ Hf2) -Hf2 #Hf2 elim (sor_isfin_ex f1 (â«±f2)) -/3 width=7 by frees_fwd_isfin, frees_bind, sex_join, isfin_tl, ex2_intro/ -qed. - -(* Basic_2A1: llpx_sn_flat ) -theorem rex_flat: âR,I,L1,L2,V,T. - L1 âª¤[R, V] L2 â L1 âª¤[R, T] L2 â - L1 âª¤[R, â{I}V.T] L2. -#R #I #L1 #L2 #V #T #f1 #HV #Hf1 * #f2 #HT #Hf2 elim (sor_isfin_ex f1 f2) -/3 width=7 by frees_fwd_isfin, frees_flat, sex_join, ex2_intro/ -qed. - -theorem rex_bind_void: âR,p,I,L1,L2,V,T. - L1 âª¤[R, V] L2 â L1.â§ âª¤[R, T] L2.â§ â - L1 âª¤[R, â{p,I}V.T] L2. -#R #p #I #L1 #L2 #V #T * #f1 #HV #Hf1 * #f2 #HT #Hf2 -lapply (sex_fwd_bind â¦ Hf2) -Hf2 #Hf2 elim (sor_isfin_ex f1 (â«±f2)) -/3 width=7 by frees_fwd_isfin, frees_bind_void, sex_join, isfin_tl, ex2_intro/ -qed. - -(* Negated inversion lemmas *************************************************) - -(* Basic_2A1: uses: nllpx_sn_inv_bind nllpx_sn_inv_bind_O ) -lemma rnex_inv_bind: âR. (âL,T1,T2. Decidable (R L T1 T2)) â - âp,I,L1,L2,V,T. (L1 âª¤[R, â{p,I}V.T] L2 â â¥) â - (L1 âª¤[R, V] L2 â â¥) â¨ (L1.â{I}V âª¤[R, T] L2.â{I}V â â¥). -#R #HR #p #I #L1 #L2 #V #T #H elim (rex_dec â¦ HR L1 L2 V) -/4 width=2 by rex_bind, or_intror, or_introl/ -qed-. - -( Basic_2A1: uses: nllpx_sn_inv_flat *) -lemma rnex_inv_flat: âR. (âL,T1,T2. Decidable (R L T1 T2)) â - âI,L1,L2,V,T. (L1 âª¤[R, â{I}V.T] L2 â â¥) â - (L1 âª¤[R, V] L2 â â¥) â¨ (L1 âª¤[R, T] L2 â â¥). -#R #HR #I #L1 #L2 #V #T #H elim (rex_dec â¦ HR L1 L2 V) -/4 width=1 by rex_flat, or_intror, or_introl/ -qed-. - -lemma rnex_inv_bind_void: âR. (âL,T1,T2. Decidable (R L T1 T2)) â - âp,I,L1,L2,V,T. (L1 âª¤[R, â{p,I}V.T] L2 â â¥) â - (L1 âª¤[R, V] L2 â â¥) â¨ (L1.â§ âª¤[R, T] L2.â§ â â¥). -#R #HR #p #I #L1 #L2 #V #T #H elim (rex_dec â¦ HR L1 L2 V) -/4 width=2 by rex_bind_void, or_intror, or_introl/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/aarity.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/aarity.ma deleted file mode 100644 index 4db5d3115..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/aarity.ma +++ /dev/null @@ -1,74 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -(* THE FORMAL SYSTEM Î»Î´: MATITA SOURCE FILES - * Initial invocation: - Patience on me to gain peace and perfection! - - ) - -include "ground_2/lib/relations.ma". -include "basic_2/notation/constructors/item0_0.ma". -include "basic_2/notation/constructors/snitem2_2.ma". - -( ATOMIC ARITY *************************************************************) - -inductive aarity: Type[0] â - | AAtom: aarity (* atomic aarity construction ) - | APair: aarity â aarity â aarity ( binary aarity construction ) -. - -interpretation "atomic arity construction (atomic)" - 'Item0 = AAtom. - -interpretation "atomic arity construction (binary)" - 'SnItem2 A1 A2 = (APair A1 A2). - -( Basic inversion lemmas *************************************************) - -fact destruct_apair_apair_aux: âA1,A2,B1,B2. â¡B1.A1 = â¡B2.A2 â B1 = B2 â§ A1 = A2. -#A1 #A2 #B1 #B2 #H destruct /2 width=1 by conj/ -qed-. - -lemma discr_apair_xy_x: âA,B. â¡B.A = B â â¥. -#A #B elim B -B -[ #H destruct -| #Y #X #IHY #_ #H elim (destruct_apair_apair_aux â¦ H) -H /2 width=1 by/ () (* destruct lemma needed ) -] -qed-. - -( Basic_2A1: was: discr_tpair_xy_y *) -lemma discr_apair_xy_y: âB,A. â¡B. A = A â â¥. -#B #A elim A -A -[ #H destruct -| #Y #X #_ #IHX #H elim (destruct_apair_apair_aux â¦ H) -H /2 width=1 by/ (**) (* destruct lemma needed ) -] -qed-. - -( Basic properties *) - -lemma eq_aarity_dec: âA1,A2:aarity. Decidable (A1 = A2). -#A1 elim A1 -A1 -[ #A2 elim A2 -A2 /2 width=1 by or_introl/ - #B2 #A2 #_ #_ @or_intror #H destruct -| #B1 #A1 #IHB1 #IHA1 #A2 elim A2 -A2 - [ -IHB1 -IHA1 @or_intror #H destruct - | #B2 #A2 #_ #_ elim (IHB1 B2) -IHB1 - [ #H destruct elim (IHA1 A2) -IHA1 - [ #H destruct /2 width=1 by or_introl/ - | #HA12 @or_intror #H destruct /2 width=1 by/ - ] - | -IHA1 #HB12 @or_intror #H destruct /2 width=1 by/ - ] - ] -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/append.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/append.ma deleted file mode 100644 index b3a07339b..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/append.ma +++ /dev/null @@ -1,100 +0,0 @@ -(******************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/functions/snitem_2.ma". -include "basic_2/notation/functions/snbind1_2.ma". -include "basic_2/notation/functions/snbind2_3.ma". -include "basic_2/notation/functions/snvoid_1.ma". -include "basic_2/notation/functions/snabbr_2.ma". -include "basic_2/notation/functions/snabst_2.ma". -include "basic_2/syntax/lenv.ma". - -(* APPEND FOR LOCAL ENVIRONMENTS ********************************************) - -rec definition append L K on K â match K with -[ LAtom â L -| LBind K I â (append L K).â{I} -]. - -interpretation "append (local environment)" 'plus L1 L2 = (append L1 L2). - -interpretation "local environment tail binding construction (generic)" - 'SnItem I L = (append (LBind LAtom I) L). - -interpretation "local environment tail binding construction (unary)" - 'SnBind1 I L = (append (LBind LAtom (BUnit I)) L). - -interpretation "local environment tail binding construction (binary)" - 'SnBind2 I T L = (append (LBind LAtom (BPair I T)) L). - -interpretation "tail exclusion (local environment)" - 'SnVoid L = (append (LBind LAtom (BUnit Void)) L). - -interpretation "tail abbreviation (local environment)" - 'SnAbbr T L = (append (LBind LAtom (BPair Abbr T)) L). - -interpretation "tail abstraction (local environment)" - 'SnAbst L T = (append (LBind LAtom (BPair Abst T)) L). - -definition d_appendable_sn: predicate (lenvârelation term) â Î»R. - âK,T1,T2. R K T1 T2 â âL. R (L+K) T1 T2. - -(* Basic properties *******************************************************) - -lemma append_atom: âL. (L + â) = L. () (* () should be redundant ) -// qed. - -( Basic_2A1: uses: append_pair ) -lemma append_bind: âI,L,K. L+(K.â{I}) = (L+K).â{I}. -// qed. - -lemma append_atom_sn: âL. â + L = L. -#L elim L -L // -#L #I >append_bind // -qed. - -lemma append_assoc: associative â¦ append. -#L1 #L2 #L3 elim L3 -L3 // -qed. - -lemma append_shift: âL,K,I. L+(â{I}.K) = (L.â{I})+K. -#L #K #I append_bind #H destruct -qed-. - -lemma append_inv_bind3_sn: âI0,L,L0,K. L0.â{I0} = L + K â - â¨â¨ â§â§ L0.â{I0} = L & â = K - | ââK0. K = K0.â{I0} & L0 = L + K0. -#I0 #L #L0 /3 width=1 by or_introl, conj/ -#K #I >append_bind #H destruct /3 width=3 by ex2_intro, or_intror/ -qed-. - -lemma append_inj_sn: âK,L1,L2. L1+K = L2+K â L1 = L2. -#K elim K -K // -#K #I #IH #L1 #L2 >append_bind #H -elim (destruct_lbind_lbind_aux â¦ H) -H /2 width=1 by/ (**) (* destruct lemma needed ) -qed-. - -( Basic_1: uses: chead_ctail ) -( Basic_2A1: uses: lpair_ltail ) -lemma lenv_case_tail: âL. L = â â¨ ââK,I. L = â{I}.K. -#L elim L -L /2 width=1 by or_introl/ -#L #I [2: * ] /3 width=3 by ex1_2_intro, or_intror/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/append_length.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/append_length.ma deleted file mode 100644 index e7c79ebee..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/append_length.ma +++ /dev/null @@ -1,112 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/lenv_length.ma". -include "basic_2/syntax/append.ma". - -(* APPEND FOR LOCAL ENVIRONMENTS ********************************************) - -(* Properties with length for local environments ****************************) - -lemma append_length: âL1,L2. |L1 + L2| = |L1| + |L2|. -#L1 #L2 elim L2 -L2 // -#L2 #I >append_bind >length_bind >length_bind // -qed. - -lemma ltail_length: âI,L. |â{I}.L| = â|L|. -#I #L >append_length // -qed. - -(* Advanced inversion lemmas on length for local environments ***************) - -(* Basic_2A1: was: length_inv_pos_dx_ltail ) -lemma length_inv_succ_dx_ltail: âL,n. |L| = ân â - ââI,K. |K| = n & L = â{I}.K. -#Y #n #H elim (length_inv_succ_dx â¦ H) -H #I #L #Hn #HLK destruct -elim (lenv_case_tail â¦ L) [2: #K #J ] -#H destruct /2 width=4 by ex2_2_intro/ -qed-. - -(* Basic_2A1: was: length_inv_pos_sn_ltail ) -lemma length_inv_succ_sn_ltail: âL,n. ân = |L| â - ââI,K. n = |K| & L = â{I}.K. -#Y #n #H elim (length_inv_succ_sn â¦ H) -H #I #L #Hn #HLK destruct -elim (lenv_case_tail â¦ L) [2: #K #J ] -#H destruct /2 width=4 by ex2_2_intro/ -qed-. - -(* Inversion lemmas with length for local environments **********************) - -(* Basic_2A1: was: append_inj_sn ) -lemma append_inj_length_sn: âK1,K2,L1,L2. L1 + K1 = L2 + K2 â |K1| = |K2| â - L1 = L2 â§ K1 = K2. -#K1 elim K1 -K1 -[ /2 width=1 by conj/ - #K2 #I2 #L1 #L2 #_ >length_atom >length_bind - #H destruct -| #K1 #I1 #IH * - [ #L1 #L2 #_ >length_atom >length_bind - #H destruct - | #K2 #I2 #L1 #L2 #H1 >length_bind >length_bind #H2 - elim (destruct_lbind_lbind_aux â¦ H1) -H1 #H1 #H3 destruct (**) (* destruct lemma needed ) - elim (IH â¦ H1) -IH -H1 /3 width=4 by conj/ - ] -] -qed-. - -( Note: lemma 750 ) -( Basic_2A1: was: append_inj_dx ) -lemma append_inj_length_dx: âK1,K2,L1,L2. L1 + K1 = L2 + K2 â |L1| = |L2| â - L1 = L2 â§ K1 = K2. -#K1 elim K1 -K1 -[ /2 width=1 by conj/ - #K2 #I2 #L1 #L2 >append_atom >append_bind #H destruct - >length_bind >append_length >plus_n_Sm - #H elim (plus_xSy_x_false â¦ H) -| #K1 #I1 #IH * - [ #L1 #L2 >append_bind >append_atom #H destruct - >length_bind >append_length >plus_n_Sm #H - lapply (discr_plus_x_xy â¦ H) -H #H destruct - | #K2 #I2 #L1 #L2 >append_bind >append_bind #H1 #H2 - elim (destruct_lbind_lbind_aux â¦ H1) -H1 #H1 #H3 destruct (**) (* destruct lemma needed ) - elim (IH â¦ H1) -IH -H1 /2 width=1 by conj/ - ] -] -qed-. - -( Advanced inversion lemmas ************************************************) - -lemma append_inj_dx: âL,K1,K2. L+K1 = L+K2 â K1 = K2. -#L #K1 #K2 #H elim (append_inj_length_dx â¦ H) -H // -qed-. - -lemma append_inv_refl_dx: âL,K. L+K = L â K = â. -#L #K #H elim (append_inj_dx â¦ (â) â¦ H) // -qed-. - -lemma append_inv_pair_dx: âI,L,K,V. L+K = L.â{I}V â K = â.â{I}V. -#I #L #K #V #H elim (append_inj_dx â¦ (â.â{I}V) â¦ H) // -qed-. - -(* Basic eliminators ********************************************************) - -(* Basic_1: was: c_tail_ind ) -( Basic_2A1: was: lenv_ind_alt ) -lemma lenv_ind_tail: âQ:predicate lenv. - Q (â) â (âI,L. Q L â Q (â{I}.L)) â âL. Q L. -#Q #IH1 #IH2 #L @(f_ind â¦ length â¦ L) -L #x #IHx // -#L #I -IH1 #H destruct -elim (lenv_case_tail â¦ L) [2: * #K #J ] -#H destruct /3 width=1 by/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/bind.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/bind.ma deleted file mode 100644 index 487722c44..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/bind.ma +++ /dev/null @@ -1,34 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/term.ma". - -(* BINDERS FOR LOCAL ENVIRONMENTS ******************************************) - -inductive bind: Type[0] â -| BUnit: bind1 â bind -| BPair: bind2 â term â bind -. - -(* Basic properties ********************************************************) - -lemma eq_bind_dec: âI1,I2:bind. Decidable (I1 = I2). -* #I1 [2: #V1 ] * #I2 [2,4: #V2 ] -[1: elim (eq_bind2_dec I1 I2) #HI - [ elim (eq_term_dec V1 V2) #HV ] -|4: elim (eq_bind1_dec I1 I2) #HI -] -/2 width=1 by or_introl/ -@or_intror #H destruct /2 width=1 by/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/bind_weight.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/bind_weight.ma deleted file mode 100644 index 85277a353..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/bind_weight.ma +++ /dev/null @@ -1,31 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/term_weight.ma". -include "basic_2/syntax/bind.ma". - -(* WEIGHT OF A BINDER FOR LOCAL ENVIRONMENTS *******************************) - -rec definition bw I â match I with -[ BUnit _ â 1 -| BPair _ V â â¯{V} -]. - -interpretation "weight (binder for local environments)" 'Weight I = (bw I). - -(* Basic properties *********************************************************) - -lemma bw_pos: âI. 1 â¤ â¯{I}. -* // -qed. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/ceq_ext.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/ceq_ext.ma deleted file mode 100644 index f89840135..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/ceq_ext.ma +++ /dev/null @@ -1,31 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/cext2.ma". - -(* CONTEXT-AWARE SYNTACTIC EQUIVALENCE FOR BINDERS **************************) - -definition ceq_ext: lenv â relation bind â - cext2 ceq. - -(* Basic properties *********************************************************) - -lemma ceq_ext_refl (L): reflexive â¦ (ceq_ext L). -/2 width=1 by ext2_refl/ qed. - -(* Basic inversion lemmas ***************************************************) - -lemma ceq_ext_inv_eq: âL,I1,I2. ceq_ext L I1 I2 â I1 = I2. -#L #I1 #I2 * -I1 -I2 // -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/ceq_ext_ceq_ext.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/ceq_ext_ceq_ext.ma deleted file mode 100644 index 2ab3768a0..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/ceq_ext_ceq_ext.ma +++ /dev/null @@ -1,25 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/ceq_ext.ma". - -(* CONTEXT-AWARE SYNTACTIC EQUIVALENCE FOR BINDERS **************************) - -(* Main properties **********************************************************) - -theorem ceq_ext_trans: âL1,I1,I. ceq_ext L1 I1 I â - âL2,I2. ceq_ext L2 I I2 â âL3. ceq_ext L3 I1 I2. -#L1 #I1 #I * -I1 -I // -#I1 #V1 #V #HV1 #L2 #Z #H elim (ext2_inv_pair_sn â¦ H) -H // -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/cext2.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/cext2.ma deleted file mode 100644 index 6595ba704..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/cext2.ma +++ /dev/null @@ -1,33 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/ext2.ma". -include "basic_2/syntax/lenv.ma". - -(* EXTENSION TO BINDERS OF A CONTEXT-SENSITIVE RELATION FOR TERMS ***********) - -definition cext2: (lenv â relation term) â lenv â relation bind â - Î»R,L. ext2 (R L). - -(* Basic properties *********************************************************) - -lemma cext2_sym: âR. (âL1,L2,T1,T2. R L1 T1 T2 â R L2 T2 T1) â - âL1,L2,I1,I2. cext2 R L1 I1 I2 â cext2 R L2 I2 I1. -#R #HR #L1 #L2 #I1 #I2 * /3 width=2 by ext2_pair/ -qed-. - -lemma cext2_co: âR1,R2. (âL,T1,T2. R1 L T1 T2 â R2 L T1 T2) â - âL,I1,I2. cext2 R1 L I1 I2 â cext2 R2 L I1 I2. -#R1 #R2 #HR #L #I1 #I2 * /3 width=2 by ext2_unit, ext2_pair/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/cl_restricted_weight.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/cl_restricted_weight.ma deleted file mode 100644 index 5af875355..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/cl_restricted_weight.ma +++ /dev/null @@ -1,55 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/functions/weight_2.ma". -include "basic_2/syntax/lenv_weight.ma". - -(* WEIGHT OF A RESTRICTED CLOSURE *******************************************) - -definition rfw: lenv â term â ? â Î»L,T. â¯{L} + â¯{T}. - -interpretation "weight (restricted closure)" 'Weight L T = (rfw L T). - -(* Basic properties *********************************************************) - -(* Basic_1: was: flt_shift ) -lemma rfw_shift: âp,I,K,V,T. â¯{K.â{I}V, T} < â¯{K, â{p,I}V.T}. -normalize /2 width=1 by monotonic_le_plus_r/ -qed. - -lemma rfw_clear: âp,I1,I2,K,V,T. â¯{K.â¤{I1}, T} < â¯{K, â{p,I2}V.T}. -normalize /4 width=1 by monotonic_le_plus_r, le_S_S/ -qed. - -lemma rfw_tpair_sn: âI,L,V,T. â¯{L, V} < â¯{L, â¡{I}V.T}. -normalize in â¢ (?â?â?â?â?%%); // -qed. - -lemma rfw_tpair_dx: âI,L,V,T. â¯{L, T} < â¯{L, â¡{I}V.T}. -normalize in â¢ (?â?â?â?â?%%); // -qed. - -lemma rfw_lpair_sn: âI,L,V,T. â¯{L, V} < â¯{L.â{I}V, T}. -normalize /3 width=1 by monotonic_lt_plus_l, monotonic_le_plus_r/ -qed. - -lemma rfw_lpair_dx: âI,L,V,T. â¯{L, T} < â¯{L.â{I}V, T}. -normalize /3 width=1 by monotonic_lt_plus_l, monotonic_le_plus_r/ -qed. - -( Basic_1: removed theorems 7: - flt_thead_sx flt_thead_dx flt_trans - flt_arith0 flt_arith1 flt_arith2 flt_wf_ind -) -( Basic_1: removed local theorems 1: q_ind *) diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/cl_weight.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/cl_weight.ma deleted file mode 100644 index c4226cd83..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/cl_weight.ma +++ /dev/null @@ -1,53 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/functions/weight_3.ma". -include "basic_2/syntax/lenv_weight.ma". -include "basic_2/syntax/genv.ma". - -(* WEIGHT OF A CLOSURE ******************************************************) - -(* activate genv ) -definition fw: genv â lenv â term â ? â Î»G,L,T. â¯{L} + â¯{T}. - -interpretation "weight (closure)" 'Weight G L T = (fw G L T). - -( Basic properties *********************************************************) - -(* Basic_1: was: flt_shift ) -lemma fw_shift: âp,I,G,K,V,T. â¯{G, K.â{I}V, T} < â¯{G, K, â{p,I}V.T}. -normalize /2 width=1 by monotonic_le_plus_r/ -qed. - -lemma fw_clear: âp,I1,I2,G,K,V,T. â¯{G, K.â¤{I1}, T} < â¯{G, K, â{p,I2}V.T}. -normalize /4 width=1 by monotonic_le_plus_r, le_S_S/ -qed. - -lemma fw_tpair_sn: âI,G,L,V,T. â¯{G, L, V} < â¯{G, L, â¡{I}V.T}. -normalize in â¢ (?â?â?â?â?â?%%); // -qed. - -lemma fw_tpair_dx: âI,G,L,V,T. â¯{G, L, T} < â¯{G, L, â¡{I}V.T}. -normalize in â¢ (?â?â?â?â?â?%%); // -qed. - -lemma fw_lpair_sn: âI,G,L,V,T. â¯{G, L, V} < â¯{G, L.â{I}V, T}. -normalize /3 width=1 by monotonic_lt_plus_l, monotonic_le_plus_r/ -qed. - -( Basic_1: removed theorems 7: - flt_thead_sx flt_thead_dx flt_trans - flt_arith0 flt_arith1 flt_arith2 flt_wf_ind -) -( Basic_1: removed local theorems 1: q_ind *) diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/ext2.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/ext2.ma deleted file mode 100644 index a7d8d7f20..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/ext2.ma +++ /dev/null @@ -1,102 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/bind.ma". - -(* EXTENSION TO BINDERS OF A RELATION FOR TERMS *****************************) - -inductive ext2 (R:relation term): relation bind â -| ext2_unit: âI. ext2 R (BUnit I) (BUnit I) -| ext2_pair: âI,V1,V2. R V1 V2 â ext2 R (BPair I V1) (BPair I V2) -. - -(* Basic_inversion lemmas **************************************************) - -fact ext2_inv_unit_sn_aux: âR,Z1,Z2. ext2 R Z1 Z2 â - âI. Z1 = BUnit I â Z2 = BUnit I. -#R #Z1 #Z2 * -Z1 -Z2 #I [2: #V1 #V2 #_ ] -#J #H destruct // -qed-. - -lemma ext2_inv_unit_sn: âR,I,Z2. ext2 R (BUnit I) Z2 â Z2 = BUnit I. -/2 width=4 by ext2_inv_unit_sn_aux/ qed-. - -fact ext2_inv_pair_sn_aux: âR,Z1,Z2. ext2 R Z1 Z2 â - âI,V1. Z1 = BPair I V1 â - ââV2. R V1 V2 & Z2 = BPair I V2. -#R #Z1 #Z2 * -Z1 -Z2 #I [2: #V1 #V2 #HV12 ] -#J #W1 #H destruct /2 width=3 by ex2_intro/ -qed-. - -lemma ext2_inv_pair_sn: âR,Z2,I,V1. ext2 R (BPair I V1) Z2 â - ââV2. R V1 V2 & Z2 = BPair I V2. -/2 width=3 by ext2_inv_pair_sn_aux/ qed-. - -fact ext2_inv_unit_dx_aux: âR,Z1,Z2. ext2 R Z1 Z2 â - âI. Z2 = BUnit I â Z1 = BUnit I. -#R #Z1 #Z2 * -Z1 -Z2 #I [2: #V1 #V2 #_ ] -#J #H destruct // -qed-. - -lemma ext2_inv_unit_dx: âR,I,Z1. ext2 R Z1 (BUnit I) â Z1 = BUnit I. -/2 width=4 by ext2_inv_unit_dx_aux/ qed-. - -fact ext2_inv_pair_dx_aux: âR,Z1,Z2. ext2 R Z1 Z2 â - âI,V2. Z2 = BPair I V2 â - ââV1. R V1 V2 & Z1 = BPair I V1. -#R #Z1 #Z2 * -Z1 -Z2 #I [2: #V1 #V2 #HV12 ] -#J #W2 #H destruct /2 width=3 by ex2_intro/ -qed-. - -lemma ext2_inv_pair_dx: âR,Z1,I,V2. ext2 R Z1 (BPair I V2) â - ââV1. R V1 V2 & Z1 = BPair I V1. -/2 width=3 by ext2_inv_pair_dx_aux/ qed-. - -(* Advanced inversion lemmas ***********************************************) - -lemma ext2_inv_unit: âR,I1,I2. ext2 R (BUnit I1) (BUnit I2) â I1 = I2. -#R #I1 #I2 #H lapply (ext2_inv_unit_sn â¦ H) -H -#H destruct // -qed-. - -lemma ext2_inv_pair: âR,I1,I2,V1,V2. ext2 R (BPair I1 V1) (BPair I2 V2) â - I1 = I2 â§ R V1 V2. -#R #I1 #I2 #V1 #V2 #H elim (ext2_inv_pair_sn â¦ H) -H -#V #HV #H destruct /2 width=1 by conj/ -qed-. - -(* Basic properties ********************************************************) - -lemma ext2_refl: âR. reflexive â¦ R â reflexive â¦ (ext2 R). -#R #HR * /2 width=1 by ext2_pair/ -qed. - -lemma ext2_sym: âR. symmetric â¦ R â symmetric â¦ (ext2 R). -#R #HR #T1 #T2 * /3 width=1 by ext2_unit, ext2_pair/ -qed-. - -lemma ext2_dec: âR. (âT1,T2. Decidable (R T1 T2)) â - âI1,I2. Decidable (ext2 R I1 I2). -#R #HR * #I1 [2: #T1 ] * #I2 [2,4: #T2 ] -[ elim (eq_bind2_dec I1 I2) #HI12 destruct - [ elim (HR T1 T2) -HR #HT12 /3 width=1 by ext2_pair, or_introl/ ] - @or_intror #H elim (ext2_inv_pair â¦ H) -H /2 width=1 by/ -| @or_intror #H lapply (ext2_inv_unit_sn â¦ H) -H - #H destruct -| @or_intror #H lapply (ext2_inv_unit_dx â¦ H) -H - #H destruct -| elim (eq_bind1_dec I1 I2) #HI12 destruct - /4 width=2 by ext2_inv_unit, ext2_unit, or_intror, or_introl/ -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/ext2_ext2.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/ext2_ext2.ma deleted file mode 100644 index 9abbbc0ba..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/ext2_ext2.ma +++ /dev/null @@ -1,27 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/ext2.ma". - -(* EXTENSION TO BINDERS OF A RELATION FOR TERMS *****************************) - -(* Main properties ) - -theorem ext2_trans: âR. Transitive â¦ R â Transitive â¦ (ext2 R). -#R #HR #I1 #I #H elim H -I1 -I -[ #I1 #J #H >(ext2_inv_unit_sn â¦ H) -J /2 width=1 by ext2_unit/ -| #I1 #V1 #V #HV1 #J #H elim (ext2_inv_pair_sn â¦ H) -H - #V2 #HV2 #H destruct /3 width=3 by ext2_pair/ -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/ext2_tc.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/ext2_tc.ma deleted file mode 100644 index 1fc4bd4bf..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/ext2_tc.ma +++ /dev/null @@ -1,57 +0,0 @@ -(****************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "ground_2/lib/star.ma". -include "basic_2/syntax/ext2.ma". - -(* EXTENSION TO BINDERS OF A RELATION FOR TERMS *****************************) - -(* Properties with transitive closure ***************************************) - -lemma ext2_tc_pair: âR,I,V1,V2. TC â¦ R V1 V2 â - TC â¦ (ext2 R) (BPair I V1) (BPair I V2). -#R #I #V1 #V2 #H elim H -H -V2 -/3 width=3 by ext2_pair, step, inj/ -qed. - -lemma ext2_tc_inj: âR,I1,I2. ext2 R I1 I2 â ext2 (TC â¦ R) I1 I2. -#R #I1 #I2 * -I1 -I2 -/3 width=1 by ext2_unit, ext2_pair, inj/ -qed. - -(* Main properties with transitive closure **********************************) - -theorem ext2_tc_step: âR,I1,I. ext2 (TC â¦ R) I1 I â - âI2. ext2 R I I2 â ext2 (TC â¦ R) I1 I2. -#R #I1 #I * -I1 -I -[ #I #Z #H >(ext2_inv_unit_sn â¦ H) -Z /2 width=1 by ext2_unit/ -| #I #V1 #V #HV1 #Z #H - elim (ext2_inv_pair_sn â¦ H) -H #V2 #HV2 #H destruct - /3 width=3 by ext2_pair, step/ -] -qed-. - -(* Advanced properties with transitive closure ******************************) - -lemma ext2_tc: âR,I1,I2. TC â¦ (ext2 R) I1 I2 â ext2 (TC â¦ R) I1 I2. -#R #I1 #I2 #H elim H -I2 -/2 width=3 by ext2_tc_step, ext2_tc_inj/ -qed. - -(* Advanced inversion lemmas with transitive closure ************************) - -lemma ext2_inv_tc: âR,I1,I2. ext2 (TC â¦ R) I1 I2 â TC â¦ (ext2 R) I1 I2. -#R #I1 #I2 * -I1 -I2 -/3 width=1 by ext2_tc_pair, ext2_unit, inj/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/genv.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/genv.ma deleted file mode 100644 index 3e899a829..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/genv.ma +++ /dev/null @@ -1,52 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/constructors/star_0.ma". -include "basic_2/notation/constructors/dxbind2_3.ma". -include "basic_2/notation/constructors/dxabbr_2.ma". -include "basic_2/notation/constructors/dxabst_2.ma". -include "basic_2/syntax/term.ma". - -(* GLOBAL ENVIRONMENTS ******************************************************) - -(* global environments ) -inductive genv: Type[0] â -| GAtom: genv ( empty ) -| GPair: genv â bind2 â term â genv ( binary binding construction ) -. - -interpretation "sort (global environment)" - 'Star = (GAtom). - -interpretation "global environment binding construction (binary)" - 'DxBind2 G I T = (GPair G I T). - -interpretation "abbreviation (global environment)" - 'DxAbbr G T = (GPair G Abbr T). - -interpretation "abstraction (global environment)" - 'DxAbst G T = (GPair G Abst T). - -( Basic properties *********************************************************) - -lemma eq_genv_dec: âG1,G2:genv. Decidable (G1 = G2). -#G1 elim G1 -G1 [| #G1 #I1 #T1 #IHG1 ] * [2,4: #G2 #I2 #T2 ] -[3: /2 width=1 by or_introl/ -|2: elim (eq_bind2_dec I1 I2) #HI - [ elim (IHG1 G2) -IHG1 #HG - [ elim (eq_term_dec T1 T2) #HT /2 width=1 by or_introl/ ] - ] -] -@or_intror #H destruct /2 width=1 by/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/genv_length.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/genv_length.ma deleted file mode 100644 index bda7b391e..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/genv_length.ma +++ /dev/null @@ -1,25 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/genv.ma". - -(* LENGTH OF A GLOBAL ENVIRONMENT *) - -rec definition glength G on G â match G with -[ GAtom â 0 -| GPair G _ _ â â(glength G) -]. - -interpretation "length (global environment)" - 'card G = (glength G). diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/genv_weight.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/genv_weight.ma deleted file mode 100644 index 632fdc8e5..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/genv_weight.ma +++ /dev/null @@ -1,30 +0,0 @@ -(********************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/term_weight.ma". -include "basic_2/syntax/genv.ma". - -(* WEIGHT OF A GLOBAL ENVIRONMENT *******************************************) - -rec definition gw G â match G with -[ GAtom â 0 -| GPair G I T â gw G + â¯{T} -]. - -interpretation "weight (global environment)" 'Weight G = (gw G). - -(* Basic properties *) - -lemma gw_pair: âI,G,T. â¯{G} < â¯{G.â{I}T}. -normalize /2 width=1 by monotonic_le_plus_r/ qed. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/item.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/item.ma deleted file mode 100644 index ba8357260..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/item.ma +++ /dev/null @@ -1,97 +0,0 @@ -(******************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "ground_2/lib/bool.ma". -include "ground_2/lib/arith.ma". - -(* ITEMS ********************************************************************) - -(* atomic items ) -inductive item0: Type[0] â - | Sort: nat â item0 ( sort: starting at 0 ) - | LRef: nat â item0 ( reference by index: starting at 0 ) - | GRef: nat â item0 ( reference by position: starting at 0 ) -. - -( unary binding items ) -inductive bind1: Type[0] â - | Void: bind1 ( exclusion ) -. - -( binary binding items ) -inductive bind2: Type[0] â - | Abbr: bind2 ( abbreviation ) - | Abst: bind2 ( abstraction ) -. - -( binary non-binding items ) -inductive flat2: Type[0] â - | Appl: flat2 ( application ) - | Cast: flat2 ( explicit type annotation ) -. - -( binary items ) -inductive item2: Type[0] â - | Bind2: bool â bind2 â item2 ( polarized binding item ) - | Flat2: flat2 â item2 ( non-binding item ) -. - -( Basic inversion lemmas ***************************************************) - -fact destruct_sort_sort_aux: âs1,s2. Sort s1 = Sort s2 â s1 = s2. -#s1 #s2 #H destruct // -qed-. - -(* Basic properties *********************************************************) - -lemma eq_item0_dec: âI1,I2:item0. Decidable (I1 = I2). -* #i1 * #i2 [2,3,4,6,7,8: @or_intror #H destruct ] -[2: elim (eq_nat_dec i1 i2) |1,3: elim (eq_nat_dec i1 i2) ] /2 width=1 by or_introl/ -#Hni12 @or_intror #H destruct /2 width=1 by/ -qed-. - -lemma eq_bind1_dec: âI1,I2:bind1. Decidable (I1 = I2). -* * /2 width=1 by or_introl/ -qed-. - -(* Basic_1: was: bind_dec ) -lemma eq_bind2_dec: âI1,I2:bind2. Decidable (I1 = I2). - * /2 width=1 by or_introl/ -@or_intror #H destruct -qed-. - -(* Basic_1: was: flat_dec ) -lemma eq_flat2_dec: âI1,I2:flat2. Decidable (I1 = I2). - * /2 width=1 by or_introl/ -@or_intror #H destruct -qed-. - -(* Basic_1: was: kind_dec ) -lemma eq_item2_dec: âI1,I2:item2. Decidable (I1 = I2). - [ #p1 ] #I1 * [1,3: #p2 ] #I2 -[2,3: @or_intror #H destruct -| elim (eq_bool_dec p1 p2) #Hp - [ elim (eq_bind2_dec I1 I2) /2 width=1 by or_introl/ #HI ] - @or_intror #H destruct /2 width=1 by/ -| elim (eq_flat2_dec I1 I2) /2 width=1 by or_introl/ #HI - @or_intror #H destruct /2 width=1 by/ -] -qed-. - -(* Basic_1: removed theorems 21: - s_S s_plus s_plus_sym s_minus minus_s_s s_le s_lt s_inj s_inc - s_arith0 s_arith1 - r_S r_plus r_plus_sym r_minus r_dis s_r r_arith0 r_arith1 - not_abbr_abst bind_dec_not -*) diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/item_sd.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/item_sd.ma deleted file mode 100644 index 15be7977f..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/item_sd.ma +++ /dev/null @@ -1,124 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/item_sh.ma". - -(* SORT DEGREE **************************************************************) - -(* sort degree specification ) -record sd (h:sh): Type[0] â { - deg : relation nat; ( degree of the sort ) - deg_total: âs. âd. deg s d; ( functional relation axioms ) - deg_mono : âs,d1,d2. deg s d1 â deg s d2 â d1 = d2; - deg_next : âs,d. deg s d â deg (next h s) (âd) ( compatibility condition ) -}. - -( Notable specifications ***************************************************) - -definition deg_O: relation nat â Î»s,d. d = 0. - -definition sd_O: âh. sd h â Î»h. mk_sd h deg_O â¦. -/2 width=2 by le_n_O_to_eq, le_n, ex_intro/ defined. - -(* Basic_2A1: includes: deg_SO_pos ) -inductive deg_SO (h:sh) (s:nat) (s0:nat): predicate nat â -| deg_SO_succ : ân. (next h)^n s0 = s â deg_SO h s s0 (ân) -| deg_SO_zero: ((ân. (next h)^n s0 = s) â â¥) â deg_SO h s s0 0 -. - -fact deg_SO_inv_succ_aux: âh,s,s0,n0. deg_SO h s s0 n0 â ân. n0 = ân â - (next h)^n s0 = s. -#h #s #s0 #n0 -n0 -[ #n #Hn #x #H destruct // -| #_ #x #H destruct -] -qed-. - -(* Basic_2A1: was: deg_SO_inv_pos ) -lemma deg_SO_inv_succ: âh,s,s0,n. deg_SO h s s0 (ân) â (next h)^n s0 = s. -/2 width=3 by deg_SO_inv_succ_aux/ qed-. - -lemma deg_SO_refl: âh,s. deg_SO h s s 1. -#h #s @(deg_SO_succ â¦ 0 ?) // -qed. - -lemma deg_SO_gt: âh,s1,s2. s1 < s2 â deg_SO h s1 s2 0. -#h #s1 #s2 #HK12 @deg_SO_zero #n elim n -n normalize -[ #H destruct - elim (lt_refl_false â¦ HK12) -| #n #_ #H - lapply (next_lt h ((next h)^n s2)) >H -H #H - lapply (transitive_lt â¦ H HK12) -s1 #H1 - lapply (nexts_le h s2 n) #H2 - lapply (le_to_lt_to_lt â¦ H2 H1) -h -n #H - elim (lt_refl_false â¦ H) -] -qed. - -definition sd_SO: âh. nat â sd h â Î»h,s. mk_sd h (deg_SO h s) â¦. -[ #s0 - lapply (nexts_dec h s0 s) * - [ * /3 width=2 by deg_SO_succ, ex_intro/ | /4 width=2 by deg_SO_zero, ex_intro/ ] -| #K0 #d1 #d2 * [ #n1 ] #H1 * [1,3: #n2 ] #H2 // - [ < H2 in H1; -H2 #H - lapply (nexts_inj â¦ H) -H #H destruct // - | elim H1 /2 width=2 by ex_intro/ - | elim H2 /2 width=2 by ex_intro/ - ] -| #s0 #n * - [ #d #H destruct elim d -d normalize - /2 width=1 by deg_SO_gt, deg_SO_succ, next_lt/ - | #H1 @deg_SO_zero * #d #H2 destruct - @H1 -H1 @(ex_intro â¦ (âd)) /2 width=1 by sym_eq/ (**) (* explicit constructor ) - ] -] -defined. - -rec definition sd_d (h:sh) (s:nat) (d:nat) on d : sd h â - match d with - [ O â sd_O h - | S d â match d with - [ O â sd_SO h s - | _ â sd_d h (next h s) d - ] - ]. - -( Basic inversion lemmas ***************************************************) - -lemma deg_inv_pred: âh,o,s,d. deg h o (next h s) (âd) â deg h o s (ââd). -#h #o #s #d #H1 -elim (deg_total h o s) #n #H0 -lapply (deg_next â¦ H0) #H2 -lapply (deg_mono â¦ H1 H2) -H1 -H2 #H >H >S_pred /2 width=2 by ltn_to_ltO/ -qed-. - -lemma deg_inv_prec: âh,o,s,n,d. deg h o ((next h)^n s) (âd) â deg h o s (â(d+n)). -#h #o #s #n elim n -n normalize /3 width=1 by deg_inv_pred/ -qed-. - -(* Basic properties *) - -lemma deg_iter: âh,o,s,d,n. deg h o s d â deg h o ((next h)^n s) (d-n). -#h #o #s #d #n elim n -n normalize /3 width=1 by deg_next/ -qed. - -lemma deg_next_SO: âh,o,s,d. deg h o s (âd) â deg h o (next h s) d. -/2 width=1 by deg_next/ qed-. - -lemma sd_d_SS: âh,s,d. sd_d h s (ââd) = sd_d h (next h s) (âd). -// qed. - -lemma sd_d_correct: âh,d,s. deg h (sd_d h s d) s d. -#h #d elim d -d // #d elim d -d /3 width=1 by deg_inv_pred/ -qed. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/item_sh.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/item_sh.ma deleted file mode 100644 index 9e0b03f73..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/item_sh.ma +++ /dev/null @@ -1,44 +0,0 @@ -(******************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "ground_2/lib/arith.ma". - -(* SORT HIERARCHY ***********************************************************) - -(* sort hierarchy specification ) -record sh: Type[0] â { - next : nat â nat; ( next sort in the hierarchy ) - next_lt: âs. s < next s ( strict monotonicity condition ) -}. - -definition sh_N: sh â mk_sh S â¦. -// defined. - -( Basic properties *) - -lemma nexts_le: âh,s,n. s â¤ (next h)^n s. -#h #s #n elim n -n // normalize #n #IH -lapply (next_lt h ((next h)^n s)) #H -lapply (le_to_lt_to_lt â¦ IH H) -IH -H /2 width=2 by lt_to_le/ -qed. - -lemma nexts_lt: âh,s,n. s < (next h)^(ân) s. -#h #s #n normalize -lapply (nexts_le h s n) #H -@(le_to_lt_to_lt â¦ H) // -qed. - -axiom nexts_dec: âh,s1,s2. Decidable (ân. (next h)^n s1 = s2). - -axiom nexts_inj: âh,s,n1,n2. (next h)^n1 s = (next h)^n2 s â n1 = n2. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/lenv.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/lenv.ma deleted file mode 100644 index 2822b5d4b..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/lenv.ma +++ /dev/null @@ -1,89 +0,0 @@ -(******************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/constructors/star_0.ma". -include "basic_2/notation/constructors/dxitem_2.ma". -include "basic_2/notation/constructors/dxbind1_2.ma". -include "basic_2/notation/constructors/dxbind2_3.ma". -include "basic_2/notation/constructors/dxvoid_1.ma". -include "basic_2/notation/constructors/dxabbr_2.ma". -include "basic_2/notation/constructors/dxabst_2.ma". -include "basic_2/syntax/bind.ma". - -(* LOCAL ENVIRONMENTS *******************************************************) - -(* local environments ) -inductive lenv: Type[0] â -| LAtom: lenv ( empty ) -| LBind: lenv â bind â lenv ( binding construction ) -. - -interpretation "sort (local environment)" - 'Star = LAtom. - -interpretation "local environment binding construction (generic)" - 'DxItem L I = (LBind L I). - -interpretation "local environment binding construction (unary)" - 'DxBind1 L I = (LBind L (BUnit I)). - -interpretation "local environment binding construction (binary)" - 'DxBind2 L I T = (LBind L (BPair I T)). - -interpretation "void (local environment)" - 'DxVoid L = (LBind L (BUnit Void)). - -interpretation "abbreviation (local environment)" - 'DxAbbr L T = (LBind L (BPair Abbr T)). - -interpretation "abstraction (local environment)" - 'DxAbst L T = (LBind L (BPair Abst T)). - -definition cfull: relation3 lenv bind bind â Î»L,I1,I2. â¤. - -definition ceq: relation3 lenv term term â Î»L. eq â¦. - -( Basic properties *********************************************************) - -lemma eq_lenv_dec: âL1,L2:lenv. Decidable (L1 = L2). -#L1 elim L1 -L1 [| #L1 #I1 #IHL1 ] * [2,4: #L2 #I2 ] -[3: /2 width=1 by or_introl/ -|2: elim (eq_bind_dec I1 I2) #HI - [ elim (IHL1 L2) -IHL1 #HL /2 width=1 by or_introl/ ] -] -@or_intror #H destruct /2 width=1 by/ -qed-. - -lemma cfull_dec: âL,T1,T2. Decidable (cfull L T1 T2). -/2 width=1 by or_introl/ qed-. - -(* Basic inversion lemmas ***************************************************) - -fact destruct_lbind_lbind_aux: âI1,I2,L1,L2. L1.â{I1} = L2.â{I2} â - L1 = L2 â§ I1 = I2. -#I1 #I2 #L1 #L2 #H destruct /2 width=1 by conj/ -qed-. - -(* Basic_2A1: uses: discr_lpair_x_xy *) -lemma discr_lbind_x_xy: âI,L. L = L.â{I} â â¥. -#I #L elim L -L -[ #H destruct -| #L #J #IHL #H elim (destruct_lbind_lbind_aux â¦ H) -H (**) (* destruct lemma needed ) - #H1 #H2 destruct /2 width=1 by/ -] -qed-. - -( Basic_2A1: uses: discr_lpair_xy_x *) -lemma discr_lbind_xy_x: âI,L. L.â{I} = L â â¥. -/2 width=4 by discr_lbind_x_xy/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/lenv_length.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/lenv_length.ma deleted file mode 100644 index 440c5497a..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/lenv_length.ma +++ /dev/null @@ -1,61 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/lenv.ma". - -(* LENGTH OF A LOCAL ENVIRONMENT ********************************************) - -rec definition length L â match L with -[ LAtom â 0 -| LBind L _ â â(length L) -]. - -interpretation "length (local environment)" 'card L = (length L). - -(* Basic properties *********************************************************) - -lemma length_atom: |â| = 0. -// qed. - -(* Basic_2A1: uses: length_pair ) -lemma length_bind: âI,L. |L.â{I}| = â|L|. -// qed. - -( Basic inversion lemmas ***************************************************) - -lemma length_inv_zero_dx: âL. |L| = 0 â L = â. -* // #L #I >length_bind -#H destruct -qed-. - -lemma length_inv_zero_sn: âL. 0 = |L| â L = â. -/2 width=1 by length_inv_zero_dx/ qed-. - -(* Basic_2A1: was: length_inv_pos_dx ) -lemma length_inv_succ_dx: ân,L. |L| = ân â - ââI,K. |K| = n & L = K. â{I}. -#n -[ >length_atom #H destruct -| #L #I >length_bind /3 width=4 by ex2_2_intro, injective_S/ -] -qed-. - -(* Basic_2A1: was: length_inv_pos_sn ) -lemma length_inv_succ_sn: ân,L. ân = |L| â - ââI,K. n = |K| & L = K. â{I}. -#n #L #H lapply (sym_eq ??? H) -H -#H elim (length_inv_succ_dx â¦ H) -H /2 width=4 by ex2_2_intro/ -qed-. - -( Basic_2A1: removed theorems 1: length_inj *) diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/lenv_weight.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/lenv_weight.ma deleted file mode 100644 index 74a388944..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/lenv_weight.ma +++ /dev/null @@ -1,35 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/bind_weight.ma". -include "basic_2/syntax/lenv.ma". - -(* WEIGHT OF A LOCAL ENVIRONMENT ********************************************) - -rec definition lw L â match L with -[ LAtom â 0 -| LBind L I â lw L + â¯{I} -]. - -interpretation "weight (local environment)" 'Weight L = (lw L). - -(* Basic properties *********************************************************) - -(* Basic_2A1: uses: lw_pair ) -lemma lw_bind: âI,L. â¯{L} < â¯{L.â{I}}. -normalize /2 width=1 by monotonic_le_plus_r/ qed. - -( Basic_1: removed theorems 4: clt_cong clt_head clt_thead clt_wf_ind ) -( Basic_1: removed local theorems 1: clt_wf__q_ind ) -( Basic_1: note: clt_thead should be renamed clt_ctail *) diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/lveq.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/lveq.ma deleted file mode 100644 index 9dd335a05..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/lveq.ma +++ /dev/null @@ -1,176 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/relations/voidstareq_4.ma". -include "basic_2/syntax/lenv.ma". - -(* EQUIVALENCE FOR LOCAL ENVIRONMENTS UP TO EXCLUSION BINDERS ***************) - -inductive lveq: bi_relation nat lenv â -| lveq_atom : lveq 0 (â) 0 (â) -| lveq_bind : âI1,I2,K1,K2. lveq 0 K1 0 K2 â - lveq 0 (K1.â{I1}) 0 (K2.â{I2}) -| lveq_void_sn: âK1,K2,n1. lveq n1 K1 0 K2 â - lveq (ân1) (K1.â§) 0 K2 -| lveq_void_dx: âK1,K2,n2. lveq 0 K1 n2 K2 â - lveq 0 K1 (ân2) (K2.â§) -. - -interpretation "equivalence up to exclusion binders (local environment)" - 'VoidStarEq L1 n1 n2 L2 = (lveq n1 L1 n2 L2). - -(* Basic properties *********************************************************) - -lemma lveq_refl: âL. L ââ§[0, 0] L. -#L elim L -L /2 width=1 by lveq_atom, lveq_bind/ -qed. - -lemma lveq_sym: bi_symmetric â¦ lveq. -#n1 #n2 #L1 #L2 #H elim H -L1 -L2 -n1 -n2 -/2 width=1 by lveq_atom, lveq_bind, lveq_void_sn, lveq_void_dx/ -qed-. - -( Basic inversion lemmas ***************************************************) - -fact lveq_inv_zero_aux: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â - 0 = n1 â 0 = n2 â - â¨â¨ â§â§ â = L1 & â = L2 - | ââI1,I2,K1,K2. K1 ââ§[0, 0] K2 & K1.â{I1} = L1 & K2.â{I2} = L2. -#L1 #L2 #n1 #n2 * -L1 -L2 -n1 -n2 -[1: /3 width=1 by or_introl, conj/ -|2: /3 width=7 by ex3_4_intro, or_intror/ -|: #K1 #K2 #n #_ #H1 #H2 destruct -] -qed-. - -lemma lveq_inv_zero: âL1,L2. L1 ââ§[0, 0] L2 â - â¨â¨ â§â§ â = L1 & â = L2 - | ââI1,I2,K1,K2. K1 ââ§[0, 0] K2 & K1.â{I1} = L1 & K2.â{I2} = L2. -/2 width=5 by lveq_inv_zero_aux/ qed-. - -fact lveq_inv_succ_sn_aux: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â - âm1. âm1 = n1 â - ââK1. K1 ââ§[m1, 0] L2 & K1.â§ = L1 & 0 = n2. -#L1 #L2 #n1 #n2 -L1 -L2 -n1 -n2 -[1: #m #H destruct -|2: #I1 #I2 #K1 #K2 #_ #m #H destruct -|: #K1 #K2 #n #HK #m #H destruct /2 width=3 by ex3_intro/ -] -qed-. - -lemma lveq_inv_succ_sn: âL1,K2,n1,n2. L1 ââ§[ân1, n2] K2 â - ââK1. K1 ââ§[n1, 0] K2 & K1.â§ = L1 & 0 = n2. -/2 width=3 by lveq_inv_succ_sn_aux/ qed-. - -lemma lveq_inv_succ_dx: âK1,L2,n1,n2. K1 ââ§[n1, ân2] L2 â - ââK2. K1 ââ§[0, n2] K2 & K2.â§ = L2 & 0 = n1. -#K1 #L2 #n1 #n2 #H -lapply (lveq_sym â¦ H) -H #H -elim (lveq_inv_succ_sn â¦ H) -H /3 width=3 by lveq_sym, ex3_intro/ -qed-. - -fact lveq_inv_succ_aux: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â - âm1,m2. âm1 = n1 â âm2 = n2 â â¥. -#L1 #L2 #n1 #n2 * -L1 -L2 -n1 -n2 -[1: #m1 #m2 #H1 #H2 destruct -|2: #I1 #I2 #K1 #K2 #_ #m1 #m2 #H1 #H2 destruct -|: #K1 #K2 #n #_ #m1 #m2 #H1 #H2 destruct -] -qed-. - -lemma lveq_inv_succ: âL1,L2,n1,n2. L1 ââ§[ân1, ân2] L2 â â¥. -/2 width=9 by lveq_inv_succ_aux/ qed-. - -(* Advanced inversion lemmas ************************************************) - -lemma lveq_inv_bind: âI1,I2,K1,K2. K1.â{I1} ââ§[0, 0] K2.â{I2} â K1 ââ§[0, 0] K2. -#I1 #I2 #K1 #K2 #H -elim (lveq_inv_zero â¦ H) -H * [| #Z1 #Z2 #Y1 #Y2 #HY ] #H1 #H2 destruct // -qed-. - -lemma lveq_inv_atom_atom: ân1,n2. â ââ§[n1, n2] â â â§â§ 0 = n1 & 0 = n2. - [2: #n1 ] * [2,4: #n2 ] #H -[ elim (lveq_inv_succ â¦ H) -| elim (lveq_inv_succ_dx â¦ H) -H #Y #_ #H1 #H2 destruct -| elim (lveq_inv_succ_sn â¦ H) -H #Y #_ #H1 #H2 destruct -| /2 width=1 by conj/ -] -qed-. - -lemma lveq_inv_bind_atom: âI1,K1,n1,n2. K1.â{I1} ââ§[n1, n2] â â - ââm1. K1 ââ§[m1, 0] â & BUnit Void = I1 & âm1 = n1 & 0 = n2. -#I1 #K1 * [2: #n1 ] * [2,4: #n2 ] #H -[ elim (lveq_inv_succ â¦ H) -| elim (lveq_inv_succ_dx â¦ H) -H #Y #_ #H1 #H2 destruct -| elim (lveq_inv_succ_sn â¦ H) -H #Y #HY #H1 #H2 destruct /2 width=3 by ex4_intro/ -| elim (lveq_inv_zero â¦ H) -H * - [ #H1 #H2 destruct - | #Z1 #Z2 #Y1 #Y2 #_ #H1 #H2 destruct - ] -] -qed-. - -lemma lveq_inv_atom_bind: âI2,K2,n1,n2. â ââ§[n1, n2] K2.â{I2} â - ââm2. â ââ§[0, m2] K2 & BUnit Void = I2 & 0 = n1 & âm2 = n2. -#I2 #K2 #n1 #n2 #H -lapply (lveq_sym â¦ H) -H #H -elim (lveq_inv_bind_atom â¦ H) -H -/3 width=3 by lveq_sym, ex4_intro/ -qed-. - -lemma lveq_inv_pair_pair: âI1,I2,K1,K2,V1,V2,n1,n2. K1.â{I1}V1 ââ§[n1, n2] K2.â{I2}V2 â - â§â§ K1 ââ§[0, 0] K2 & 0 = n1 & 0 = n2. -#I1 #I2 #K1 #K2 #V1 #V2 * [2: #n1 ] * [2,4: #n2 ] #H -[ elim (lveq_inv_succ â¦ H) -| elim (lveq_inv_succ_dx â¦ H) -H #Y #_ #H1 #H2 destruct -| elim (lveq_inv_succ_sn â¦ H) -H #Y #_ #H1 #H2 destruct -| elim (lveq_inv_zero â¦ H) -H * - [ #H1 #H2 destruct - | #Z1 #Z2 #Y1 #Y2 #HY #H1 #H2 destruct /3 width=1 by and3_intro/ - ] -] -qed-. - -lemma lveq_inv_void_succ_sn: âL1,L2,n1,n2. L1.â§ ââ§[ân1, n2] L2 â - â§â§ L1 â â§[n1, 0] L2 & 0 = n2. -#L1 #L2 #n1 #n2 #H -elim (lveq_inv_succ_sn â¦ H) -H #Y #HY #H1 #H2 destruct /2 width=1 by conj/ -qed-. - -lemma lveq_inv_void_succ_dx: âL1,L2,n1,n2. L1 ââ§[n1, ân2] L2.â§ â - â§â§ L1 â â§[0, n2] L2 & 0 = n1. -#L1 #L2 #n1 #n2 #H -lapply (lveq_sym â¦ H) -H #H -elim (lveq_inv_void_succ_sn â¦ H) -H -/3 width=1 by lveq_sym, conj/ -qed-. - -(* Advanced forward lemmas **************************************************) - -lemma lveq_fwd_gen: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â - â¨â¨ 0 = n1 | 0 = n2. -#L1 #L2 [2: #n1 ] * [2,4: #n2 ] #H -[ elim (lveq_inv_succ â¦ H) ] -/2 width=1 by or_introl, or_intror/ -qed-. - -lemma lveq_fwd_pair_sn: âI1,K1,L2,V1,n1,n2. K1.â{I1}V1 ââ§[n1, n2] L2 â 0 = n1. -#I1 #K1 #L2 #V1 [2: #n1 ] // * [2: #n2 ] #H -[ elim (lveq_inv_succ â¦ H) -| elim (lveq_inv_succ_sn â¦ H) -H #Y #_ #H1 #H2 destruct -] -qed-. - -lemma lveq_fwd_pair_dx: âI2,L1,K2,V2,n1,n2. L1 ââ§*[n1, n2] K2.â{I2}V2 â 0 = n2. -/3 width=6 by lveq_fwd_pair_sn, lveq_sym/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/lveq_length.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/lveq_length.ma deleted file mode 100644 index eca38567c..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/lveq_length.ma +++ /dev/null @@ -1,109 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/lenv_length.ma". -include "basic_2/syntax/lveq.ma". - -(* EQUIVALENCE FOR LOCAL ENVIRONMENTS UP TO EXCLUSION BINDERS ***************) - -(* Properties with length for local environments ****************************) - -lemma lveq_length_eq: âL1,L2. |L1| = |L2| â L1 ââ§[0, 0] L2. -#L1 elim L1 -L1 -[ #Y2 #H >(length_inv_zero_sn â¦ H) -Y2 /2 width=3 by lveq_atom, ex_intro/ -| #K1 #I1 #IH #Y2 #H - elim (length_inv_succ_sn â¦ H) -H #I2 #K2 #HK #H destruct - /3 width=1 by lveq_bind/ -] -qed. - -( Forward lemmas with length for local environments ************************) - -lemma lveq_fwd_length_le_sn: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â n1 â¤ |L1|. -#L1 #L2 #n1 #n2 #H elim H -L1 -L2 -n1 -n2 normalize -/2 width=1 by le_S_S/ -qed-. - -lemma lveq_fwd_length_le_dx: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â n2 â¤ |L2|. -#L1 #L2 #n1 #n2 #H elim H -L1 -L2 -n1 -n2 normalize -/2 width=1 by le_S_S/ -qed-. - -lemma lveq_fwd_length: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â - â§â§ |L1|-|L2| = n1 & |L2|-|L1| = n2. -#L1 #L2 #n1 #n2 #H elim H -L1 -L2 -n1 -n2 /2 width=1 by conj/ -#K1 #K2 #n #_ #H1 #H2 >length_bind /3 width=1 by minus_Sn_m, conj/ -qed-. - -lemma lveq_length_fwd_sn: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â |L1| â¤ |L2| â 0 = n1. -#L1 #L2 #n1 #n2 #H #HL -elim (lveq_fwd_length â¦ H) -H ->(eq_minus_O â¦ HL) // -qed-. - -lemma lveq_length_fwd_dx: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â |L2| â¤ |L1| â 0 = n2. -#L1 #L2 #n1 #n2 #H #HL -elim (lveq_fwd_length â¦ H) -H ->(eq_minus_O â¦ HL) // -qed-. - -lemma lveq_inj_length: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â - |L1| = |L2| â â§â§ 0 = n1 & 0 = n2. -#L1 #L2 #n1 #n2 #H #HL -elim (lveq_fwd_length â¦ H) -H ->HL -HL /2 width=1 by conj/ -qed-. - -lemma lveq_fwd_length_plus: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â - |L1| + n2 = |L2| + n1. -#L1 #L2 #n1 #n2 #H elim H -L1 -L2 -n1 -n2 normalize -/2 width=2 by injective_plus_r/ -qed-. - -lemma lveq_fwd_length_eq: âL1,L2. L1 ââ§[0, 0] L2 â |L1| = |L2|. -/3 width=2 by lveq_fwd_length_plus, injective_plus_l/ qed-. - -lemma lveq_fwd_length_minus: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â - |L1| - n1 = |L2| - n2. -/3 width=3 by lveq_fwd_length_plus, lveq_fwd_length_le_dx, lveq_fwd_length_le_sn, plus_to_minus_2/ qed-. - -lemma lveq_fwd_abst_bind_length_le: âI1,I2,L1,L2,V1,n1,n2. - L1.â{I1}V1 ââ§[n1, n2] L2.â{I2} â |L1| â¤ |L2|. -#I1 #I2 #L1 #L2 #V1 #n1 #n2 #HL -lapply (lveq_fwd_pair_sn â¦ HL) #H destruct -elim (lveq_fwd_length â¦ HL) -HL >length_bind >length_bind // -qed-. - -lemma lveq_fwd_bind_abst_length_le: âI1,I2,L1,L2,V2,n1,n2. - L1.â{I1} ââ§[n1, n2] L2.â{I2}V2 â |L2| â¤ |L1|. -/3 width=6 by lveq_fwd_abst_bind_length_le, lveq_sym/ qed-. - -(* Inversion lemmas with length for local environments **********************) - -lemma lveq_inv_void_dx_length: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2.â§ â |L1| â¤ |L2| â - ââm2. L1 â â§[n1, m2] L2 & 0 = n1 & âm2 = n2. -#L1 #L2 #n1 #n2 #H #HL12 -lapply (lveq_fwd_length_plus â¦ H) normalize >plus_n_Sm #H0 -lapply (plus2_inv_le_sn â¦ H0 HL12) -H0 -HL12 #H0 -elim (le_inv_S1 â¦ H0) -H0 #m2 #_ #H0 destruct -elim (lveq_inv_void_succ_dx â¦ H) -H /2 width=3 by ex3_intro/ -qed-. - -lemma lveq_inv_void_sn_length: âL1,L2,n1,n2. L1.â§ ââ§[n1, n2] L2 â |L2| â¤ |L1| â - ââm1. L1 â â§[m1, n2] L2 & âm1 = n1 & 0 = n2. -#L1 #L2 #n1 #n2 #H #HL -lapply (lveq_sym â¦ H) -H #H -elim (lveq_inv_void_dx_length â¦ H HL) -H -HL -/3 width=4 by lveq_sym, ex3_intro/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/lveq_lveq.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/lveq_lveq.ma deleted file mode 100644 index 40a5fb5c8..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/lveq_lveq.ma +++ /dev/null @@ -1,53 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/lveq_length.ma". - -(* EQUIVALENCE FOR LOCAL ENVIRONMENTS UP TO EXCLUSION BINDERS ***************) - -(* Main inversion lemmas ****************************************************) - -theorem lveq_inv_bind: âK1,K2. K1 ââ§[0, 0] K2 â - âI1,I2,m1,m2. K1.â{I1} ââ§[m1, m2] K2.â{I2} â - â§â§ 0 = m1 & 0 = m2. -#K1 #K2 #HK #I1 #I2 #m1 #m2 #H -lapply (lveq_fwd_length_eq â¦ HK) -HK #HK -elim (lveq_inj_length â¦ H) -H normalize /3 width=1 by conj, eq_f/ -qed-. - -theorem lveq_inj: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â - âm1,m2. L1 ââ§[m1, m2] L2 â - â§â§ n1 = m1 & n2 = m2. -#L1 #L2 #n1 #n2 #Hn #m1 #m2 #Hm -elim (lveq_fwd_length â¦ Hn) -Hn #H1 #H2 destruct -elim (lveq_fwd_length â¦ Hm) -Hm #H1 #H2 destruct -/2 width=1 by conj/ -qed-. - -theorem lveq_inj_void_sn_ge: âK1,K2. |K2| â¤ |K1| â - ân1,n2. K1 ââ§[n1, n2] K2 â - âm1,m2. K1.â§ ââ§[m1, m2] K2 â - â§â§ ân1 = m1 & 0 = m2 & 0 = n2. -#L1 #L2 #HL #n1 #n2 #Hn #m1 #m2 #Hm -elim (lveq_fwd_length â¦ Hn) -Hn #H1 #H2 destruct -elim (lveq_fwd_length â¦ Hm) -Hm #H1 #H2 destruct ->length_bind >eq_minus_S_pred >(eq_minus_O â¦ HL) -/3 width=4 by plus_minus, and3_intro/ -qed-. - -theorem lveq_inj_void_dx_le: âK1,K2. |K1| â¤ |K2| â - ân1,n2. K1 ââ§[n1, n2] K2 â - âm1,m2. K1 ââ§[m1, m2] K2.â§ â - â§â§ ân2 = m2 & 0 = m1 & 0 = n1. -/3 width=5 by lveq_inj_void_sn_ge, lveq_sym/ qed-. (* auto: 2x lveq_sym *) diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/tdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/tdeq.ma deleted file mode 100644 index d431b7677..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/tdeq.ma +++ /dev/null @@ -1,187 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/relations/stareq_4.ma". -include "basic_2/syntax/item_sd.ma". -include "basic_2/syntax/term.ma". - -(* DEGREE-BASED EQUIVALENCE ON TERMS ****************************************) - -inductive tdeq (h) (o): relation term â -| tdeq_sort: âs1,s2,d. deg h o s1 d â deg h o s2 d â tdeq h o (âs1) (âs2) -| tdeq_lref: âi. tdeq h o (#i) (#i) -| tdeq_gref: âl. tdeq h o (Â§l) (Â§l) -| tdeq_pair: âI,V1,V2,T1,T2. tdeq h o V1 V2 â tdeq h o T1 T2 â tdeq h o (â¡{I}V1.T1) (â¡{I}V2.T2) -. - -interpretation - "context-free degree-based equivalence (term)" - 'StarEq h o T1 T2 = (tdeq h o T1 T2). - -(* Basic inversion lemmas ***************************************************) - -fact tdeq_inv_sort1_aux: âh,o,X,Y. X â[h, o] Y â âs1. X = âs1 â - ââs2,d. deg h o s1 d & deg h o s2 d & Y = âs2. -#h #o #X #Y * -X -Y -[ #s1 #s2 #d #Hs1 #Hs2 #s #H destruct /2 width=5 by ex3_2_intro/ -| #i #s #H destruct -| #l #s #H destruct -| #I #V1 #V2 #T1 #T2 #_ #_ #s #H destruct -] -qed-. - -lemma tdeq_inv_sort1: âh,o,Y,s1. âs1 â[h, o] Y â - ââs2,d. deg h o s1 d & deg h o s2 d & Y = âs2. -/2 width=3 by tdeq_inv_sort1_aux/ qed-. - -fact tdeq_inv_lref1_aux: âh,o,X,Y. X â[h, o] Y â âi. X = #i â Y = #i. -#h #o #X #Y * -X -Y // -[ #s1 #s2 #d #_ #_ #j #H destruct -| #I #V1 #V2 #T1 #T2 #_ #_ #j #H destruct -] -qed-. - -lemma tdeq_inv_lref1: âh,o,Y,i. #i â[h, o] Y â Y = #i. -/2 width=5 by tdeq_inv_lref1_aux/ qed-. - -fact tdeq_inv_gref1_aux: âh,o,X,Y. X â[h, o] Y â âl. X = Â§l â Y = Â§l. -#h #o #X #Y * -X -Y // -[ #s1 #s2 #d #_ #_ #k #H destruct -| #I #V1 #V2 #T1 #T2 #_ #_ #k #H destruct -] -qed-. - -lemma tdeq_inv_gref1: âh,o,Y,l. Â§l â[h, o] Y â Y = Â§l. -/2 width=5 by tdeq_inv_gref1_aux/ qed-. - -fact tdeq_inv_pair1_aux: âh,o,X,Y. X â[h, o] Y â âI,V1,T1. X = â¡{I}V1.T1 â - ââV2,T2. V1 â[h, o] V2 & T1 â[h, o] T2 & Y = â¡{I}V2.T2. -#h #o #X #Y * -X -Y -[ #s1 #s2 #d #_ #_ #J #W1 #U1 #H destruct -| #i #J #W1 #U1 #H destruct -| #l #J #W1 #U1 #H destruct -| #I #V1 #V2 #T1 #T2 #HV #HT #J #W1 #U1 #H destruct /2 width=5 by ex3_2_intro/ -] -qed-. - -lemma tdeq_inv_pair1: âh,o,I,V1,T1,Y. â¡{I}V1.T1 â[h, o] Y â - ââV2,T2. V1 â[h, o] V2 & T1 â[h, o] T2 & Y = â¡{I}V2.T2. -/2 width=3 by tdeq_inv_pair1_aux/ qed-. - -(* Advanced inversion lemmas ************************************************) - -lemma tdeq_inv_sort1_deg: âh,o,Y,s1. âs1 â[h, o] Y â âd. deg h o s1 d â - ââs2. deg h o s2 d & Y = âs2. -#h #o #Y #s1 #H #d #Hs1 elim (tdeq_inv_sort1 â¦ H) -H -#s2 #x #Hx <(deg_mono h o â¦ Hx â¦ Hs1) -s1 -d /2 width=3 by ex2_intro/ -qed-. - -lemma tdeq_inv_sort_deg: âh,o,s1,s2. âs1 â[h, o] âs2 â - âd1,d2. deg h o s1 d1 â deg h o s2 d2 â - d1 = d2. -#h #o #s1 #y #H #d1 #d2 #Hs1 #Hy -elim (tdeq_inv_sort1_deg â¦ H â¦ Hs1) -s1 #s2 #Hs2 #H destruct -<(deg_mono h o â¦ Hy â¦ Hs2) -s2 -d1 // -qed-. - -lemma tdeq_inv_pair: âh,o,I1,I2,V1,V2,T1,T2. â¡{I1}V1.T1 â[h, o] â¡{I2}V2.T2 â - â§â§ I1 = I2 & V1 â[h, o] V2 & T1 â[h, o] T2. -#h #o #I1 #I2 #V1 #V2 #T1 #T2 #H elim (tdeq_inv_pair1 â¦ H) -H -#V0 #T0 #HV #HT #H destruct /2 width=1 by and3_intro/ -qed-. - -lemma tdeq_inv_pair_xy_x: âh,o,I,V,T. â¡{I}V.T â[h, o] V â â¥. -#h #o #I #V elim V -V -[ #J #T #H elim (tdeq_inv_pair1 â¦ H) -H #X #Y #_ #_ #H destruct -| #J #X #Y #IHX #_ #T #H elim (tdeq_inv_pair â¦ H) -H #H #HY #_ destruct /2 width=2 by/ -] -qed-. - -lemma tdeq_inv_pair_xy_y: âh,o,I,T,V. â¡{I}V.T â[h, o] T â â¥. -#h #o #I #T elim T -T -[ #J #V #H elim (tdeq_inv_pair1 â¦ H) -H #X #Y #_ #_ #H destruct -| #J #X #Y #_ #IHY #V #H elim (tdeq_inv_pair â¦ H) -H #H #_ #HY destruct /2 width=2 by/ -] -qed-. - -(* Basic forward lemmas *****************************************************) - -lemma tdeq_fwd_atom1: âh,o,I,Y. âª{I} â[h, o] Y â âJ. Y = âª{J}. -#h #o * #x #Y #H [ elim (tdeq_inv_sort1 â¦ H) -H ] -/3 width=4 by tdeq_inv_gref1, tdeq_inv_lref1, ex_intro/ -qed-. - -(* Basic properties *********************************************************) - -lemma tdeq_refl: âh,o. reflexive â¦ (tdeq h o). -#h #o #T elim T -T /2 width=1 by tdeq_pair/ -* /2 width=1 by tdeq_lref, tdeq_gref/ -#s elim (deg_total h o s) /2 width=3 by tdeq_sort/ -qed. - -lemma tdeq_sym: âh,o. symmetric â¦ (tdeq h o). -#h #o #T1 #T2 #H elim H -T1 -T2 -/2 width=3 by tdeq_sort, tdeq_lref, tdeq_gref, tdeq_pair/ -qed-. - -lemma tdeq_dec: âh,o,T1,T2. Decidable (T1 â[h, o] T2). -#h #o #T1 elim T1 -T1 [ * #s1 | #I1 #V1 #T1 #IHV #IHT ] * [1,3,5,7: * #s2 |: #I2 #V2 #T2 ] -[ elim (deg_total h o s1) #d1 #H1 - elim (deg_total h o s2) #d2 #H2 - elim (eq_nat_dec d1 d2) #Hd12 destruct /3 width=3 by tdeq_sort, or_introl/ - @or_intror #H - lapply (tdeq_inv_sort_deg â¦ H â¦ H1 H2) -H -H1 -H2 /2 width=1 by/ -|2,3,13: - @or_intror #H - elim (tdeq_inv_sort1 â¦ H) -H #x1 #x2 #_ #_ #H destruct -|4,6,14: - @or_intror #H - lapply (tdeq_inv_lref1 â¦ H) -H #H destruct -|5: - elim (eq_nat_dec s1 s2) #Hs12 destruct /2 width=1 by or_introl/ - @or_intror #H - lapply (tdeq_inv_lref1 â¦ H) -H #H destruct /2 width=1 by/ -|7,8,15: - @or_intror #H - lapply (tdeq_inv_gref1 â¦ H) -H #H destruct -|9: - elim (eq_nat_dec s1 s2) #Hs12 destruct /2 width=1 by or_introl/ - @or_intror #H - lapply (tdeq_inv_gref1 â¦ H) -H #H destruct /2 width=1 by/ -|10,11,12: - @or_intror #H - elim (tdeq_inv_pair1 â¦ H) -H #X1 #X2 #_ #_ #H destruct -|16: - elim (eq_item2_dec I1 I2) #HI12 destruct - [ elim (IHV V2) -IHV #HV12 - elim (IHT T2) -IHT #HT12 - [ /3 width=1 by tdeq_pair, or_introl/ ] - ] - @or_intror #H - elim (tdeq_inv_pair â¦ H) -H /2 width=1 by/ -] -qed-. - -( Negated inversion lemmas *) - -lemma tdneq_inv_pair: âh,o,I1,I2,V1,V2,T1,T2. - (â¡{I1}V1.T1 â[h, o] â¡{I2}V2.T2 â â¥) â - â¨â¨ I1 = I2 â â¥ - | (V1 â[h, o] V2 â â¥) - | (T1 â[h, o] T2 â â¥). -#h #o #I1 #I2 #V1 #V2 #T1 #T2 #H12 -elim (eq_item2_dec I1 I2) /3 width=1 by or3_intro0/ #H destruct -elim (tdeq_dec h o V1 V2) /3 width=1 by or3_intro1/ -elim (tdeq_dec h o T1 T2) /4 width=1 by tdeq_pair, or3_intro2/ -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/tdeq_ext.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/tdeq_ext.ma deleted file mode 100644 index 93a3be18d..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/tdeq_ext.ma +++ /dev/null @@ -1,40 +0,0 @@ -(**************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/relations/stareq_5.ma". -include "basic_2/syntax/cext2.ma". -include "basic_2/syntax/tdeq.ma". - -(* EXTENDED DEGREE-BASED EQUIVALENCE ) - -definition tdeq_ext: âh. sd h â relation bind â - Î»h,o. ext2 (tdeq h o). - -definition cdeq: âh. sd h â relation3 lenv term term â - Î»h,o,L. tdeq h o. - -definition cdeq_ext: âh. sd h â relation3 lenv bind bind â - Î»h,o. cext2 (cdeq h o). - -interpretation - "context-free degree-based equivalence (binder)" - 'StarEq h o I1 I2 = (tdeq_ext h o I1 I2). - -interpretation - "context-dependent degree-based equivalence (term)" - 'StarEq h o L T1 T2 = (cdeq h o L T1 T2). - -interpretation - "context-dependent degree-based equivalence (binder)" - 'StarEq h o L I1 I2 = (cdeq_ext h o L I1 I2). diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/tdeq_tdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/tdeq_tdeq.ma deleted file mode 100644 index 80d13f4e6..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/tdeq_tdeq.ma +++ /dev/null @@ -1,50 +0,0 @@ -(**********************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/tdeq.ma". - -(* DEGREE-BASED EQUIVALENCE ON TERMS ****************************************) - -(* Main properties **********************************************************) - -theorem tdeq_trans: âh,o. Transitive â¦ (tdeq h o). -#h #o #T1 #T #H elim H -T1 -T -[ #s1 #s #d #Hs1 #Hs #X #H - elim (tdeq_inv_sort1_deg â¦ H â¦ Hs) -s /2 width=3 by tdeq_sort/ -| #i1 #i #H <(tdeq_inv_lref1 â¦ H) -H // -| #l1 #l #H <(tdeq_inv_gref1 â¦ H) -H // -| #I #V1 #V #T1 #T #_ #_ #IHV #IHT #X #H - elim (tdeq_inv_pair1 â¦ H) -H /3 width=1 by tdeq_pair/ -] -qed-. - -theorem tdeq_canc_sn: âh,o. left_cancellable â¦ (tdeq h o). -/3 width=3 by tdeq_trans, tdeq_sym/ qed-. - -theorem tdeq_canc_dx: âh,o. right_cancellable â¦ (tdeq h o). -/3 width=3 by tdeq_trans, tdeq_sym/ qed-. - -theorem tdeq_repl: âh,o,T1,T2. T1 â[h, o] T2 â - âU1. T1 â[h, o] U1 â âU2. T2 â[h, o] U2 â U1 â[h, o] U2. -/3 width=3 by tdeq_canc_sn, tdeq_trans/ qed-. - -(* Negated main properies *) - -theorem tdeq_tdneq_trans: âh,o,T1,T. T1 â[h, o] T â âT2. (T â[h, o] T2 â â¥) â - T1 â[h, o] T2 â â¥. -/3 width=3 by tdeq_canc_sn/ qed-. - -theorem tdneq_tdeq_canc_dx: âh,o,T1,T. (T1 â[h, o] T â â¥) â âT2. T2 â[h, o] T â - T1 â[h, o] T2 â â¥. -/3 width=3 by tdeq_trans/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/term.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/term.ma deleted file mode 100644 index ccbb494dd..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/term.ma +++ /dev/null @@ -1,153 +0,0 @@ -(************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/constructors/item0_1.ma". -include "basic_2/notation/constructors/snitem2_3.ma". -include "basic_2/notation/constructors/snbind2_4.ma". -include "basic_2/notation/constructors/snbind2pos_3.ma". -include "basic_2/notation/constructors/snbind2neg_3.ma". -include "basic_2/notation/constructors/snflat2_3.ma". -include "basic_2/notation/constructors/star_1.ma". -include "basic_2/notation/constructors/lref_1.ma". -include "basic_2/notation/constructors/gref_1.ma". -include "basic_2/notation/constructors/snabbr_3.ma". -include "basic_2/notation/constructors/snabbrpos_2.ma". -include "basic_2/notation/constructors/snabbrneg_2.ma". -include "basic_2/notation/constructors/snabst_3.ma". -include "basic_2/notation/constructors/snabstpos_2.ma". -include "basic_2/notation/constructors/snabstneg_2.ma". -include "basic_2/notation/constructors/snappl_2.ma". -include "basic_2/notation/constructors/sncast_2.ma". -include "basic_2/syntax/item.ma". - -(* TERMS ********************************************************************) - -(* terms ) -inductive term: Type[0] â - | TAtom: item0 â term ( atomic item construction ) - | TPair: item2 â term â term â term ( binary item construction ) -. - -interpretation "term construction (atomic)" - 'Item0 I = (TAtom I). - -interpretation "term construction (binary)" - 'SnItem2 I T1 T2 = (TPair I T1 T2). - -interpretation "term binding construction (binary)" - 'SnBind2 p I T1 T2 = (TPair (Bind2 p I) T1 T2). - -interpretation "term positive binding construction (binary)" - 'SnBind2Pos I T1 T2 = (TPair (Bind2 true I) T1 T2). - -interpretation "term negative binding construction (binary)" - 'SnBind2Neg I T1 T2 = (TPair (Bind2 false I) T1 T2). - -interpretation "term flat construction (binary)" - 'SnFlat2 I T1 T2 = (TPair (Flat2 I) T1 T2). - -interpretation "sort (term)" - 'Star s = (TAtom (Sort s)). - -interpretation "local reference (term)" - 'LRef i = (TAtom (LRef i)). - -interpretation "global reference (term)" - 'GRef l = (TAtom (GRef l)). - -interpretation "abbreviation (term)" - 'SnAbbr p T1 T2 = (TPair (Bind2 p Abbr) T1 T2). - -interpretation "positive abbreviation (term)" - 'SnAbbrPos T1 T2 = (TPair (Bind2 true Abbr) T1 T2). - -interpretation "negative abbreviation (term)" - 'SnAbbrNeg T1 T2 = (TPair (Bind2 false Abbr) T1 T2). - -interpretation "abstraction (term)" - 'SnAbst p T1 T2 = (TPair (Bind2 p Abst) T1 T2). - -interpretation "positive abstraction (term)" - 'SnAbstPos T1 T2 = (TPair (Bind2 true Abst) T1 T2). - -interpretation "negative abstraction (term)" - 'SnAbstNeg T1 T2 = (TPair (Bind2 false Abst) T1 T2). - -interpretation "application (term)" - 'SnAppl T1 T2 = (TPair (Flat2 Appl) T1 T2). - -interpretation "native type annotation (term)" - 'SnCast T1 T2 = (TPair (Flat2 Cast) T1 T2). - -( Basic properties *********************************************************) - -(* Basic_1: was: term_dec ) -lemma eq_term_dec: âT1,T2:term. Decidable (T1 = T2). -#T1 elim T1 -T1 #I1 [| #V1 #T1 #IHV1 #IHT1 ] #I2 [2,4: #V2 #T2 ] -[1,4: @or_intror #H destruct -| elim (eq_item2_dec I1 I2) #HI - [ elim (IHV1 V2) -IHV1 #HV - [ elim (IHT1 T2) -IHT1 /2 width=1 by or_introl/ #HT ] - ] - @or_intror #H destruct /2 width=1 by/ -| elim (eq_item0_dec I1 I2) /2 width=1 by or_introl/ #HI - @or_intror #H destruct /2 width=1 by/ -] -qed-. - -(* Basic inversion lemmas *************************************************) - -fact destruct_tatom_tatom_aux: âI1,I2. âª{I1} = âª{I2} â I1 = I2. -#I1 #I2 #H destruct // -qed-. - -fact destruct_tpair_tpair_aux: âI1,I2,T1,T2,V1,V2. â¡{I1}T1.V1 = â¡{I2}T2.V2 â - â§â§T1 = T2 & I1 = I2 & V1 = V2. -#I1 #I2 #T1 #T2 #V1 #V2 #H destruct /2 width=1 by and3_intro/ -qed-. - -lemma discr_tpair_xy_x: âI,T,V. â¡{I}V.T = V â â¥. -#I #T #V elim V -V -[ #J #H destruct -| #J #W #U #IHW #_ #H elim (destruct_tpair_tpair_aux â¦ H) -H /2 width=1 by/ () (* destruct lemma needed ) -] -qed-. - -( Basic_1: was: thead_x_y_y *) -lemma discr_tpair_xy_y: âI,V,T. â¡{I}V.T = T â â¥. -#I #V #T elim T -T -[ #J #H destruct -| #J #W #U #_ #IHU #H elim (destruct_tpair_tpair_aux â¦ H) -H /2 width=1 by/ (**) (* destruct lemma needed ) -] -qed-. - -lemma eq_false_inv_tpair_sn: âI,V1,T1,V2,T2. - (â¡{I}V1.T1 = â¡{I}V2.T2 â â¥) â - (V1 = V2 â â¥) â¨ (V1 = V2 â§ (T1 = T2 â â¥)). -#I #V1 #T1 #V2 #T2 #H -elim (eq_term_dec V1 V2) /3 width=1 by or_introl/ #HV12 destruct -@or_intror @conj // #HT12 destruct /2 width=1 by/ -qed-. - -lemma eq_false_inv_tpair_dx: âI,V1,T1,V2,T2. - (â¡{I} V1. T1 = â¡{I}V2.T2 â â¥) â - (T1 = T2 â â¥) â¨ (T1 = T2 â§ (V1 = V2 â â¥)). -#I #V1 #T1 #V2 #T2 #H -elim (eq_term_dec T1 T2) /3 width=1 by or_introl/ #HT12 destruct -@or_intror @conj // #HT12 destruct /2 width=1 by/ -qed-. - -( Basic_1: removed theorems 3: - not_void_abst not_abbr_void not_abst_void -*) diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/term_simple.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/term_simple.ma deleted file mode 100644 index e6cfdb3c0..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/term_simple.ma +++ /dev/null @@ -1,42 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/relations/simple_1.ma". -include "basic_2/syntax/term.ma". - -(* SIMPLE (NEUTRAL) TERMS ***************************************************) - -inductive simple: predicate term â - | simple_atom: âI. simple (âª{I}) - | simple_flat: âI,V,T. simple (â{I}V.T) -. - -interpretation "simple (term)" 'Simple T = (simple T). - -(* Basic inversion lemmas ***************************************************) - -fact simple_inv_bind_aux: âT. ðâ¦Tâ¦ â âp,J,W,U. T = â{p,J}W.U â â¥. -#T * -T -[ #I #p #J #W #U #H destruct -| #I #V #T #a #J #W #U #H destruct -] -qed-. - -lemma simple_inv_bind: âp,I,V,T. ðâ¦â{p,I} V. Tâ¦ â â¥. -/2 width=7 by simple_inv_bind_aux/ qed-. - -lemma simple_inv_pair: âI,V,T. ðâ¦â¡{I}V.Tâ¦ â âJ. I = Flat2 J. -* /2 width=2 by ex_intro/ -#p #I #V #T #H elim (simple_inv_bind â¦ H) -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/term_vector.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/term_vector.ma deleted file mode 100644 index df6e6e1cf..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/term_vector.ma +++ /dev/null @@ -1,42 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "ground_2/lib/list.ma". -include "basic_2/notation/functions/snapplvector_2.ma". -include "basic_2/syntax/term_simple.ma". - -(* TERMS ********************************************************************) - -rec definition applv Vs T on Vs â - match Vs with - [ nil â T - | cons hd tl â âhd. (applv tl T) - ]. - -interpretation "application to vector (term)" - 'SnApplVector Vs T = (applv Vs T). - -(* Basic properties *********************************************************) - -lemma applv_nil: âT. â¶âº.T = T. -// qed. - -lemma applv_cons: âV,Vs,T. â¶Vâ¨®Vs.T = âV.â¶Vs.T. -// qed. - -(* Properties with simple terms *********************************************) - -lemma applv_simple: âT,Vs. ðâ¦Tâ¦ â ðâ¦â¶Vs.Tâ¦. -#T * // -qed. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/term_weight.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/term_weight.ma deleted file mode 100644 index 6a0a4ea31..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/term_weight.ma +++ /dev/null @@ -1,38 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/functions/weight_1.ma". -include "basic_2/syntax/term.ma". - -(* WEIGHT OF A TERM *********************************************************) - -rec definition tw T â match T with -[ TAtom _ â 1 -| TPair _ V T â â(tw V + tw T) -]. - -interpretation "weight (term)" 'Weight T = (tw T). - -(* Basic properties *********************************************************) - -(* Basic_1: was: tweight_lt ) -lemma tw_pos: âT. 1 â¤ â¯{T}. -#T elim T -T // -qed. - -( Basic_1: removed theorems 11: - wadd_le wadd_lt wadd_O weight_le weight_eq weight_add_O - weight_add_S tlt_trans tlt_head_sx tlt_head_dx tlt_wf_ind -) -( Basic_1: removed local theorems 1: q_ind *) diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/theq.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/theq.ma deleted file mode 100644 index a09a53533..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/theq.ma +++ /dev/null @@ -1,177 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/notation/relations/topiso_4.ma". -include "basic_2/syntax/item_sd.ma". -include "basic_2/syntax/term.ma". - -(* HEAD EQUIVALENCE FOR TERMS ***********************************************) - -(* Basic_2A1: includes: tsts_atom tsts_pair ) -inductive theq (h) (o): relation term â -| theq_sort: âs1,s2,d. deg h o s1 d â deg h o s2 d â theq h o (âs1) (âs2) -| theq_lref: âi. theq h o (#i) (#i) -| theq_gref: âl. theq h o (Â§l) (Â§l) -| theq_pair: âI,V1,V2,T1,T2. theq h o (â¡{I}V1.T1) (â¡{I}V2.T2) -. - -interpretation "head equivalence (term)" 'TopIso h o T1 T2 = (theq h o T1 T2). - -( Basic inversion lemmas ***************************************************) - -fact theq_inv_sort1_aux: âh,o,X,Y. X â©³[h, o] Y â âs1. X = âs1 â - ââs2,d. deg h o s1 d & deg h o s2 d & Y = âs2. -#h #o #X #Y * -X -Y -[ #s1 #s2 #d #Hs1 #Hs2 #s #H destruct /2 width=5 by ex3_2_intro/ -| #i #s #H destruct -| #l #s #H destruct -| #I #V1 #V2 #T1 #T2 #s #H destruct -] -qed-. - -(* Basic_1: was just: iso_gen_sort ) -lemma theq_inv_sort1: âh,o,Y,s1. âs1 â©³[h, o] Y â - ââs2,d. deg h o s1 d & deg h o s2 d & Y = âs2. -/2 width=3 by theq_inv_sort1_aux/ qed-. - -fact theq_inv_lref1_aux: âh,o,X,Y. X â©³[h, o] Y â âi. X = #i â Y = #i. -#h #o #X #Y -X -Y // -[ #s1 #s2 #d #_ #_ #j #H destruct -| #I #V1 #V2 #T1 #T2 #j #H destruct -] -qed-. - -(* Basic_1: was: iso_gen_lref ) -lemma theq_inv_lref1: âh,o,Y,i. #i â©³[h, o] Y â Y = #i. -/2 width=5 by theq_inv_lref1_aux/ qed-. - -fact theq_inv_gref1_aux: âh,o,X,Y. X â©³[h, o] Y â âl. X = Â§l â Y = Â§l. -#h #o #X #Y -X -Y // -[ #s1 #s2 #d #_ #_ #k #H destruct -| #I #V1 #V2 #T1 #T2 #k #H destruct -] -qed-. - -lemma theq_inv_gref1: âh,o,Y,l. Â§l â©³[h, o] Y â Y = Â§l. -/2 width=5 by theq_inv_gref1_aux/ qed-. - -fact theq_inv_pair1_aux: âh,o,T1,T2. T1 â©³[h, o] T2 â - âJ,W1,U1. T1 = â¡{J}W1.U1 â - ââW2,U2. T2 = â¡{J}W2.U2. -#h #o #T1 #T2 * -T1 -T2 -[ #s1 #s2 #d #_ #_ #J #W1 #U1 #H destruct -| #i #J #W1 #U1 #H destruct -| #l #J #W1 #U1 #H destruct -| #I #V1 #V2 #T1 #T2 #J #W1 #U1 #H destruct /2 width=3 by ex1_2_intro/ -] -qed-. - -(* Basic_1: was: iso_gen_head ) -( Basic_2A1: was: tsts_inv_pair1 ) -lemma theq_inv_pair1: âh,o,J,W1,U1,T2. â¡{J}W1.U1 â©³[h, o] T2 â - ââW2,U2. T2 = â¡{J}W2. U2. -/2 width=7 by theq_inv_pair1_aux/ qed-. - -fact theq_inv_pair2_aux: âh,o,T1,T2. T1 â©³[h, o] T2 â - âJ,W2,U2. T2 = â¡{J}W2.U2 â - ââW1,U1. T1 = â¡{J}W1.U1. -#h #o #T1 #T2 -T1 -T2 -[ #s1 #s2 #d #_ #_ #J #W2 #U2 #H destruct -| #i #J #W2 #U2 #H destruct -| #l #J #W2 #U2 #H destruct -| #I #V1 #V2 #T1 #T2 #J #W2 #U2 #H destruct /2 width=3 by ex1_2_intro/ -] -qed-. - -(* Basic_2A1: was: tsts_inv_pair2 ) -lemma theq_inv_pair2: âh,o,J,T1,W2,U2. T1 â©³[h, o] â¡{J}W2.U2 â - ââW1,U1. T1 = â¡{J}W1.U1. -/2 width=7 by theq_inv_pair2_aux/ qed-. - -( Advanced inversion lemmas ************************************************) - -lemma theq_inv_sort1_deg: âh,o,Y,s1. âs1 â©³[h, o] Y â âd. deg h o s1 d â - ââs2. deg h o s2 d & Y = âs2. -#h #o #Y #s1 #H #d #Hs1 elim (theq_inv_sort1 â¦ H) -H -#s2 #x #Hx <(deg_mono h o â¦ Hx â¦ Hs1) -s1 -d /2 width=3 by ex2_intro/ -qed-. - -lemma theq_inv_sort_deg: âh,o,s1,s2. âs1 â©³[h, o] âs2 â - âd1,d2. deg h o s1 d1 â deg h o s2 d2 â - d1 = d2. -#h #o #s1 #y #H #d1 #d2 #Hs1 #Hy -elim (theq_inv_sort1_deg â¦ H â¦ Hs1) -s1 #s2 #Hs2 #H destruct -<(deg_mono h o â¦ Hy â¦ Hs2) -s2 -d1 // -qed-. - -lemma theq_inv_pair: âh,o,I1,I2,V1,V2,T1,T2. â¡{I1}V1.T1 â©³[h, o] â¡{I2}V2.T2 â - I1 = I2. -#h #o #I1 #I2 #V1 #V2 #T1 #T2 #H elim (theq_inv_pair1 â¦ H) -H -#V0 #T0 #H destruct // -qed-. - -(* Basic properties *********************************************************) - -(* Basic_1: was: iso_refl ) -( Basic_2A1: was: tsts_refl ) -lemma theq_refl: âh,o. reflexive â¦ (theq h o). -#h #o // -* /2 width=1 by theq_lref, theq_gref/ -#s elim (deg_total h o s) /2 width=3 by theq_sort/ -qed. - -(* Basic_2A1: was: tsts_sym ) -lemma theq_sym: âh,o. symmetric â¦ (theq h o). -#h #o #T1 #T2 -T1 -T2 /2 width=3 by theq_sort/ -qed-. - -(* Basic_2A1: was: tsts_dec ) -lemma theq_dec: âh,o,T1,T2. Decidable (T1 â©³[h, o] T2). -#h #o [ * #s1 | #I1 #V1 #T1 ] * [1,3,5,7: * #s2 |: #I2 #V2 #T2 ] -[ elim (deg_total h o s1) #d1 #H1 - elim (deg_total h o s2) #d2 #H2 - elim (eq_nat_dec d1 d2) #Hd12 destruct /3 width=3 by theq_sort, or_introl/ - @or_intror #H - lapply (theq_inv_sort_deg â¦ H â¦ H1 H2) -H -H1 -H2 /2 width=1 by/ -|2,3,13: - @or_intror #H - elim (theq_inv_sort1 â¦ H) -H #x1 #x2 #_ #_ #H destruct -|4,6,14: - @or_intror #H - lapply (theq_inv_lref1 â¦ H) -H #H destruct -|5: - elim (eq_nat_dec s1 s2) #Hs12 destruct /2 width=1 by or_introl/ - @or_intror #H - lapply (theq_inv_lref1 â¦ H) -H #H destruct /2 width=1 by/ -|7,8,15: - @or_intror #H - lapply (theq_inv_gref1 â¦ H) -H #H destruct -|9: - elim (eq_nat_dec s1 s2) #Hs12 destruct /2 width=1 by or_introl/ - @or_intror #H - lapply (theq_inv_gref1 â¦ H) -H #H destruct /2 width=1 by/ -|10,11,12: - @or_intror #H - elim (theq_inv_pair1 â¦ H) -H #X1 #X2 #H destruct -|16: - elim (eq_item2_dec I1 I2) #HI12 destruct - [ /3 width=1 by theq_pair, or_introl/ ] - @or_intror #H - lapply (theq_inv_pair â¦ H) -H /2 width=1 by/ -] -qed-. - -( Basic_2A1: removed theorems 2: - tsts_inv_atom1 tsts_inv_atom2 -*) diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/theq_simple.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/theq_simple.ma deleted file mode 100644 index a260edd75..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/theq_simple.ma +++ /dev/null @@ -1,31 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/term_simple.ma". -include "basic_2/syntax/theq.ma". - -(* HEAD EQUIVALENCE FOR TERMS ***********************************************) - -(* Properies with simple (neutral) terms ************************************) - -(* Basic_2A1: was: simple_tsts_repl_dx ) -lemma simple_theq_repl_dx: âh,o,T1,T2. T1 â©³[h, o] T2 â ðâ¦T1â¦ â ðâ¦T2â¦. -#h #o #T1 #T2 -T1 -T2 // -#I #V1 #V2 #T1 #T2 #H -elim (simple_inv_pair â¦ H) -H #J #H destruct // -qed-. - -(* Basic_2A1: was: simple_tsts_repl_sn *) -lemma simple_theq_repl_sn: âh,o,T1,T2. T1 â©³[h, o] T2 â ðâ¦T2â¦ â ðâ¦T1â¦. -/3 width=5 by simple_theq_repl_dx, theq_sym/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/theq_simple_vector.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/theq_simple_vector.ma deleted file mode 100644 index a17c97090..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/theq_simple_vector.ma +++ /dev/null @@ -1,31 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/term_vector.ma". -include "basic_2/syntax/theq_simple.ma". - -(* HEAD EQUIVALENCE FOR TERMS ***********************************************) - -(* Advanced inversion lemmas with simple (neutral) terms ********************) - -(* Basic_1: was only: iso_flats_lref_bind_false iso_flats_flat_bind_false ) -( Basic_2A1: was: tsts_inv_bind_applv_simple *) -lemma theq_inv_applv_bind_simple: âh,o,p,I,Vs,V2,T1,T2. â¶Vs.T1 â©³[h, o] â{p,I}V2.T2 â - ðâ¦T1â¦ â â¥. -#h #o #p #I #Vs #V2 #T1 #T2 #H elim (theq_inv_pair2 â¦ H) -H -#V0 #T0 elim Vs -Vs normalize -[ #H destruct #H /2 width=5 by simple_inv_bind/ -| #V #Vs #_ #H destruct -] -qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/theq_tdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/theq_tdeq.ma deleted file mode 100644 index e151e40f0..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/theq_tdeq.ma +++ /dev/null @@ -1,24 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/tdeq.ma". -include "basic_2/syntax/theq.ma". - -(* HEAD EQUIVALENCE FOR TERMS ***********************************************) - -(* Properties with degree-based equivalence for terms ***********************) - -lemma tdeq_theq: âh,o,T1,T2. T1 â[h, o] T2 â T1 â©³[h, o] T2. -#h #o #T1 #T2 * -T1 -T2 /2 width=3 by theq_sort, theq_pair/ -qed. diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/theq_theq.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/theq_theq.ma deleted file mode 100644 index 88547d98e..000000000 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/theq_theq.ma +++ /dev/null @@ -1,40 +0,0 @@ -(**************************************************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -include "basic_2/syntax/theq.ma". - -(* HEAD EQUIVALENCE FOR TERMS ***********************************************) - -(* Main properties **********************************************************) - -(* Basic_1: was: iso_trans ) -( Basic_2A1: was: tsts_trans ) -theorem theq_trans: âh,o. Transitive â¦ (theq h o). -#h #o #T1 #T -T1 -T -[ #s1 #s #d #Hs1 #Hs #X #H - elim (theq_inv_sort1_deg â¦ H â¦ Hs) -s /2 width=3 by theq_sort/ -| #i1 #i #H <(theq_inv_lref1 â¦ H) -H // -| #l1 #l #H <(theq_inv_gref1 â¦ H) -H // -| #I #V1 #V #T1 #T #X #H - elim (theq_inv_pair1 â¦ H) -H #V2 #T2 #H destruct // -] -qed-. - -(* Basic_2A1: was: tsts_canc_sn ) -theorem theq_canc_sn: âh,o. left_cancellable â¦ (theq h o). -/3 width=3 by theq_trans, theq_sym/ qed-. - -( Basic_2A1: was: tsts_canc_dx ) -theorem theq_canc_dx: âh,o. right_cancellable â¦ (theq h o). -/3 width=3 by theq_trans, theq_sym/ qed-. diff --git a/matita/matita/contribs/lambdadelta/basic_2/web/basic_2_src.tbl b/matita/matita/contribs/lambdadelta/basic_2/web/basic_2_src.tbl index 7d94ab507..205227ec5 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/web/basic_2_src.tbl +++ b/matita/matita/contribs/lambdadelta/basic_2/web/basic_2_src.tbl @@ -119,155 +119,6 @@ table { ] } ] - class "water" - [ { "iterated static typing" } { - [ { "iterated generic extension of a context-sensitive relation" * } { - [ [ "for lenvs on referred entries" ] "rexs" + "( ? âª¤[?,?] ? )" "rexs_length" + "rexs_lex" + "rexs_drops" + "rexs_fqup" + "rexs_rexs" ] - } - ] - } - ] - class "green" - [ { "static typing" * } { - [ { "generic reducibility" * } { - [ [ "restricted refinement for lenvs" ] "lsubc" + "( ? â¢ ? â«[?] ? )" "lsubc_drops" + "lsubc_lsubr" + "lsubc_lsuba" * ] - [ [ "candidates" ] "gcp_cr" + "( â¦?,?,?â¦ Ïµ[?] ã?ã )" "gcp_aaa" * ] - [ [ "computation properties" ] "gcp" ] - } - ] - [ { "atomic arity assignment" } { - [ [ "restricted refinement for lenvs" ] "lsuba" + "( ? â¢ ? â«â ? )" "lsuba_drops" + "lsuba_lsubr" + "lsuba_aaa" + "lsuba_lsuba" * ] - [ [ "for terms" ] "aaa" + "( â¦?,?â¦ â¢ ? â ? )" "aaa_drops" + "aaa_fqus" + "aaa_rdeq" + "aaa_fdeq" + "aaa_aaa" * ] - } - ] - [ { "degree-based equivalence" * } { - [ [ "for closures on referred entries" ] "fdeq" + "( â¦?,?,?â¦ â[?,?] â¦?,?,?â¦ )" "fdeq_fqup" + "fdeq_fqus" + "fdeq_req" + "fdeq_fdeq" * ] - [ [ "for lenvs on referred entries" ] "rdeq" + "( ? â[?,?,?] ? )" "rdeq_length" + "rdeq_drops" + "rdeq_fqup" + "rdeq_fqus" + "rdeq_req" + "rdeq_rdeq" * ] - } - ] - [ { "syntactic equivalence" * } { - [ [ "for lenvs on referred entries" ] "req" + "( ? â¡[?] ? )" "req_fqup" + "req_fsle" * ] - } - ] - [ { "generic extension of a context-sensitive relation" * } { - [ [ "for lenvs on referred entries" ] "rex" + "( ? âª¤[?,?] ? )" "rex_length" + "rex_lex" + "rex_drops" + "rex_fqup" + "rex_fsle" + "rex_rex" * ] - } - ] - [ { "context-sensitive free variables" * } { - [ [ "inclusion for restricted closures" ] "fsle" + "( â¦?,?â¦ â â¦?,?â¦ )" "fsle_length" + "fsle_drops" + "fsle_fqup" + "fsle_fsle" * ] - [ [ "restricted refinement for lenvs" ] "lsubf" + "( â¦?,?â¦ â«ð* â¦?,?â¦ )" "lsubf_lsubr" + "lsubf_frees" + "lsubf_lsubf" * ] - [ [ "for terms" ] "frees" + "( ? â¢ ðâ¦?â¦ â ? )" "frees_append" + "frees_drops" + "frees_fqup" + "frees_frees" ] - } - ] - [ { "local environments" * } { - [ [ "restricted refinement" ] "lsubr" + "( ? â« ? )" "lsubr_length" + "lsubr_drops" + "lsubr_lsubr" * ] - } - ] - } - ] - class "grass" - [ { "s-computation" * } { - [ { "iterated structural successor" * } { - [ [ "for closures" ] "fqus" + "( â¦?,?,?â¦ â[?] â¦?,?,?â¦ )" + "( â¦?,?,?â¦ â â¦?,?,?â¦ )" "fqus_weight" + "fqus_drops" + "fqus_fqup" + "fqus_fqus" * ] - [ [ "proper for closures" ] "fqup" + "( â¦?,?,?â¦ â+[?] â¦?,?,?â¦ )" + "( â¦?,?,?â¦ â+ â¦?,?,?â¦ )" "fqup_weight" + "fqup_drops" + "fqup_fqup" * ] - } - ] - } - ] - class "yellow" - [ { "s-transition" * } { - [ { "structural successor" * } { - [ [ "for closures" ] "fquq" + "( â¦?,?,?â¦ ââ¸®[?] â¦?,?,?â¦ )" + "( â¦?,?,?â¦ ââ¸® â¦?,?,?â¦ )" "fquq_length" + "fquq_weight" * ] - [ [ "proper for closures" ] "fqu" + "( â¦?,?,?â¦ â[?] â¦?,?,?â¦ )" + "( â¦?,?,?â¦ â â¦?,?,?â¦ )" "fqu_length" + "fqu_weight" + "fqu_tdeq" * ] - } - ] - } - ] - class "orange" - [ { "relocation" * } { - [ { "generic slicing" * } { - [ [ "for lenvs" ] "drops" + "( â¬[?,?] ? â ? )" + "( â¬[?] ? â ? )" "drops_ctc" + "drops_ltc" + "drops_weight" + "drops_length" + "drops_cext2" + "drops_sex" + "drops_lex" + "drops_seq" + "drops_drops" + "drops_vector" * ] - } - ] - [ { "generic relocation" * } { - [ [ "for binders" ] "lifts_bind" + "( â¬[?] ? â ? )" "lifts_weight_bind" + "lifts_lifts_bind" ] - [ [ "for term vectors" ] "lifts_vector" + "( â¬[?] ? â ? )" "lifts_lifts_vector" ] - [ [ "for terms" ] "lifts" + "( â¬[?] ? â ? )" "lifts_simple" + "lifts_weight" + "lifts_tdeq" + "lifts_lifts" ] - } - ] - [ { "syntactic equivalence" * } { - [ [ "for lenvs on selected entries" ] "seq" + "( ? â¡[?] ? )" "seq_length" + "seq_seq" * ] - } - ] - [ { "generic entrywise extension" * } { - [ [ "for lenvs of one contex-sensitive relation" ] "lex" + "( ? âª¤[?] ? )" "lex_tc" + "lex_length" + "lex_lex" * ] - [ [ "for lenvs of two contex-sensitive relations" ] "sex" + "( ? âª¤[?,?,?] ? )" "sex_tc" + "sex_length" + "sex_sex" * ] - } - ] - } - ] - class "red" - [ { "syntax" * } { - [ { "equivalence up to exclusion binders" * } { - [ [ "for lenvs" ] "lveq" + "( ? ââ§[?,?] ? )" "lveq_length" + "lveq_lveq" ] - } - ] - [ { "append" * } { - [ [ "for lenvs" ] "append" + "( ? + ? )" "append_length" * ] - } - ] - [ { "head equivalence" * } { - [ [ "for terms" ] "theq" + "( ? â©³[?,?] ? )" "theq_simple" + "theq_tdeq" + "theq_theq" + "theq_simple_vector" * ] - } - ] - [ { "degree-based equivalence" * } { - [ [ "" ] "tdeq_ext" + "( ? â[?,?] ? )" + "( ? â¢ ? â[?,?] ? )" * ] - [ [ "" ] "tdeq" + "( ? â[?,?] ? )" "tdeq_tdeq" * ] - } - ] - [ { "closures" * } { - [ [ "" ] "cl_weight" + "( â¯{?,?,?} )" * ] - [ [ "" ] "cl_restricted_weight" + "( â¯{?,?} )" * ] - } - ] - [ { "global environments" * } { - [ [ "" ] "genv_length" + "( |?| )" * ] - [ [ "" ] "genv_weight" + "( â¯{?} )" * ] - [ [ "" ] "genv" * ] - } - ] - [ { "local environments" * } { - [ [ "" ] "ceq_ext" "ceq_ext_ceq_ext" * ] - [ [ "" ] "cext2" * ] - [ [ "" ] "lenv_length" + "( |?| )" * ] - [ [ "" ] "lenv_weight" + "( â¯{?} )" * ] - [ [ "" ] "lenv" * ] - } - ] - [ { "binders for local environments" * } { - [ [ "" ] "ext2" "ext2_tc" + "ext2_ext2" * ] - [ [ "" ] "bind" "bind_weight" * ] - } - ] - [ { "terms" * } { - [ [ "" ] "term_vector" + "( â¶?.? )" * ] - [ [ "" ] "term_simple" + "( ðâ¦?â¦ )" * ] - [ [ "" ] "term_weight" + "( â¯{?} )" * ] - [ [ "" ] "term" * ] - } - ] - [ { "items" * } { - [ [ "" ] "item_sd" * ] - [ [ "" ] "item_sh" * ] - [ [ "" ] "item" * ] - } - ] - [ { "atomic arities" * } { - [ [ "" ] "aarity" * ] - } - ] - } - ] } class "top" { * } diff --git a/matita/matita/contribs/lambdadelta/compile_static.sh b/matita/matita/contribs/lambdadelta/compile_static.sh deleted file mode 100644 index 827c52e18..000000000 --- a/matita/matita/contribs/lambdadelta/compile_static.sh +++ /dev/null @@ -1 +0,0 @@ -../../matitac.opt `cat static.txt` diff --git a/matita/matita/contribs/lambdadelta/ground_2/lib/arith.ma b/matita/matita/contribs/lambdadelta/ground_2/lib/arith.ma index 1c13de648..dde95e8a7 100644 --- a/matita/matita/contribs/lambdadelta/ground_2/lib/arith.ma +++ b/matita/matita/contribs/lambdadelta/ground_2/lib/arith.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "ground_2/notation/constructors/uparrow_1.ma". +include "ground_2/notation/functions/uparrow_1.ma". include "ground_2/notation/functions/downarrow_1.ma". include "arithmetics/nat.ma". include "ground_2/lib/relations.ma". diff --git a/matita/matita/contribs/lambdadelta/ground_2/lib/bool.ma b/matita/matita/contribs/lambdadelta/ground_2/lib/bool.ma index 01f2780ff..7dd817f97 100644 --- a/matita/matita/contribs/lambdadelta/ground_2/lib/bool.ma +++ b/matita/matita/contribs/lambdadelta/ground_2/lib/bool.ma @@ -14,8 +14,8 @@ include "basics/bool.ma". include "ground_2/lib/relations.ma". -include "ground_2/notation/constructors/no_0.ma". -include "ground_2/notation/constructors/yes_0.ma". +include "ground_2/notation/functions/no_0.ma". +include "ground_2/notation/functions/yes_0.ma". (* BOOLEAN PROPERTIES *******************************************************) diff --git a/matita/matita/contribs/lambdadelta/ground_2/lib/list.ma b/matita/matita/contribs/lambdadelta/ground_2/lib/list.ma index 07e13ea8f..fb643311a 100644 --- a/matita/matita/contribs/lambdadelta/ground_2/lib/list.ma +++ b/matita/matita/contribs/lambdadelta/ground_2/lib/list.ma @@ -12,8 +12,8 @@ (* *) (**************************************************************************) -include "ground_2/notation/constructors/circledE_1.ma". -include "ground_2/notation/constructors/oplusright_3.ma". +include "ground_2/notation/functions/circledE_1.ma". +include "ground_2/notation/functions/oplusright_3.ma". include "ground_2/lib/relations.ma". (* LISTS ********************************************************************) diff --git a/matita/matita/contribs/lambdadelta/ground_2/lib/streams.ma b/matita/matita/contribs/lambdadelta/ground_2/lib/streams.ma index a308e5481..e1b3a6812 100644 --- a/matita/matita/contribs/lambdadelta/ground_2/lib/streams.ma +++ b/matita/matita/contribs/lambdadelta/ground_2/lib/streams.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "ground_2/notation/constructors/oplusright_3.ma". +include "ground_2/notation/functions/oplusright_3.ma". include "ground_2/lib/relations.ma". (* STREAMS ) diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/circledE_1.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/circledE_1.ma deleted file mode 100644 index 53cf85698..000000000 --- a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/circledE_1.ma +++ /dev/null @@ -1,27 +0,0 @@ -(********) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) - -notation < "hvbox( âº )" - non associative with precedence 55 - for @{ 'CircledE $S }. - -notation > "hvbox( âº )" - non associative with precedence 55 - for @{ 'CircledE ? }. - -notation > "hvbox( âº{ term 46 C } )" - non associative with precedence 55 - for @{ 'CircledE $S }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/diamond_0.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/diamond_0.ma deleted file mode 100644 index 4f218dd61..000000000 --- a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/diamond_0.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**********************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) - -notation "â" - non associative with precedence 55 - for @{ 'Diamond }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/infinity_0.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/infinity_0.ma deleted file mode 100644 index f5c849158..000000000 --- a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/infinity_0.ma +++ /dev/null @@ -1,20 +0,0 @@ -(**********************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) - -notation "â" - non associative with precedence 55 - for @{ 'Infinity }. - diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/no_0.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/no_0.ma deleted file mode 100644 index af692211e..000000000 --- a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/no_0.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**********************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) - -notation "â»" - non associative with precedence 55 - for @{'no}. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/onezero_0.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/onezero_0.ma deleted file mode 100644 index 5df776e6a..000000000 --- a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/onezero_0.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**********************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) - -notation "ðð" - non associative with precedence 55 - for @{ 'OneZero }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/oplusright_3.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/oplusright_3.ma deleted file mode 100644 index e172f4abe..000000000 --- a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/oplusright_3.ma +++ /dev/null @@ -1,27 +0,0 @@ -(**********************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) - -notation < "hvbox( hd â¨® break tl )" - right associative with precedence 47 - for @{ 'OPlusRight $S $hd $tl }. - -notation > "hvbox( hd â¨® break tl )" - right associative with precedence 47 - for @{ 'OPlusRight ? $hd $tl }. - -notation > "hvbox( hd â¨®{ break term 46 S } break term 46 tl )" - non associative with precedence 47 - for @{ 'OPlusRight $S $hd $tl }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/semicolon_3.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/semicolon_3.ma deleted file mode 100644 index 44b7c17a5..000000000 --- a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/semicolon_3.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**********************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) - -notation "hvbox( { term 46 hd1, break term 46 hd2 }; break term 46 tl )" - non associative with precedence 47 - for @{ 'Semicolon $hd1 $hd2 $tl }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/tuple_4.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/tuple_4.ma deleted file mode 100644 index 551ee0d94..000000000 --- a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/tuple_4.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**********************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) - -notation "hvbox ( â© term 46 x1, break term 46 x2 , break term 46 x3, break term 46 x4 âª )" - non associative with precedence 55 - for @{ 'Tuple $x1 $x2 $x3 $x4 }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/uparrow_1.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/uparrow_1.ma deleted file mode 100644 index 01bc8d156..000000000 --- a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/uparrow_1.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**********************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) - -notation "hvbox( â term 70 T )" - non associative with precedence 70 - for @{ 'UpArrow $T }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/yes_0.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/yes_0.ma deleted file mode 100644 index c321749ae..000000000 --- a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/yes_0.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**********************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) - -notation "â" - non associative with precedence 55 - for @{'yes}. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/zeroone_0.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/zeroone_0.ma deleted file mode 100644 index ff195abe1..000000000 --- a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/zeroone_0.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**********************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) - -notation "ðð" - non associative with precedence 55 - for @{ 'ZeroOne }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/zerozero_0.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/zerozero_0.ma deleted file mode 100644 index cb4b10dad..000000000 --- a/matita/matita/contribs/lambdadelta/ground_2/notation/constructors/zerozero_0.ma +++ /dev/null @@ -1,19 +0,0 @@ -(**********************************************) -(* ___ ) -( ||M|| ) -( ||A|| A project by Andrea Asperti ) -( ||T|| ) -( ||I|| Developers: ) -( ||T|| The HELM team. ) -( ||A|| http://helm.cs.unibo.it ) -( \ / ) -( \ / This file is distributed under the terms of the ) -( v GNU General Public License Version 2 ) -( *) -(**************************************************************************) - -(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) - -notation "ðð" - non associative with precedence 55 - for @{ 'ZeroZero }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/functions/circledE_1.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/circledE_1.ma new file mode 100644 index 000000000..53cf85698 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/circledE_1.ma @@ -0,0 +1,27 @@ +(**********************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) + +notation < "hvbox( âº )" + non associative with precedence 55 + for @{ 'CircledE $S }. + +notation > "hvbox( âº )" + non associative with precedence 55 + for @{ 'CircledE ? }. + +notation > "hvbox( âº{ term 46 C } )" + non associative with precedence 55 + for @{ 'CircledE $S }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/functions/diamond_0.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/diamond_0.ma new file mode 100644 index 000000000..4f218dd61 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/diamond_0.ma @@ -0,0 +1,19 @@ +(**********************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) + +notation "â" + non associative with precedence 55 + for @{ 'Diamond }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/functions/infinity_0.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/infinity_0.ma new file mode 100644 index 000000000..f5c849158 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/infinity_0.ma @@ -0,0 +1,20 @@ +(**********************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) + +notation "â" + non associative with precedence 55 + for @{ 'Infinity }. + diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/functions/no_0.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/no_0.ma new file mode 100644 index 000000000..af692211e --- /dev/null +++ b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/no_0.ma @@ -0,0 +1,19 @@ +(**********************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) + +notation "â»" + non associative with precedence 55 + for @{'no}. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/functions/onezero_0.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/onezero_0.ma new file mode 100644 index 000000000..5df776e6a --- /dev/null +++ b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/onezero_0.ma @@ -0,0 +1,19 @@ +(**********************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) + +notation "ðð" + non associative with precedence 55 + for @{ 'OneZero }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/functions/oplusright_3.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/oplusright_3.ma new file mode 100644 index 000000000..e172f4abe --- /dev/null +++ b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/oplusright_3.ma @@ -0,0 +1,27 @@ +(**********************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) + +notation < "hvbox( hd â¨® break tl )" + right associative with precedence 47 + for @{ 'OPlusRight $S $hd $tl }. + +notation > "hvbox( hd â¨® break tl )" + right associative with precedence 47 + for @{ 'OPlusRight ? $hd $tl }. + +notation > "hvbox( hd â¨®{ break term 46 S } break term 46 tl )" + non associative with precedence 47 + for @{ 'OPlusRight $S $hd $tl }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/functions/semicolon_3.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/semicolon_3.ma new file mode 100644 index 000000000..44b7c17a5 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/semicolon_3.ma @@ -0,0 +1,19 @@ +(**********************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( { term 46 hd1, break term 46 hd2 }; break term 46 tl )" + non associative with precedence 47 + for @{ 'Semicolon $hd1 $hd2 $tl }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/functions/tuple_4.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/tuple_4.ma new file mode 100644 index 000000000..551ee0d94 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/tuple_4.ma @@ -0,0 +1,19 @@ +(**********************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox ( â© term 46 x1, break term 46 x2 , break term 46 x3, break term 46 x4 âª )" + non associative with precedence 55 + for @{ 'Tuple $x1 $x2 $x3 $x4 }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/functions/uparrow_1.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/uparrow_1.ma new file mode 100644 index 000000000..01bc8d156 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/uparrow_1.ma @@ -0,0 +1,19 @@ +(**********************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â term 70 T )" + non associative with precedence 70 + for @{ 'UpArrow $T }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/functions/yes_0.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/yes_0.ma new file mode 100644 index 000000000..c321749ae --- /dev/null +++ b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/yes_0.ma @@ -0,0 +1,19 @@ +(**********************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) + +notation "â" + non associative with precedence 55 + for @{'yes}. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/functions/zeroone_0.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/zeroone_0.ma new file mode 100644 index 000000000..ff195abe1 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/zeroone_0.ma @@ -0,0 +1,19 @@ +(**********************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ) + +notation "ðð" + non associative with precedence 55 + for @{ 'ZeroOne }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/notation/functions/zerozero_0.ma b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/zerozero_0.ma new file mode 100644 index 000000000..cb4b10dad --- /dev/null +++ b/matita/matita/contribs/lambdadelta/ground_2/notation/functions/zerozero_0.ma @@ -0,0 +1,19 @@ +(**********************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* GENERAL NOTATION USED BY THE FORMAL SYSTEM Î»Î´ ****************************) + +notation "ðð" + non associative with precedence 55 + for @{ 'ZeroZero }. diff --git a/matita/matita/contribs/lambdadelta/ground_2/relocation/mr2.ma b/matita/matita/contribs/lambdadelta/ground_2/relocation/mr2.ma index b6062f295..6efc427c8 100644 --- a/matita/matita/contribs/lambdadelta/ground_2/relocation/mr2.ma +++ b/matita/matita/contribs/lambdadelta/ground_2/relocation/mr2.ma @@ -12,8 +12,8 @@ (* *) (**************************************************************************) -include "ground_2/notation/constructors/diamond_0.ma". -include "ground_2/notation/constructors/semicolon_3.ma". +include "ground_2/notation/functions/diamond_0.ma". +include "ground_2/notation/functions/semicolon_3.ma". include "ground_2/lib/arith.ma". (* MULTIPLE RELOCATION WITH PAIRS *******************************************) diff --git a/matita/matita/contribs/lambdadelta/ground_2/steps/rtc.ma b/matita/matita/contribs/lambdadelta/ground_2/steps/rtc.ma index 87c091b19..1e08d2474 100644 --- a/matita/matita/contribs/lambdadelta/ground_2/steps/rtc.ma +++ b/matita/matita/contribs/lambdadelta/ground_2/steps/rtc.ma @@ -12,10 +12,10 @@ (* *) (**************************************************************************) -include "ground_2/notation/constructors/tuple_4.ma". -include "ground_2/notation/constructors/zerozero_0.ma". -include "ground_2/notation/constructors/zeroone_0.ma". -include "ground_2/notation/constructors/onezero_0.ma". +include "ground_2/notation/functions/tuple_4.ma". +include "ground_2/notation/functions/zerozero_0.ma". +include "ground_2/notation/functions/zeroone_0.ma". +include "ground_2/notation/functions/onezero_0.ma". include "ground_2/lib/arith.ma". (* RT-TRANSITION COUNTER ) diff --git a/matita/matita/contribs/lambdadelta/ground_2/ynat/ynat.ma b/matita/matita/contribs/lambdadelta/ground_2/ynat/ynat.ma index 7e2c2dc6c..4f3f85bb9 100644 --- a/matita/matita/contribs/lambdadelta/ground_2/ynat/ynat.ma +++ b/matita/matita/contribs/lambdadelta/ground_2/ynat/ynat.ma @@ -13,7 +13,7 @@ (**********************) include "ground_2/lib/arith.ma". -include "ground_2/notation/constructors/infinity_0.ma". +include "ground_2/notation/functions/infinity_0.ma". (* NATURAL NUMBERS WITH INFINITY ********************************************) diff --git a/matita/matita/contribs/lambdadelta/partial.txt b/matita/matita/contribs/lambdadelta/partial.txt index 40cb2929d..9ab2c9283 100644 --- a/matita/matita/contribs/lambdadelta/partial.txt +++ b/matita/matita/contribs/lambdadelta/partial.txt @@ -1,10 +1,5 @@ ground_2 -basic_2/syntax -basic_2/relocation -basic_2/s_transition -basic_2/s_computation -basic_2/static -basic_2/i_static +static_2 basic_2/rt_transition basic_2/rt_computation basic_2/rt_conversion diff --git a/matita/matita/contribs/lambdadelta/replace.sh b/matita/matita/contribs/lambdadelta/replace.sh index 291dc454a..fcc328a85 100644 --- a/matita/matita/contribs/lambdadelta/replace.sh +++ b/matita/matita/contribs/lambdadelta/replace.sh @@ -1,5 +1,5 @@ #!/bin/sh -for SRC in `find ground_2 basic_2 apps_2 -name ".ma" -or -name ".tbl"`; do +for SRC in `find grond_2 static_2 basic_2 apps_2 -name ".ma" -or -name ".tbl"`; do sed "s!$1!$2!g" ${SRC} > ${SRC}.new if [ ! -s ${SRC}.new ] || diff ${SRC} ${SRC}.new > /dev/null; then rm -f ${SRC}.new; diff --git a/matita/matita/contribs/lambdadelta/static.txt b/matita/matita/contribs/lambdadelta/static.txt deleted file mode 100644 index 7596031ba..000000000 --- a/matita/matita/contribs/lambdadelta/static.txt +++ /dev/null @@ -1,7 +0,0 @@ -ground_2 -basic_2/syntax -basic_2/relocation -basic_2/s_transition -basic_2/s_computation -basic_2/static -basic_2/i_static diff --git a/matita/matita/contribs/lambdadelta/static_2/i_static/rexs.ma b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs.ma new file mode 100644 index 000000000..8beb5bc3f --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs.ma @@ -0,0 +1,195 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/lib/star.ma". +include "static_2/notation/relations/relationstar_4.ma". +include "static_2/static/rex.ma". + +(* ITERATED EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ***) + +definition rexs (R): term â relation lenv â CTC â¦ (rex R). + +interpretation "iterated extension on referred entries (local environment)" + 'RelationStar R T L1 L2 = (rexs R T L1 L2). + +(* Basic properties *********************************************************) + +lemma rexs_step_dx: âR,L1,L,T. L1 âª¤[R, T] L â + âL2. L âª¤[R, T] L2 â L1 âª¤[R, T] L2. +#R #L1 #L2 #T #HL1 #L2 @step @HL1 (**) (* auto fails ) +qed-. + +lemma rexs_step_sn: âR,L1,L,T. L1 âª¤[R, T] L â + âL2. L âª¤[R, T] L2 â L1 âª¤*[R, T] L2. +#R #L1 #L2 #T #HL1 #L2 @TC_strap @HL1 (**) (* auto fails ) +qed-. + +lemma rexs_atom: âR,I. â âª¤[R, âª{I}] â. +/2 width=1 by inj/ qed. + +lemma rexs_sort: âR,I,L1,L2,V1,V2,s. + L1 âª¤[R, âs] L2 â L1.â{I}V1 âª¤[R, âs] L2.â{I}V2. +#R #I #L1 #L2 #V1 #V2 #s #H elim H -L2 +/3 width=4 by rex_sort, rexs_step_dx, inj/ +qed. + +lemma rexs_pair: âR. (âL. reflexive â¦ (R L)) â + âI,L1,L2,V. L1 âª¤[R, V] L2 â + L1.â{I}V âª¤[R, #0] L2.â{I}V. +#R #HR #I #L1 #L2 #V #H elim H -L2 +/3 width=5 by rex_pair, rexs_step_dx, inj/ +qed. + +lemma rexs_unit: âR,f,I,L1,L2. ðâ¦fâ¦ â L1 âª¤[cext2 R, cfull, f] L2 â + L1.â¤{I} âª¤[R, #0] L2.â¤{I}. +/3 width=3 by rex_unit, inj/ qed. + +lemma rexs_lref: âR,I,L1,L2,V1,V2,i. + L1 âª¤[R, #i] L2 â L1.â{I}V1 âª¤[R, #âi] L2.â{I}V2. +#R #I #L1 #L2 #V1 #V2 #i #H elim H -L2 +/3 width=4 by rex_lref, rexs_step_dx, inj/ +qed. + +lemma rexs_gref: âR,I,L1,L2,V1,V2,l. + L1 âª¤[R, Â§l] L2 â L1.â{I}V1 âª¤[R, Â§l] L2.â{I}V2. +#R #I #L1 #L2 #V1 #V2 #l #H elim H -L2 +/3 width=4 by rex_gref, rexs_step_dx, inj/ +qed. + +lemma rexs_co: âR1,R2. (âL,T1,T2. R1 L T1 T2 â R2 L T1 T2) â + âL1,L2,T. L1 âª¤[R1, T] L2 â L1 âª¤[R2, T] L2. +#R1 #R2 #HR #L1 #L2 #T #H elim H -L2 +/4 width=5 by rex_co, rexs_step_dx, inj/ +qed-. + +( Basic inversion lemmas ***************************************************) + +(* Basic_2A1: uses: TC_lpx_sn_inv_atom1 ) +lemma rexs_inv_atom_sn: âR,I,Y2. â âª¤[R, âª{I}] Y2 â Y2 = â. +#R #I #Y2 #H elim H -Y2 /3 width=3 by inj, rex_inv_atom_sn/ +qed-. + +(* Basic_2A1: uses: TC_lpx_sn_inv_atom2 ) +lemma rexs_inv_atom_dx: âR,I,Y1. Y1 âª¤[R, âª{I}] â â Y1 = â. +#R #I #Y1 #H @(TC_ind_dx ??????? H) -Y1 +/3 width=3 by inj, rex_inv_atom_dx/ +qed-. + +lemma rexs_inv_sort: âR,Y1,Y2,s. Y1 âª¤[R, âs] Y2 â + â¨â¨ â§â§ Y1 = â & Y2 = â + | ââI1,I2,L1,L2. L1 âª¤[R, âs] L2 & + Y1 = L1.â{I1} & Y2 = L2.â{I2}. +#R #Y1 #Y2 #s #H elim H -Y2 +[ #Y2 #H elim (rex_inv_sort â¦ H) -H * + /4 width=8 by ex3_4_intro, inj, or_introl, or_intror, conj/ +| #Y #Y2 #_ #H elim (rex_inv_sort â¦ H) -H * + [ #H #H2 * * /3 width=7 by ex3_4_intro, or_introl, or_intror, conj/ + | #I #I2 #L #L2 #HL2 #H #H2 * * + [ #H1 #H0 destruct + | #I1 #I0 #L1 #L0 #HL10 #H1 #H0 destruct + /4 width=7 by ex3_4_intro, rexs_step_dx, or_intror/ + ] + ] +] +qed-. + +lemma rexs_inv_gref: âR,Y1,Y2,l. Y1 âª¤[R, Â§l] Y2 â + â¨â¨ â§â§ Y1 = â & Y2 = â + | ââI1,I2,L1,L2. L1 âª¤[R, Â§l] L2 & + Y1 = L1.â{I1} & Y2 = L2.â{I2}. +#R #Y1 #Y2 #l #H elim H -Y2 +[ #Y2 #H elim (rex_inv_gref â¦ H) -H * + /4 width=8 by ex3_4_intro, inj, or_introl, or_intror, conj/ +| #Y #Y2 #_ #H elim (rex_inv_gref â¦ H) -H * + [ #H #H2 * * /3 width=7 by ex3_4_intro, or_introl, or_intror, conj/ + | #I #I2 #L #L2 #HL2 #H #H2 * * + [ #H1 #H0 destruct + | #I1 #I0 #L1 #L0 #HL10 #H1 #H0 destruct + /4 width=7 by ex3_4_intro, rexs_step_dx, or_intror/ + ] + ] +] +qed-. + +lemma rexs_inv_bind: âR. (âL. reflexive â¦ (R L)) â + âp,I,L1,L2,V,T. L1 âª¤[R, â{p,I}V.T] L2 â + â§â§ L1 âª¤[R, V] L2 & L1.â{I}V âª¤[R, T] L2.â{I}V. +#R #HR #p #I #L1 #L2 #V #T #H elim H -L2 +[ #L2 #H elim (rex_inv_bind â¦ V ? H) -H /3 width=1 by inj, conj/ +| #L #L2 #_ #H elim (rex_inv_bind â¦ V ? H) -H /3 width=3 by rexs_step_dx, conj/ +] +qed-. + +lemma rexs_inv_flat: âR,I,L1,L2,V,T. L1 âª¤[R, â{I}V.T] L2 â + â§â§ L1 âª¤[R, V] L2 & L1 âª¤[R, T] L2. +#R #I #L1 #L2 #V #T #H elim H -L2 +[ #L2 #H elim (rex_inv_flat â¦ H) -H /3 width=1 by inj, conj/ +| #L #L2 #_ #H elim (rex_inv_flat â¦ H) -H /3 width=3 by rexs_step_dx, conj/ +] +qed-. + +(* Advanced inversion lemmas ************************************************) + +lemma rexs_inv_sort_bind_sn: âR,I1,Y2,L1,s. L1.â{I1} âª¤[R, âs] Y2 â + ââI2,L2. L1 âª¤[R, âs] L2 & Y2 = L2.â{I2}. +#R #I1 #Y2 #L1 #s #H elim (rexs_inv_sort â¦ H) -H * +[ #H destruct +| #Z #I2 #Y1 #L2 #Hs #H1 #H2 destruct /2 width=4 by ex2_2_intro/ +] +qed-. + +lemma rexs_inv_sort_bind_dx: âR,I2,Y1,L2,s. Y1 âª¤[R, âs] L2.â{I2} â + ââI1,L1. L1 âª¤[R, âs] L2 & Y1 = L1.â{I1}. +#R #I2 #Y1 #L2 #s #H elim (rexs_inv_sort â¦ H) -H * +[ #_ #H destruct +| #I1 #Z #L1 #Y2 #Hs #H1 #H2 destruct /2 width=4 by ex2_2_intro/ +] +qed-. + +lemma rexs_inv_gref_bind_sn: âR,I1,Y2,L1,l. L1.â{I1} âª¤[R, Â§l] Y2 â + ââI2,L2. L1 âª¤[R, Â§l] L2 & Y2 = L2.â{I2}. +#R #I1 #Y2 #L1 #l #H elim (rexs_inv_gref â¦ H) -H * +[ #H destruct +| #Z #I2 #Y1 #L2 #Hl #H1 #H2 destruct /2 width=4 by ex2_2_intro/ +] +qed-. + +lemma rexs_inv_gref_bind_dx: âR,I2,Y1,L2,l. Y1 âª¤[R, Â§l] L2.â{I2} â + ââI1,L1. L1 âª¤[R, Â§l] L2 & Y1 = L1.â{I1}. +#R #I2 #Y1 #L2 #l #H elim (rexs_inv_gref â¦ H) -H * +[ #_ #H destruct +| #I1 #Z #L1 #Y2 #Hl #H1 #H2 destruct /2 width=4 by ex2_2_intro/ +] +qed-. + +(* Basic forward lemmas *****************************************************) + +lemma rexs_fwd_pair_sn: âR,I,L1,L2,V,T. L1 âª¤[R, â¡{I}V.T] L2 â L1 âª¤[R, V] L2. +#R #I #L1 #L2 #V #T #H elim H -L2 +/3 width=5 by rex_fwd_pair_sn, rexs_step_dx, inj/ +qed-. + +lemma rexs_fwd_bind_dx: âR. (âL. reflexive â¦ (R L)) â + âp,I,L1,L2,V,T. L1 âª¤[R, â{p,I}V.T] L2 â + L1.â{I}V âª¤[R, T] L2.â{I}V. +#R #HR #p #I #L1 #L2 #V #T #H elim (rexs_inv_bind â¦ H) -H // +qed-. + +lemma rexs_fwd_flat_dx: âR,I,L1,L2,V,T. L1 âª¤[R, â{I}V.T] L2 â L1 âª¤[R, T] L2. +#R #I #L1 #L2 #V #T #H elim (rexs_inv_flat â¦ H) -H // +qed-. + +(* Basic_2A1: removed theorems 2: + TC_lpx_sn_inv_pair1 TC_lpx_sn_inv_pair2 +*) diff --git a/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_drops.ma b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_drops.ma new file mode 100644 index 000000000..0b83c6431 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_drops.ma @@ -0,0 +1,72 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/seq_seq.ma". +include "static_2/static/rex_drops.ma". +include "static_2/i_static/rexs.ma". + +(* ITERATED EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ***) + +definition tc_f_dedropable_sn: predicate (relation3 lenv term term) â + Î»R. âb,f,L1,K1. â¬[b, f] L1 â K1 â + âK2,T. K1 âª¤[R, T] K2 â âU. â¬[f] T â U â + ââL2. L1 âª¤[R, U] L2 & â¬[b, f] L2 â K2 & L1 â¡[f] L2. + +definition tc_f_dropable_sn: predicate (relation3 lenv term term) â + Î»R. âb,f,L1,K1. â¬[b, f] L1 â K1 â ðâ¦fâ¦ â + âL2,U. L1 âª¤[R, U] L2 â âT. â¬[f] T â U â + ââK2. K1 âª¤[R, T] K2 & â¬[b, f] L2 â K2. + +definition tc_f_dropable_dx: predicate (relation3 lenv term term) â + Î»R. âL1,L2,U. L1 âª¤[R, U] L2 â + âb,f,K2. â¬[b, f] L2 â K2 â ðâ¦fâ¦ â âT. â¬[f] T â U â + ââK1. â¬[b, f] L1 â K1 & K1 âª¤[R, T] K2. + +( Properties with generic slicing for local environments *******************) + +lemma dedropable_sn_CTC: âR. f_dedropable_sn R â tc_f_dedropable_sn R. +#R #HR #b #f #L1 #K1 #HLK1 #K2 #T #H elim H -K2 +[ #K2 #HK12 #U #HTU elim (HR â¦ HLK1 â¦ HK12 â¦ HTU) -K1 -T -HR + /3 width=4 by ex3_intro, inj/ +| #K #K2 #_ #HK2 #IH #U #HTU -HLK1 + elim (IH â¦ HTU) -IH #L #HL1 #HLK + elim (HR â¦ HLK â¦ HK2 â¦ HTU) -K -T -HR + /3 width=6 by seq_trans, rexs_step_dx, ex3_intro/ +] +qed-. + +(* Inversion lemmas with generic slicing for local environments *) + +lemma dropable_sn_CTC: âR. f_dropable_sn R â tc_f_dropable_sn R. +#R #HR #b #f #L1 #K1 #HLK1 #Hf #L2 #U #H elim H -L2 +[ #L2 #HL12 #T #HTU elim (HR â¦ HLK1 â¦ HL12 â¦ HTU) -L1 -U -HR + /3 width=3 by inj, ex2_intro/ +| #L #L2 #_ #HL2 #IH #T #HTU -HLK1 + elim (IH â¦ HTU) -IH #K #HK1 #HLK + elim (HR â¦ HLK â¦ HL2 â¦ HTU) -L -U -HR + /3 width=3 by rexs_step_dx, ex2_intro/ +] +qed-. + +lemma dropable_dx_CTC: âR. f_dropable_dx R â tc_f_dropable_dx R. +#R #HR #L1 #L2 #U #H elim H -L2 +[ #L2 #HL12 #b #f #K2 #HLK2 #Hf #T #HTU + elim (HR â¦ HL12 â¦ HLK2 â¦ HTU) -L2 -U -HR + /3 width=3 by inj, ex2_intro/ +| #L #L2 #_ #HL2 #IH #b #f #K2 #HLK2 #Hf #T #HTU + elim (HR â¦ HL2 â¦ HLK2 â¦ HTU) -L2 -HR // #K #HLK #HK2 + elim (IH â¦ HLK â¦ HTU) -IH -L -U + /3 width=5 by rexs_step_dx, ex2_intro/ +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_fqup.ma b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_fqup.ma new file mode 100644 index 000000000..c21d82017 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_fqup.ma @@ -0,0 +1,75 @@ +(**************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/rex_fqup.ma". +include "static_2/i_static/rexs.ma". + +(* ITERATED EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ***) + +(* Advanced properties ******************************************************) + +lemma rexs_refl: âR. c_reflexive â¦ R â + âT. reflexive â¦ (rexs R T). +/3 width=1 by rex_refl, inj/ qed. + +(* Basic_2A1: uses: TC_lpx_sn_pair TC_lpx_sn_pair_refl ) +lemma rexs_pair_refl: âR. c_reflexive â¦ R â + âL,V1,V2. CTC â¦ R L V1 V2 â âI,T. L.â{I}V1 âª¤[R, T] L.â{I}V2. +#R #HR #L #V1 #V2 #H elim H -V2 +/3 width=3 by rexs_step_dx, rex_pair_refl, inj/ +qed. + +lemma rexs_tc: âR,L1,L2,T,f. ðâ¦fâ¦ â TC â¦ (sex cfull (cext2 R) f) L1 L2 â + L1 âª¤[R, T] L2. +#R #L1 #L2 #T #f #Hf #H elim H -L2 +[ elim (frees_total L1 T) | #L elim (frees_total L T) ] +/5 width=7 by sex_sdj, rexs_step_dx, sdj_isid_sn, inj, ex2_intro/ +qed. + +( Advanced eliminators *****************************************************) + +lemma rexs_ind_sn: âR. c_reflexive â¦ R â + âL1,T. âQ:predicate â¦. Q L1 â + (âL,L2. L1 âª¤[R, T] L â L âª¤[R, T] L2 â Q L â Q L2) â + âL2. L1 âª¤[R, T] L2 â Q L2. +#R #HR #L1 #T #Q #HL1 #IHL1 #L2 #HL12 +@(TC_star_ind â¦ HL1 IHL1 â¦ HL12) /2 width=1 by rex_refl/ +qed-. + +lemma rexs_ind_dx: âR. c_reflexive â¦ R â + âL2,T. âQ:predicate â¦. Q L2 â + (âL1,L. L1 âª¤[R, T] L â L âª¤[R, T] L2 â Q L â Q L1) â + âL1. L1 âª¤[R, T] L2 â Q L1. +#R #HR #L2 #Q #HL2 #IHL2 #L1 #HL12 +@(TC_star_ind_dx â¦ HL2 IHL2 â¦ HL12) /2 width=4 by rex_refl/ +qed-. + +(* Advanced inversion lemmas ************************************************) + +lemma rexs_inv_bind_void: âR. c_reflexive â¦ R â + âp,I,L1,L2,V,T. L1 âª¤[R, â{p,I}V.T] L2 â + â§â§ L1 âª¤[R, V] L2 & L1.â§ âª¤[R, T] L2.â§. +#R #HR #p #I #L1 #L2 #V #T #H @(rexs_ind_sn â¦ HR â¦ H) -L2 +[ /3 width=1 by rexs_refl, conj/ +| #L #L2 #_ #H elim (rex_inv_bind_void â¦ H) -H /3 width=3 by rexs_step_dx, conj/ +] +qed-. + +(* Advanced forward lemmas **************************************************) + +lemma rexs_fwd_bind_dx_void: âR. c_reflexive â¦ R â + âp,I,L1,L2,V,T. L1 âª¤[R, â{p,I}V.T] L2 â + L1.â§ âª¤[R, T] L2.â§. +#R #HR #p #I #L1 #L2 #V #T #H elim (rexs_inv_bind_void â¦ H) -H // +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_length.ma b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_length.ma new file mode 100644 index 000000000..a5c82f9f5 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_length.ma @@ -0,0 +1,29 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/rex_length.ma". +include "static_2/i_static/rexs.ma". + +(* ITERATED EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ***) + +(* Forward lemmas with length for local environments ************************) + +(* Basic_2A1: uses: TC_lpx_sn_fwd_length ) +lemma rexs_fwd_length: âR,L1,L2,T. L1 âª¤[R, T] L2 â |L1| = |L2|. +#R #L1 #L2 #T #H elim H -L2 +[ #L2 #HL12 >(rex_fwd_length â¦ HL12) -HL12 // +| #L #L2 #_ #HL2 #IHL1 + >IHL1 -L1 >(rex_fwd_length â¦ HL2) -HL2 // +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_lex.ma b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_lex.ma new file mode 100644 index 000000000..4ac00b7a1 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_lex.ma @@ -0,0 +1,58 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/lex_tc.ma". +include "static_2/static/req_fqup.ma". +include "static_2/static/req_fsle.ma". +include "static_2/i_static/rexs_fqup.ma". + +(* ITERATED EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ***) + +(* Properties with generic extension of a context sensitive relation ********) + +lemma rexs_lex: âR. c_reflexive â¦ R â + âL1,L2,T. L1 âª¤[CTC â¦ R] L2 â L1 âª¤[R, T] L2. +#R #HR #L1 #L2 #T +/5 width=7 by rexs_tc, sex_inv_tc_dx, sex_co, ext2_inv_tc, ext2_refl/ +qed. + +lemma rexs_lex_req: âR. c_reflexive â¦ R â + âL1,L. L1 âª¤[CTC â¦ R] L â âL2,T. L â¡[T] L2 â + L1 âª¤[R, T] L2. +/3 width=3 by rexs_lex, rexs_step_dx, req_fwd_rex/ qed. + +( Inversion lemmas with generic extension of a context sensitive relation **) + +(* Note: s_rs_transitive_lex_inv_isid could be invoked in the last auto but makes it too slow ) +lemma rexs_inv_lex_req: âR. c_reflexive â¦ R â + rex_fsge_compatible R â + s_rs_transitive â¦ R (Î»_.lex R) â + req_transitive R â + âL1,L2,T. L1 âª¤[R, T] L2 â + ââL. L1 âª¤[CTC â¦ R] L & L â¡[T] L2. +#R #H1R #H2R #H3R #H4R #L1 #L2 #T #H +lapply (s_rs_transitive_lex_inv_isid â¦ H3R) -H3R #H3R +@(rexs_ind_sn â¦ H1R â¦ H) -H -L2 +[ /4 width=3 by req_refl, lex_refl, inj, ex2_intro/ +| #L0 #L2 #_ #HL02 * #L * #f0 #Hf0 #HL1 #HL0 + lapply (req_rex_trans â¦ HL0 â¦ HL02) -L0 // * #f1 #Hf1 #HL2 + elim (sex_sdj_split â¦ ceq_ext â¦ HL2 f0 ?) -HL2 + [ #L0 #HL0 #HL02 |*: /2 width=1 by ext2_refl, sdj_isid_dx/ ] + lapply (sex_sdj â¦ HL0 f1 ?) /2 width=1 by sdj_isid_sn/ #H + elim (frees_sex_conf â¦ Hf1 â¦ H) // -H2R -H #f2 #Hf2 #Hf21 + lapply (sle_sex_trans â¦ HL02 â¦ Hf21) -f1 // #HL02 + lapply (sex_co ?? cfull (CTC â¦ (cext2 R)) â¦ HL1) -HL1 /2 width=1 by ext2_inv_tc/ #HL1 + /8 width=11 by sex_inv_tc_dx, sex_tc_dx, sex_co, ext2_tc, ext2_refl, step, ex2_intro/ (**) (* full auto too slow *) +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_rexs.ma b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_rexs.ma new file mode 100644 index 000000000..2a1a9b0d8 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/i_static/rexs_rexs.ma @@ -0,0 +1,33 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/rex_fsle.ma". +include "static_2/i_static/rexs.ma". + +(* ITERATED EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ***) + +(* Advanced properties ******************************************************) + +lemma rexs_sym: âR. rex_fsge_compatible R â + (âL1,L2,T1,T2. R L1 T1 T2 â R L2 T2 T1) â + âT. symmetric â¦ (rexs R T). +#R #H1R #H2R #T #L1 #L2 #H elim H -L2 +/4 width=3 by rex_sym, rexs_step_sn, inj/ +qed-. + +(* Main properties ********************************************************) + +theorem rexs_trans: âR,T. Transitive â¦ (rexs R T). +#R #T #L1 #L #HL1 #L2 #HL2 @(trans_TC â¦ HL1 HL2) () (* auto fails *) +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxabbr_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxabbr_2.ma new file mode 100644 index 000000000..1eea5226e --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxabbr_2.ma @@ -0,0 +1,19 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( L. break â T1 )" + left associative with precedence 50 + for @{ 'DxAbbr $L $T1 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxabst_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxabst_2.ma new file mode 100644 index 000000000..3bb334e86 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxabst_2.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( L. break â T1 )" + left associative with precedence 51 + for @{ 'DxAbst $L $T1 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxbind1_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxbind1_2.ma new file mode 100644 index 000000000..5e78eeb18 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxbind1_2.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( L. break â¤ { term 46 I } )" + non associative with precedence 47 + for @{ 'DxBind1 $L $I }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxbind2_3.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxbind2_3.ma new file mode 100644 index 000000000..6800d8e5c --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxbind2_3.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( L. break â { term 46 I } break term 49 T1 )" + non associative with precedence 48 + for @{ 'DxBind2 $L $I $T1 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxitem_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxitem_2.ma new file mode 100644 index 000000000..c2e0b42dd --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxitem_2.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( L. â { break term 46 I } )" + non associative with precedence 46 + for @{'DxItem $L $I }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxvoid_1.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxvoid_1.ma new file mode 100644 index 000000000..58faf0664 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/dxvoid_1.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( L. â§ )" + non associative with precedence 49 + for @{ 'DxVoid $L }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/gref_1.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/gref_1.ma new file mode 100644 index 000000000..c67265063 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/gref_1.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( Â§ term 90 l )" + non associative with precedence 55 + for @{ 'GRef $l }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/item0_0.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/item0_0.ma new file mode 100644 index 000000000..b6e471d3d --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/item0_0.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "âª" + non associative with precedence 55 + for @{ 'Item0 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/item0_1.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/item0_1.ma new file mode 100644 index 000000000..2c9e41aef --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/item0_1.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( âª { term 46 I } )" + non associative with precedence 55 + for @{ 'Item0 $I }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/lref_1.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/lref_1.ma new file mode 100644 index 000000000..ebab03c01 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/lref_1.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( # term 90 i )" + non associative with precedence 55 + for @{ 'LRef $i }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabbr_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabbr_2.ma new file mode 100644 index 000000000..25c3ca773 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabbr_2.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â term 55 T. break term 55 L )" + non associative with precedence 55 + for @{ 'SnAbbr $T $L }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabbr_3.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabbr_3.ma new file mode 100644 index 000000000..192f6cd70 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabbr_3.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â { term 46 p } break term 55 T1. break term 55 T2 )" + non associative with precedence 55 + for @{ 'SnAbbr $p $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabbrneg_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabbrneg_2.ma new file mode 100644 index 000000000..ecd1a7c63 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabbrneg_2.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( - â term 55 T1. break term 55 T2 )" + non associative with precedence 55 + for @{ 'SnAbbrNeg $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabbrpos_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabbrpos_2.ma new file mode 100644 index 000000000..84aa4d213 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabbrpos_2.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( + â term 55 T1. break term 55 T2 )" + non associative with precedence 55 + for @{ 'SnAbbrPos $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabst_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabst_2.ma new file mode 100644 index 000000000..f5219bf69 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabst_2.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â term 55 T. break term 55 L )" + non associative with precedence 55 + for @{ 'SnAbst $T $L }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabst_3.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabst_3.ma new file mode 100644 index 000000000..2c9253d98 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabst_3.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â { term 46 p } break term 55 T1. break term 55 T2 )" + non associative with precedence 55 + for @{ 'SnAbst $p $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabstneg_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabstneg_2.ma new file mode 100644 index 000000000..e4dc84a10 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabstneg_2.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( - â term 55 T1. break term 55 T2 )" + non associative with precedence 55 + for @{ 'SnAbstNeg $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabstpos_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabstpos_2.ma new file mode 100644 index 000000000..a54fadce2 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snabstpos_2.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( + â term 55 T1. break term 55 T2 )" + non associative with precedence 55 + for @{ 'SnAbstPos $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snappl_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snappl_2.ma new file mode 100644 index 000000000..615e70bd3 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snappl_2.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â term 55 T1. break term 55 T2 )" + non associative with precedence 55 + for @{ 'SnAppl $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snapplvector_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snapplvector_2.ma new file mode 100644 index 000000000..a7c92b4fe --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snapplvector_2.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â¶ term 55 T1. break term 55 T )" + non associative with precedence 55 + for @{ 'SnApplVector $T1 $T }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snbind1_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snbind1_2.ma new file mode 100644 index 000000000..8cac6eac6 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snbind1_2.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â¤ { term 46 I }. break term 55 L )" + non associative with precedence 55 + for @{ 'SnBind1 $I $L }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snbind2_3.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snbind2_3.ma new file mode 100644 index 000000000..7e73c0fb5 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snbind2_3.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â { term 46 I } break term 55 T. break term 55 L )" + non associative with precedence 55 + for @{ 'SnBind2 $I $T $L }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snbind2_4.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snbind2_4.ma new file mode 100644 index 000000000..b36457861 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snbind2_4.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â { term 46 p, break term 46 I } break term 55 T1. break term 55 T )" + non associative with precedence 55 + for @{ 'SnBind2 $p $I $T1 $T }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snbind2neg_3.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snbind2neg_3.ma new file mode 100644 index 000000000..c75fe170d --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snbind2neg_3.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( - â { term 46 I } break term 55 T1. break term 55 T )" + non associative with precedence 55 + for @{ 'SnBind2Neg $I $T1 $T }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snbind2pos_3.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snbind2pos_3.ma new file mode 100644 index 000000000..ca7a9d921 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snbind2pos_3.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( + â { term 46 I } break term 55 T1. break term 55 T )" + non associative with precedence 55 + for @{ 'SnBind2Pos $I $T1 $T }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/sncast_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/sncast_2.ma new file mode 100644 index 000000000..eddb2e583 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/sncast_2.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â term 55 T1. break term 55 T2 )" + non associative with precedence 55 + for @{ 'SnCast $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snflat2_3.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snflat2_3.ma new file mode 100644 index 000000000..b0fdc8987 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snflat2_3.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â { term 46 I } break term 55 T1. break term 55 T )" + non associative with precedence 55 + for @{ 'SnFlat2 $I $T1 $T }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snitem2_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snitem2_2.ma new file mode 100644 index 000000000..90bc4ed5b --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snitem2_2.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â¡ term 55 T1. break term 55 T )" + non associative with precedence 55 + for @{ 'SnItem2 $T1 $T }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snitem2_3.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snitem2_3.ma new file mode 100644 index 000000000..d455b5103 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snitem2_3.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â¡ { term 46 I } break term 55 T1. break term 55 T )" + non associative with precedence 55 + for @{ 'SnItem2 $I $T1 $T }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snitem_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snitem_2.ma new file mode 100644 index 000000000..7046d2247 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snitem_2.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â { term 46 I }. break term 55 L )" + non associative with precedence 55 + for @{ 'SnItem $I $L }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/snvoid_1.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snvoid_1.ma new file mode 100644 index 000000000..2615d8c66 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/snvoid_1.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â§. term 55 L )" + non associative with precedence 55 + for @{ 'SnVoid $L }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/star_0.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/star_0.ma new file mode 100644 index 000000000..8cf6da569 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/star_0.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "â" + non associative with precedence 46 + for @{ 'Star }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/star_1.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/star_1.ma new file mode 100644 index 000000000..af8fa6675 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/star_1.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â term 90 s )" + non associative with precedence 55 + for @{ 'Star $s }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/weight_1.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/weight_1.ma new file mode 100644 index 000000000..3cd52cc2f --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/weight_1.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â¯ { term 46 X } )" + non associative with precedence 90 + for @{ 'Weight $X }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/weight_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/weight_2.ma new file mode 100644 index 000000000..8d13242c1 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/weight_2.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â¯ { term 46 L, break term 46 T } )" + non associative with precedence 90 + for @{ 'Weight $L $T }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/functions/weight_3.ma b/matita/matita/contribs/lambdadelta/static_2/notation/functions/weight_3.ma new file mode 100644 index 000000000..de765db43 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/functions/weight_3.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â¯ { term 46 G, break term 46 L, break term 46 T } )" + non associative with precedence 90 + for @{ 'Weight $G $L $T }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/atomicarity_4.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/atomicarity_4.ma new file mode 100644 index 000000000..9659409b9 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/atomicarity_4.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â¦ term 46 G, break term 46 Lâ¦ â¢ break term 46 T â break term 46 A )" + non associative with precedence 45 + for @{ 'AtomicArity $G $L $T $A }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/freestar_3.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/freestar_3.ma new file mode 100644 index 000000000..02c33853c --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/freestar_3.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) + +notation "hvbox( L â¢ ð * â¦ break term 46 T â¦ â break term 46 f )" + non associative with precedence 45 + for @{ 'FreeStar $L $T $f }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/ideqsn_3.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/ideqsn_3.ma new file mode 100644 index 000000000..3ba302519 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/ideqsn_3.ma @@ -0,0 +1,19 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( L1 â¡ [ break term 46 f ] break term 46 L2 )" + non associative with precedence 45 + for @{ 'IdEqSn $f $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/ineint_5.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/ineint_5.ma new file mode 100644 index 000000000..1705b31be --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/ineint_5.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â¦ term 46 G, break term 46 L, break term 46 T â¦ Ïµ [ break term 46 R ] ã break term 46 A ã )" + non associative with precedence 45 + for @{ 'InEInt $R $G $L $T $A }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/lrsubeqa_3.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/lrsubeqa_3.ma new file mode 100644 index 000000000..c3b74a96a --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/lrsubeqa_3.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( G â¢ break term 46 L1 â« â break term 46 L2 )" + non associative with precedence 45 + for @{ 'LRSubEqA $G $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/lrsubeqc_2.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/lrsubeqc_2.ma new file mode 100644 index 000000000..3a6e5eded --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/lrsubeqc_2.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( L1 â« break term 46 L2 )" + non associative with precedence 45 + for @{ 'LRSubEqC $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/lrsubeqc_4.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/lrsubeqc_4.ma new file mode 100644 index 000000000..6b9fa4dfd --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/lrsubeqc_4.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( G â¢ break term 46 L1 â« [ break term 46 R ] break term 46 L2 )" + non associative with precedence 45 + for @{ 'LRSubEqC $R $G $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/lrsubeqf_4.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/lrsubeqf_4.ma new file mode 100644 index 000000000..413553ccd --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/lrsubeqf_4.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) + +notation "hvbox( â¦ term 46 L1, break term 46 f1 â¦ â« ð* â¦ break term 46 L2, break term 46 f2 â¦ )" + non associative with precedence 45 + for @{ 'LRSubEqF $L1 $f1 $L2 $f2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/rdropstar_3.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/rdropstar_3.ma new file mode 100644 index 000000000..0e0a3273d --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/rdropstar_3.ma @@ -0,0 +1,19 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) + +notation "hvbox( â¬ * [ term 46 i ] break term 46 L1 â break term 46 L2 )" + non associative with precedence 45 + for @{ 'RDropStar $i $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/rdropstar_4.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/rdropstar_4.ma new file mode 100644 index 000000000..ce4ce12b9 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/rdropstar_4.ma @@ -0,0 +1,19 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) + +notation "hvbox( â¬ * [ term 46 b, break term 46 f ] break term 46 L1 â break term 46 L2 )" + non associative with precedence 45 + for @{ 'RDropStar $b $f $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/relation_3.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/relation_3.ma new file mode 100644 index 000000000..251dbf3f9 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/relation_3.ma @@ -0,0 +1,19 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( L1 âª¤ [ break term 46 R ] break term 46 L2 )" + non associative with precedence 45 + for @{ 'Relation $R $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/relation_4.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/relation_4.ma new file mode 100644 index 000000000..6d4e20cea --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/relation_4.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( L1 âª¤[ break term 46 R, break term 46 T ] break term 46 L2 )" + non associative with precedence 45 + for @{ 'Relation $R $T $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/relation_5.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/relation_5.ma new file mode 100644 index 000000000..6ad4bb3e7 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/relation_5.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( L1 âª¤[ break term 46 R1, break term 46 R2, break term 46 f ] break term 46 L2 )" + non associative with precedence 45 + for @{ 'Relation $R1 $R2 $f $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/relationstar_4.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/relationstar_4.ma new file mode 100644 index 000000000..bc5939830 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/relationstar_4.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) + +notation "hvbox( L1 âª¤*[ break term 46 R, break term 46 T ] break term 46 L2 )" + non associative with precedence 45 + for @{ 'RelationStar $R $T $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/rliftstar_3.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/rliftstar_3.ma new file mode 100644 index 000000000..26d0262de --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/rliftstar_3.ma @@ -0,0 +1,19 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) + +notation "hvbox( â¬ * [ term 46 f ] break term 46 T1 â break term 46 T2 )" + non associative with precedence 45 + for @{ 'RLiftStar $f $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/simple_1.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/simple_1.ma new file mode 100644 index 000000000..0acfb4ef7 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/simple_1.ma @@ -0,0 +1,19 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( ð â¦ term 46 T â¦ )" + non associative with precedence 45 + for @{ 'Simple $T }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/stareq_4.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/stareq_4.ma new file mode 100644 index 000000000..0f67a8382 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/stareq_4.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( T1 â [ break term 46 h, break term 46 o ] break term 46 T2 )" + non associative with precedence 45 + for @{ 'StarEq $h $o $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/stareq_5.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/stareq_5.ma new file mode 100644 index 000000000..553205960 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/stareq_5.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( L â¢ break term 46 T1 â [ break term 46 h, break term 46 o ] break term 46 T2 )" + non associative with precedence 45 + for @{ 'StarEq $h $o $L $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/stareqsn_5.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/stareqsn_5.ma new file mode 100644 index 000000000..af611f765 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/stareqsn_5.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( L1 â [ break term 46 h, break term 46 o, break term 46 T ] break term 46 L2 )" + non associative with precedence 45 + for @{ 'StarEqSn $h $o $T $L1 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/stareqsn_8.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/stareqsn_8.ma new file mode 100644 index 000000000..6e4ed5d11 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/stareqsn_8.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â¦ term 46 G1, break term 46 L1, break term 46 T1 â¦ â [ break term 46 h, break term 46 o ] â¦ break term 46 G2, break term 46 L2, break term 46 T2 â¦ )" + non associative with precedence 45 + for @{ 'StarEqSn $h $o $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/subseteq_4.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/subseteq_4.ma new file mode 100644 index 000000000..f7a000112 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/subseteq_4.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â¦ term 46 L1, break term 46 T1 â¦ â â¦ break term 46 L2, break term 46 T2 â¦ )" + non associative with precedence 45 + for @{ 'SubSetEq $L1 $T1 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/supterm_6.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/supterm_6.ma new file mode 100644 index 000000000..72533dc3c --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/supterm_6.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â¦ term 46 G1, break term 46 L1, break term 46 T1 â¦ â â¦ break term 46 G2, break term 46 L2, break term 46 T2 â¦ )" + non associative with precedence 45 + for @{ 'SupTerm $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/supterm_7.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/supterm_7.ma new file mode 100644 index 000000000..2e12296b4 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/supterm_7.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â¦ term 46 G1, break term 46 L1, break term 46 T1 â¦ â [ break term 46 b ] â¦ break term 46 G2, break term 46 L2, break term 46 T2 â¦ )" + non associative with precedence 45 + for @{ 'SupTerm $b $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermopt_6.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermopt_6.ma new file mode 100644 index 000000000..62a8cbb0b --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermopt_6.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â¦ term 46 G1, break term 46 L1, break term 46 T1 â¦ ââ¸® â¦ break term 46 G2, break term 46 L2, break term 46 T2 â¦ )" + non associative with precedence 45 + for @{ 'SupTermOpt $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermopt_7.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermopt_7.ma new file mode 100644 index 000000000..dd6db78c2 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermopt_7.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â¦ term 46 G1, break term 46 L1, break term 46 T1 â¦ ââ¸® [ break term 46 b ] â¦ break term 46 G2, break term 46 L2, break term 46 T2 â¦ )" + non associative with precedence 45 + for @{ 'SupTermOpt $b $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermplus_6.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermplus_6.ma new file mode 100644 index 000000000..57bdc3d94 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermplus_6.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â¦ term 46 G1, term 46 L1, break term 46 T1 â¦ â + â¦ break term 46 G2, term 46 L2, break term 46 T2 â¦ )" + non associative with precedence 45 + for @{ 'SupTermPlus $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermplus_7.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermplus_7.ma new file mode 100644 index 000000000..3bbe31a83 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermplus_7.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( â¦ term 46 G1, term 46 L1, break term 46 T1 â¦ â + [ break term 46 b ] â¦ break term 46 G2, term 46 L2, break term 46 T2 â¦ )" + non associative with precedence 45 + for @{ 'SupTermPlus $b $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermstar_6.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermstar_6.ma new file mode 100644 index 000000000..a0bf55faa --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermstar_6.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) + +notation "hvbox( â¦ term 46 G1, term 46 L1, break term 46 T1 â¦ â * â¦ break term 46 G2, break term 46 L2, break term 46 T2 â¦ )" + non associative with precedence 45 + for @{ 'SupTermStar $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermstar_7.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermstar_7.ma new file mode 100644 index 000000000..865019860 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/suptermstar_7.ma @@ -0,0 +1,19 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) + +notation "hvbox( â¦ term 46 G1, term 46 L1, break term 46 T1 â¦ â * [ break term 46 b ] â¦ break term 46 G2, break term 46 L2, break term 46 T2 â¦ )" + non associative with precedence 45 + for @{ 'SupTermStar $b $G1 $L1 $T1 $G2 $L2 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/topiso_4.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/topiso_4.ma new file mode 100644 index 000000000..e8c080f6a --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/topiso_4.ma @@ -0,0 +1,19 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ) + +notation "hvbox( T1 â©³ [ break term 46 h, break term 46 o ] break term 46 T2 )" + non associative with precedence 45 + for @{ 'TopIso $h $o $T1 $T2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/notation/relations/voidstareq_4.ma b/matita/matita/contribs/lambdadelta/static_2/notation/relations/voidstareq_4.ma new file mode 100644 index 000000000..77841c6bb --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/notation/relations/voidstareq_4.ma @@ -0,0 +1,19 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* NOTATION FOR THE FORMAL SYSTEM Î»Î´ ****************************************) + +notation "hvbox( L1 ââ§* [ break term 46 n1, break term 46 n2 ] break term 46 L2 )" + non associative with precedence 45 + for @{ 'VoidStarEq $L1 $n1 $n2 $L2 }. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/drops.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/drops.ma new file mode 100644 index 000000000..939aeb534 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/drops.ma @@ -0,0 +1,469 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/relocation/rtmap_coafter.ma". +include "static_2/notation/relations/rdropstar_3.ma". +include "static_2/notation/relations/rdropstar_4.ma". +include "static_2/relocation/seq.ma". +include "static_2/relocation/lifts_bind.ma". + +(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) + +(* Basic_1: includes: drop_skip_bind drop1_skip_bind ) +( Basic_2A1: includes: drop_atom drop_pair drop_drop drop_skip + drop_refl_atom_O2 drop_drop_lt drop_skip_lt +) +inductive drops (b:bool): rtmap â relation lenv â +| drops_atom: âf. (b = â â ðâ¦fâ¦) â drops b (f) (â) (â) +| drops_drop: âf,I,L1,L2. drops b f L1 L2 â drops b (âf) (L1.â{I}) L2 +| drops_skip: âf,I1,I2,L1,L2. + drops b f L1 L2 â â¬[f] I2 â I1 â + drops b (â«¯f) (L1.â{I1}) (L2.â{I2}) +. + +interpretation "uniform slicing (local environment)" + 'RDropStar i L1 L2 = (drops true (uni i) L1 L2). + +interpretation "generic slicing (local environment)" + 'RDropStar b f L1 L2 = (drops b f L1 L2). + +definition d_liftable1: predicate (relation2 lenv term) â + Î»R. âK,T. R K T â âb,f,L. â¬[b, f] L â K â + âU. â¬[f] T â U â R L U. + +definition d_liftable1_isuni: predicate (relation2 lenv term) â + Î»R. âK,T. R K T â âb,f,L. â¬[b, f] L â K â ðâ¦fâ¦ â + âU. â¬[f] T â U â R L U. + +definition d_deliftable1: predicate (relation2 lenv term) â + Î»R. âL,U. R L U â âb,f,K. â¬[b, f] L â K â + âT. â¬[f] T â U â R K T. + +definition d_deliftable1_isuni: predicate (relation2 lenv term) â + Î»R. âL,U. R L U â âb,f,K. â¬[b, f] L â K â ðâ¦fâ¦ â + âT. â¬[f] T â U â R K T. + +definition d_liftable2_sn: âC:Type[0]. âS:rtmap â relation C. + predicate (lenv â relation C) â + Î»C,S,R. âK,T1,T2. R K T1 T2 â âb,f,L. â¬[b, f] L â K â + âU1. S f T1 U1 â + ââU2. S f T2 U2 & R L U1 U2. + +definition d_deliftable2_sn: âC:Type[0]. âS:rtmap â relation C. + predicate (lenv â relation C) â + Î»C,S,R. âL,U1,U2. R L U1 U2 â âb,f,K. â¬[b, f] L â K â + âT1. S f T1 U1 â + ââT2. S f T2 U2 & R K T1 T2. + +definition d_liftable2_bi: âC:Type[0]. âS:rtmap â relation C. + predicate (lenv â relation C) â + Î»C,S,R. âK,T1,T2. R K T1 T2 â âb,f,L. â¬[b, f] L â K â + âU1. S f T1 U1 â + âU2. S f T2 U2 â R L U1 U2. + +definition d_deliftable2_bi: âC:Type[0]. âS:rtmap â relation C. + predicate (lenv â relation C) â + Î»C,S,R. âL,U1,U2. R L U1 U2 â âb,f,K. â¬[b, f] L â K â + âT1. S f T1 U1 â + âT2. S f T2 U2 â R K T1 T2. + +definition co_dropable_sn: predicate (rtmap â relation lenv) â + Î»R. âb,f,L1,K1. â¬[b, f] L1 â K1 â ðâ¦fâ¦ â + âf2,L2. R f2 L1 L2 â âf1. f ~â f1 â f2 â + ââK2. R f1 K1 K2 & â¬[b, f] L2 â K2. + +definition co_dropable_dx: predicate (rtmap â relation lenv) â + Î»R. âf2,L1,L2. R f2 L1 L2 â + âb,f,K2. â¬[b, f] L2 â K2 â ðâ¦fâ¦ â + âf1. f ~â f1 â f2 â + ââK1. â¬[b, f] L1 â K1 & R f1 K1 K2. + +definition co_dedropable_sn: predicate (rtmap â relation lenv) â + Î»R. âb,f,L1,K1. â¬[b, f] L1 â K1 â âf1,K2. R f1 K1 K2 â + âf2. f ~â f1 â f2 â + ââL2. R f2 L1 L2 & â¬[b, f] L2 â K2 & L1 â¡[f] L2. + +(* Basic properties *********************************************************) + +lemma drops_atom_F: âf. â¬[â», f] â â â. +#f @drops_atom #H destruct +qed. + +lemma drops_eq_repl_back: âb,L1,L2. eq_repl_back â¦ (Î»f. â¬[b, f] L1 â L2). +#b #L1 #L2 #f1 #H elim H -f1 -L1 -L2 +[ /4 width=3 by drops_atom, isid_eq_repl_back/ +| #f1 #I #L1 #L2 #_ #IH #f2 #H elim (eq_inv_nx â¦ H) -H + /3 width=3 by drops_drop/ +| #f1 #I1 #I2 #L1 #L2 #_ #HI #IH #f2 #H elim (eq_inv_px â¦ H) -H + /3 width=3 by drops_skip, liftsb_eq_repl_back/ +] +qed-. + +lemma drops_eq_repl_fwd: âb,L1,L2. eq_repl_fwd â¦ (Î»f. â¬*[b, f] L1 â L2). +#b #L1 #L2 @eq_repl_sym /2 width=3 by drops_eq_repl_back/ (**) (* full auto fails ) +qed-. + +( Basic_2A1: includes: drop_FT ) +lemma drops_TF: âf,L1,L2. â¬[â, f] L1 â L2 â â¬[â», f] L1 â L2. +#f #L1 #L2 #H elim H -f -L1 -L2 +/3 width=1 by drops_atom, drops_drop, drops_skip/ +qed. + +( Basic_2A1: includes: drop_gen ) +lemma drops_gen: âb,f,L1,L2. â¬[â, f] L1 â L2 â â¬[b, f] L1 â L2. + /2 width=1 by drops_TF/ +qed-. + +(* Basic_2A1: includes: drop_T ) +lemma drops_F: âb,f,L1,L2. â¬[b, f] L1 â L2 â â¬[â», f] L1 â L2. + /2 width=1 by drops_TF/ +qed-. + +lemma d_liftable2_sn_bi: âC,S. (âf,c. is_mono â¦ (S f c)) â + âR. d_liftable2_sn C S R â d_liftable2_bi C S R. +#C #S #HS #R #HR #K #T1 #T2 #HT12 #b #f #L #HLK #U1 #HTU1 #U2 #HTU2 +elim (HR â¦ HT12 â¦ HLK â¦ HTU1) -HR -K -T1 #X #HTX #HUX +<(HS â¦ HTX â¦ HTU2) -T2 -U2 -b -f // +qed-. + +lemma d_deliftable2_sn_bi: âC,S. (âf. is_inj2 â¦ (S f)) â + âR. d_deliftable2_sn C S R â d_deliftable2_bi C S R. +#C #S #HS #R #HR #L #U1 #U2 #HU12 #b #f #K #HLK #T1 #HTU1 #T2 #HTU2 +elim (HR â¦ HU12 â¦ HLK â¦ HTU1) -HR -L -U1 #X #HUX #HTX +<(HS â¦ HUX â¦ HTU2) -U2 -T2 -b -f // +qed-. + +(* Basic inversion lemmas ***************************************************) + +fact drops_inv_atom1_aux: âb,f,X,Y. â¬[b, f] X â Y â X = â â + Y = â â§ (b = â â ðâ¦fâ¦). +#b #f #X #Y -f -X -Y +[ /3 width=1 by conj/ +| #f #I #L1 #L2 #_ #H destruct +| #f #I1 #I2 #L1 #L2 #_ #_ #H destruct +] +qed-. + +(* Basic_1: includes: drop_gen_sort ) +( Basic_2A1: includes: drop_inv_atom1 ) +lemma drops_inv_atom1: âb,f,Y. â¬[b, f] â â Y â Y = â â§ (b = â â ðâ¦fâ¦). +/2 width=3 by drops_inv_atom1_aux/ qed-. + +fact drops_inv_drop1_aux: âb,f,X,Y. â¬[b, f] X â Y â âg,I,K. X = K.â{I} â f = âg â + â¬[b, g] K â Y. +#b #f #X #Y * -f -X -Y +[ #f #Hf #g #J #K #H destruct +| #f #I #L1 #L2 #HL #g #J #K #H1 #H2 <(injective_next â¦ H2) -g destruct // +| #f #I1 #I2 #L1 #L2 #_ #_ #g #J #K #_ #H2 elim (discr_push_next â¦ H2) +] +qed-. + +(* Basic_1: includes: drop_gen_drop ) +( Basic_2A1: includes: drop_inv_drop1_lt drop_inv_drop1 ) +lemma drops_inv_drop1: âb,f,I,K,Y. â¬[b, âf] K.â{I} â Y â â¬[b, f] K â Y. +/2 width=6 by drops_inv_drop1_aux/ qed-. + +fact drops_inv_skip1_aux: âb,f,X,Y. â¬[b, f] X â Y â âg,I1,K1. X = K1.â{I1} â f = â«¯g â + ââI2,K2. â¬[b, g] K1 â K2 & â¬[g] I2 â I1 & Y = K2.â{I2}. +#b #f #X #Y * -f -X -Y +[ #f #Hf #g #J1 #K1 #H destruct +| #f #I #L1 #L2 #_ #g #J1 #K1 #_ #H2 elim (discr_next_push â¦ H2) +| #f #I1 #I2 #L1 #L2 #HL #HI #g #J1 #K1 #H1 #H2 <(injective_push â¦ H2) -g destruct + /2 width=5 by ex3_2_intro/ +] +qed-. + +(* Basic_1: includes: drop_gen_skip_l ) +( Basic_2A1: includes: drop_inv_skip1 ) +lemma drops_inv_skip1: âb,f,I1,K1,Y. â¬[b, â«¯f] K1.â{I1} â Y â + ââI2,K2. â¬[b, f] K1 â K2 & â¬[f] I2 â I1 & Y = K2.â{I2}. +/2 width=5 by drops_inv_skip1_aux/ qed-. + +fact drops_inv_skip2_aux: âb,f,X,Y. â¬[b, f] X â Y â âg,I2,K2. Y = K2.â{I2} â f = â«¯g â + ââI1,K1. â¬[b, g] K1 â K2 & â¬[g] I2 â I1 & X = K1.â{I1}. +#b #f #X #Y -f -X -Y +[ #f #Hf #g #J2 #K2 #H destruct +| #f #I #L1 #L2 #_ #g #J2 #K2 #_ #H2 elim (discr_next_push â¦ H2) +| #f #I1 #I2 #L1 #L2 #HL #HV #g #J2 #K2 #H1 #H2 <(injective_push â¦ H2) -g destruct + /2 width=5 by ex3_2_intro/ +] +qed-. + +(* Basic_1: includes: drop_gen_skip_r ) +( Basic_2A1: includes: drop_inv_skip2 ) +lemma drops_inv_skip2: âb,f,I2,X,K2. â¬[b, â«¯f] X â K2.â{I2} â + ââI1,K1. â¬[b, f] K1 â K2 & â¬[f] I2 â I1 & X = K1.â{I1}. +/2 width=5 by drops_inv_skip2_aux/ qed-. + +(* Basic forward lemmas *****************************************************) + +fact drops_fwd_drop2_aux: âb,f2,X,Y. â¬[b, f2] X â Y â âI,K. Y = K.â{I} â + ââf1,f. ðâ¦f1â¦ & f2 â âf1 â f & â¬[b, f] X â K. +#b #f2 #X #Y #H elim H -f2 -X -Y +[ #f2 #Hf2 #J #K #H destruct +| #f2 #I #L1 #L2 #_ #IHL #J #K #H elim (IHL â¦ H) -IHL + /3 width=7 by after_next, ex3_2_intro, drops_drop/ +| #f2 #I1 #I2 #L1 #L2 #HL #_ #_ #J #K #H destruct + lapply (after_isid_dx ðð â¦ f2) /3 width=9 by after_push, ex3_2_intro, drops_drop/ +] +qed-. + +lemma drops_fwd_drop2: âb,f2,I,X,K. â¬[b, f2] X â K.â{I} â + ââf1,f. ðâ¦f1â¦ & f2 â âf1 â f & â¬[b, f] X â K. +/2 width=4 by drops_fwd_drop2_aux/ qed-. + +(* Properties with test for identity ****************************************) + +(* Basic_2A1: includes: drop_refl ) +lemma drops_refl: âb,L,f. ðâ¦fâ¦ â â¬[b, f] L â L. +#b #L elim L -L /2 width=1 by drops_atom/ +#L #I #IHL #f #Hf elim (isid_inv_gen â¦ Hf) -Hf +/3 width=1 by drops_skip, liftsb_refl/ +qed. + +(* Forward lemmas test for identity *****************************************) + +(* Basic_1: includes: drop_gen_refl ) +( Basic_2A1: includes: drop_inv_O2 ) +lemma drops_fwd_isid: âb,f,L1,L2. â¬[b, f] L1 â L2 â ðâ¦fâ¦ â L1 = L2. +#b #f #L1 #L2 #H elim H -f -L1 -L2 // +[ #f #I #L1 #L2 #_ #_ #H elim (isid_inv_next â¦ H) // +| /5 width=5 by isid_inv_push, liftsb_fwd_isid, eq_f2, sym_eq/ +] +qed-. + +lemma drops_after_fwd_drop2: âb,f2,I,X,K. â¬[b, f2] X â K.â{I} â + âf1,f. ðâ¦f1â¦ â f2 â âf1 â f â â¬[b, f] X â K. +#b #f2 #I #X #K #H #f1 #f #Hf1 #Hf elim (drops_fwd_drop2 â¦ H) -H +#g1 #g #Hg1 #Hg #HK lapply (after_mono_eq â¦ Hg â¦ Hf ??) -Hg -Hf +/3 width=5 by drops_eq_repl_back, isid_inv_eq_repl, eq_next/ +qed-. + +(* Forward lemmas with test for finite colength *****************************) + +lemma drops_fwd_isfin: âf,L1,L2. â¬[â, f] L1 â L2 â ðâ¦fâ¦. +#f #L1 #L2 #H elim H -f -L1 -L2 +/3 width=1 by isfin_next, isfin_push, isfin_isid/ +qed-. + +( Properties with test for uniformity **************************************) + +lemma drops_isuni_ex: âf. ðâ¦fâ¦ â âL. âK. â¬[â», f] L â K. +#f #H elim H -f /4 width=2 by drops_refl, drops_TF, ex_intro/ +#f #_ #g #H #IH destruct /2 width=2 by ex_intro/ +#L #I elim (IH L) -IH /3 width=2 by drops_drop, ex_intro/ +qed-. + +(* Inversion lemmas with test for uniformity ********************************) + +lemma drops_inv_isuni: âf,L1,L2. â¬[â, f] L1 â L2 â ðâ¦fâ¦ â + (ðâ¦fâ¦ â§ L1 = L2) â¨ + ââg,I,K. â¬[â, g] K â L2 & ðâ¦gâ¦ & L1 = K.â{I} & f = âg. +#f #L1 #L2 * -f -L1 -L2 +[ /4 width=1 by or_introl, conj/ +| /4 width=7 by isuni_inv_next, ex4_3_intro, or_intror/ +| /7 width=6 by drops_fwd_isid, liftsb_fwd_isid, isuni_inv_push, isid_push, or_introl, conj, eq_f2, sym_eq/ +] +qed-. + +(* Basic_2A1: was: drop_inv_O1_pair1 ) +lemma drops_inv_bind1_isuni: âb,f,I,K,L2. ðâ¦fâ¦ â â¬[b, f] K.â{I} â L2 â + (ðâ¦fâ¦ â§ L2 = K.â{I}) â¨ + ââg. ðâ¦gâ¦ & â¬[b, g] K â L2 & f = âg. +#b #f #I #K #L2 #Hf #H elim (isuni_split â¦ Hf) -Hf #g #Hg #H0 destruct +[ lapply (drops_inv_skip1 â¦ H) -H * #Z #Y #HY #HZ #H destruct + <(drops_fwd_isid â¦ HY Hg) -Y >(liftsb_fwd_isid â¦ HZ Hg) -Z + /4 width=3 by isid_push, or_introl, conj/ +| lapply (drops_inv_drop1 â¦ H) -H /3 width=4 by ex3_intro, or_intror/ +] +qed-. + +(* Basic_2A1: was: drop_inv_O1_pair2 ) +lemma drops_inv_bind2_isuni: âb,f,I,K,L1. ðâ¦fâ¦ â â¬[b, f] L1 â K.â{I} â + (ðâ¦fâ¦ â§ L1 = K.â{I}) â¨ + ââg,I1,K1. ðâ¦gâ¦ & â¬[b, g] K1 â K.â{I} & L1 = K1.â{I1} & f = âg. +#b #f #I #K +[ #Hf #H elim (drops_inv_atom1 â¦ H) -H #H destruct +| #L1 #I1 #Hf #H elim (drops_inv_bind1_isuni â¦ Hf H) -Hf -H * + [ #Hf #H destruct /3 width=1 by or_introl, conj/ + | /3 width=7 by ex4_3_intro, or_intror/ + ] +] +qed-. + +lemma drops_inv_bind2_isuni_next: âb,f,I,K,L1. ðâ¦fâ¦ â â¬[b, âf] L1 â K.â{I} â + ââI1,K1. â¬[b, f] K1 â K.â{I} & L1 = K1.â{I1}. +#b #f #I #K #L1 #Hf #H elim (drops_inv_bind2_isuni â¦ H) -H /2 width=3 by isuni_next/ -Hf * +[ #H elim (isid_inv_next â¦ H) -H // +| /2 width=4 by ex2_2_intro/ +] +qed-. + +fact drops_inv_TF_aux: âf,L1,L2. â¬[â», f] L1 â L2 â ðâ¦fâ¦ â + âI,K. L2 = K.â{I} â â¬[â, f] L1 â K.â{I}. +#f #L1 #L2 #H elim H -f -L1 -L2 +[ #f #_ #_ #J #K #H destruct +| #f #I #L1 #L2 #_ #IH #Hf #J #K #H destruct + /4 width=3 by drops_drop, isuni_inv_next/ +| #f #I1 #I2 #L1 #L2 #HL12 #HI21 #_ #Hf #J #K #H destruct + lapply (isuni_inv_push â¦ Hf ??) -Hf [1,2: // ] #Hf + <(drops_fwd_isid â¦ HL12) -K // <(liftsb_fwd_isid â¦ HI21) -I1 + /3 width=3 by drops_refl, isid_push/ +] +qed-. + +(* Basic_2A1: includes: drop_inv_FT ) +lemma drops_inv_TF: âf,I,L,K. â¬[â», f] L â K.â{I} â ðâ¦fâ¦ â â¬[â, f] L â K.â{I}. +/2 width=3 by drops_inv_TF_aux/ qed-. + +( Basic_2A1: includes: drop_inv_gen ) +lemma drops_inv_gen: âb,f,I,L,K. â¬[b, f] L â K.â{I} â ðâ¦fâ¦ â â¬[â, f] L â K.â{I}. + /2 width=1 by drops_inv_TF/ +qed-. + +(* Basic_2A1: includes: drop_inv_T ) +lemma drops_inv_F: âb,f,I,L,K. â¬[â», f] L â K.â{I} â ðâ¦fâ¦ â â¬[b, f] L â K.â{I}. + /2 width=1 by drops_inv_TF/ +qed-. + +(* Forward lemmas with test for uniformity **********************************) + +(* Basic_1: was: drop_S ) +( Basic_2A1: was: drop_fwd_drop2 ) +lemma drops_isuni_fwd_drop2: âb,f,I,X,K. ðâ¦fâ¦ â â¬[b, f] X â K.â{I} â â¬[b, âf] X â K. +/3 width=7 by drops_after_fwd_drop2, after_isid_isuni/ qed-. + +( Inversion lemmas with uniform relocations ********************************) + +lemma drops_inv_atom2: âb,L,f. â¬[b, f] L â â â + âân,f1. â¬[b, ðâ´nâµ] L â â & ðâ´nâµ â f1 â f. +#b #L elim L -L +[ /3 width=4 by drops_atom, after_isid_sn, ex2_2_intro/ +| #L #I #IH #f #H elim (pn_split f) * #g #H0 destruct + [ elim (drops_inv_skip1 â¦ H) -H #J #K #_ #_ #H destruct + | lapply (drops_inv_drop1 â¦ H) -H #HL + elim (IH â¦ HL) -IH -HL /3 width=8 by drops_drop, after_next, ex2_2_intro/ + ] +] +qed-. + +lemma drops_inv_succ: âL1,L2,i. â¬[âi] L1 â L2 â + ââI,K. â¬[i] K â L2 & L1 = K.â{I}. +#L1 #L2 #i #H elim (drops_inv_isuni â¦ H) -H // * +[ #H elim (isid_inv_next â¦ H) -H // +| /2 width=4 by ex2_2_intro/ +] +qed-. + +(* Properties with uniform relocations **************************************) + +lemma drops_F_uni: âL,i. â¬[â», ðâ´iâµ] L â â â¨ ââI,K. â¬[i] L â K.â{I}. +#L elim L -L /2 width=1 by or_introl/ +#L #I #IH * /4 width=3 by drops_refl, ex1_2_intro, or_intror/ +#i elim (IH i) -IH /3 width=1 by drops_drop, or_introl/ +* /4 width=3 by drops_drop, ex1_2_intro, or_intror/ +qed-. + +(* Basic_2A1: includes: drop_split ) +lemma drops_split_trans: âb,f,L1,L2. â¬[b, f] L1 â L2 â âf1,f2. f1 â f2 â f â ðâ¦f1â¦ â + ââL. â¬[b, f1] L1 â L & â¬[b, f2] L â L2. +#b #f #L1 #L2 #H elim H -f -L1 -L2 +[ #f #H0f #f1 #f2 #Hf #Hf1 @(ex2_intro â¦ (â)) @drops_atom + #H lapply (H0f H) -b + #H elim (after_inv_isid3 â¦ Hf H) -f // +| #f #I #L1 #L2 #HL12 #IHL12 #f1 #f2 #Hf #Hf1 elim (after_inv_xxn â¦ Hf) -Hf [1,3: * |: // ] + [ #g1 #g2 #Hf #H1 #H2 destruct + lapply (isuni_inv_push â¦ Hf1 ??) -Hf1 [1,2: // ] #Hg1 + elim (IHL12 â¦ Hf) -f + /4 width=5 by drops_drop, drops_skip, liftsb_refl, isuni_isid, ex2_intro/ + | #g1 #Hf #H destruct elim (IHL12 â¦ Hf) -f + /3 width=5 by ex2_intro, drops_drop, isuni_inv_next/ + ] +| #f #I1 #I2 #L1 #L2 #_ #HI21 #IHL12 #f1 #f2 #Hf #Hf1 elim (after_inv_xxp â¦ Hf) -Hf [2,3: // ] + #g1 #g2 #Hf #H1 #H2 destruct elim (liftsb_split_trans â¦ HI21 â¦ Hf) -HI21 + elim (IHL12 â¦ Hf) -f /3 width=5 by ex2_intro, drops_skip, isuni_fwd_push/ +] +qed-. + +lemma drops_split_div: âb,f1,L1,L. â¬[b, f1] L1 â L â âf2,f. f1 â f2 â f â ðâ¦f2â¦ â + ââL2. â¬[â», f2] L â L2 & â¬[â», f] L1 â L2. +#b #f1 #L1 #L #H elim H -f1 -L1 -L +[ #f1 #Hf1 #f2 #f #Hf #Hf2 @(ex2_intro â¦ (â)) @drops_atom #H destruct +| #f1 #I #L1 #L #HL1 #IH #f2 #f #Hf #Hf2 elim (after_inv_nxx â¦ Hf) -Hf [2,3: // ] + #g #Hg #H destruct elim (IH â¦ Hg) -IH -Hg /3 width=5 by drops_drop, ex2_intro/ +| #f1 #I1 #I #L1 #L #HL1 #HI1 #IH #f2 #f #Hf #Hf2 + elim (after_inv_pxx â¦ Hf) -Hf [1,3: * |: // ] + #g2 #g #Hg #H2 #H0 destruct + [ lapply (isuni_inv_push â¦ Hf2 ??) -Hf2 [1,2: // ] #Hg2 -IH + lapply (after_isid_inv_dx â¦ Hg â¦ Hg2) -Hg #Hg + /5 width=7 by drops_eq_repl_back, drops_F, drops_refl, drops_skip, liftsb_eq_repl_back, isid_push, ex2_intro/ + | lapply (isuni_inv_next â¦ Hf2 ??) -Hf2 [1,2: // ] #Hg2 -HL1 -HI1 + elim (IH â¦ Hg) -f1 /3 width=3 by drops_drop, ex2_intro/ + ] +] +qed-. + +( Properties with application **********************************************) + +lemma drops_tls_at: âf,i1,i2. @â¦i1,fâ¦ â i2 â + âb,L1,L2. â¬[b,â«±[i2]f] L1 â L2 â + â¬[b,â«¯â«±[âi2]f] L1 â L2. +/3 width=3 by drops_eq_repl_fwd, at_inv_tls/ qed-. + +lemma drops_split_trans_bind2: âb,f,I,L,K0. â¬[b, f] L â K0.â{I} â âi. @â¦O, fâ¦ â i â + ââJ,K. â¬[i]L â K.â{J} & â¬[b, â«±[âi]f] K â K0 & â¬[â«±[âi]f] I â J. +#b #f #I #L #K0 #H #i #Hf +elim (drops_split_trans â¦ H) -H [ |5: @(after_uni_dx â¦ Hf) |2,3: skip ] /2 width=1 by after_isid_dx/ #Y #HLY #H +lapply (drops_tls_at â¦ Hf â¦ H) -H #H +elim (drops_inv_skip2 â¦ H) -H #J #K #HK0 #HIJ #H destruct +/3 width=5 by drops_inv_gen, ex3_2_intro/ +qed-. + +(* Properties with context-sensitive equivalence for terms ******************) + +lemma ceq_lift_sn: d_liftable2_sn â¦ liftsb ceq_ext. +#K #I1 #I2 #H <(ceq_ext_inv_eq â¦ H) -I2 +/2 width=3 by ex2_intro/ qed-. + +lemma ceq_inv_lift_sn: d_deliftable2_sn â¦ liftsb ceq_ext. +#L #J1 #J2 #H <(ceq_ext_inv_eq â¦ H) -J2 +/2 width=3 by ex2_intro/ qed-. + +(* Note: d_deliftable2_sn cfull does not hold ) +lemma cfull_lift_sn: d_liftable2_sn â¦ liftsb cfull. +#K #I1 #I2 #_ #b #f #L #_ #J1 #_ -K -I1 -b +elim (liftsb_total I2 f) /2 width=3 by ex2_intro/ +qed-. + +( Basic_2A1: removed theorems 12: + drops_inv_nil drops_inv_cons d1_liftable_liftables + drop_refl_atom_O2 drop_inv_pair1 + drop_inv_Y1 drop_Y1 drop_O_Y drop_fwd_Y2 + drop_fwd_length_minus2 drop_fwd_length_minus4 +) +( Basic_1: removed theorems 53: + drop1_gen_pnil drop1_gen_pcons drop1_getl_trans + drop_ctail drop_skip_flat + cimp_flat_sx cimp_flat_dx cimp_bind cimp_getl_conf + drop_clear drop_clear_O drop_clear_S + clear_gen_sort clear_gen_bind clear_gen_flat clear_gen_flat_r + clear_gen_all clear_clear clear_mono clear_trans clear_ctail clear_cle + getl_ctail_clen getl_gen_tail clear_getl_trans getl_clear_trans + getl_clear_bind getl_clear_conf getl_dec getl_drop getl_drop_conf_lt + getl_drop_conf_ge getl_conf_ge_drop getl_drop_conf_rev + drop_getl_trans_lt drop_getl_trans_le drop_getl_trans_ge + getl_drop_trans getl_flt getl_gen_all getl_gen_sort getl_gen_O + getl_gen_S getl_gen_2 getl_gen_flat getl_gen_bind getl_conf_le + getl_trans getl_refl getl_head getl_flat getl_ctail getl_mono +*) diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/drops_cext2.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_cext2.ma new file mode 100644 index 000000000..c55f9332f --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_cext2.ma @@ -0,0 +1,29 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/drops.ma". + +(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) + +(* Properties with the extension to binders of a context-sensitive relation ) + +lemma cext2_d_liftable2_sn: âR. d_liftable2_sn â¦ lifts R â + d_liftable2_sn â¦ liftsb (cext2 R). +#R #HR #K #I1 #I2 -I1 -I2 #I [| #T1 #T2 #HT12 ] +#b #f #L #HLK #Z1 #H +[ lapply (liftsb_inv_unit_sn â¦ H) +| lapply (liftsb_inv_pair_sn â¦ H) * #U1 #HTU1 +] -H #H destruct /3 width=3 by ext2_unit, ex2_intro/ +elim (HR â¦ HT12 â¦ HLK â¦ HTU1) -HR -b -K -T1 /3 width=3 by ext2_pair, ex2_intro/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/drops_ctc.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_ctc.ma new file mode 100644 index 000000000..acd929c41 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_ctc.ma @@ -0,0 +1,72 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/lib/star.ma". +include "static_2/relocation/seq_seq.ma". + +(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) + +(* Properties with contextual transitive closure ****************************) + +(* Basic_2A1: was: d_liftable_LTC ) +lemma d2_liftable_sn_CTC: âC,S,R. d_liftable2_sn C S R â d_liftable2_sn C S (CTC â¦ R). +#C #S #R #HR #K #T1 #T2 #H elim H -T2 +[ #T2 #HT12 #b #f #L #HLK #U1 #HTU1 + elim (HR â¦ HT12 â¦ HLK â¦ HTU1) /3 width=3 by inj, ex2_intro/ +| #T #T2 #_ #HT2 #IHT1 #b #f #L #HLK #U1 #HTU1 + elim (IHT1 â¦ HLK â¦ HTU1) -T1 #U #HTU #HU1 + elim (HR â¦ HT2 â¦ HLK â¦ HTU) -HR -K -T /3 width=5 by step, ex2_intro/ +] +qed-. + +( Basic_2A1: was: d_deliftable_sn_LTC *) +lemma d2_deliftable_sn_CTC: âC,S,R. d_deliftable2_sn C S R â d_deliftable2_sn C S (CTC â¦ R). +#C #S #R #HR #L #U1 #U2 #H elim H -U2 +[ #U2 #HU12 #b #f #K #HLK #T1 #HTU1 + elim (HR â¦ HU12 â¦ HLK â¦ HTU1) -HR -L -U1 /3 width=3 by inj, ex2_intro/ +| #U #U2 #_ #HU2 #IHU1 #b #f #K #HLK #T1 #HTU1 + elim (IHU1 â¦ HLK â¦ HTU1) -IHU1 -U1 #T #HTU #HT1 + elim (HR â¦ HU2 â¦ HLK â¦ HTU) -HR -L -U /3 width=5 by step, ex2_intro/ +] +qed-. + +lemma co_dropable_sn_CTC: âR. co_dropable_sn R â co_dropable_sn (CTC â¦ R). +#R #HR #b #f #L1 #K1 #HLK1 #Hf #f2 #L2 #H elim H -L2 +[ #L2 #HL12 #f1 #H elim (HR â¦ HLK1 â¦ Hf â¦ HL12 â¦ H) -HR -Hf -f2 -L1 + /3 width=3 by inj, ex2_intro/ +| #L #L2 #_ #HL2 #IH #f1 #H elim (IH â¦ H) -IH + #K #HK1 #HLK elim (HR â¦ HLK â¦ HL2 â¦ H) -HR -f2 -L + /3 width=3 by step, ex2_intro/ +] +qed-. + +lemma co_dropable_dx_CTC: âR. co_dropable_dx R â co_dropable_dx (CTC â¦ R). +#R #HR #f2 #L1 #L2 #H elim H -L2 +[ #L2 #HL12 #b #f #K2 #HLK2 #Hf #f1 #Hf2 elim (HR â¦ HL12 â¦ HLK2 â¦ Hf â¦ Hf2) -HR -Hf -f2 -L2 + /3 width=3 by inj, ex2_intro/ +| #L #L2 #_ #HL2 #IHL1 #b #f #K2 #HLK2 #Hf #f1 #Hf2 elim (HR â¦ HL2 â¦ HLK2 â¦ Hf â¦ Hf2) -HR -L2 + #K #HLK #HK2 elim (IHL1 â¦ HLK â¦ Hf â¦ Hf2) -Hf -f2 -L + /3 width=5 by step, ex2_intro/ +] +qed-. + +lemma co_dedropable_sn_CTC: âR. co_dedropable_sn R â co_dedropable_sn (CTC â¦ R). +#R #HR #b #f #L1 #K1 #HLK1 #f1 #K2 #H elim H -K2 +[ #K2 #HK12 #f2 #Hf elim (HR â¦ HLK1 â¦ HK12 â¦ Hf) -HR -f1 -K1 + /3 width=4 by inj, ex3_intro/ +| #K #K2 #_ #HK2 #IH #f2 #Hf elim (IH â¦ Hf) -IH -K1 + #L #H1L1 #HLK #H2L1 elim (HR â¦ HLK â¦ HK2 â¦ Hf) -HR -f1 -K + /3 width=6 by seq_trans, step, ex3_intro/ +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/drops_drops.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_drops.ma new file mode 100644 index 000000000..1c44ed555 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_drops.ma @@ -0,0 +1,133 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/lifts_lifts_bind.ma". +include "static_2/relocation/drops_weight.ma". + +(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) + +(* Main properties **********************************************************) + +(* Basic_2A1: includes: drop_conf_ge drop_conf_be drop_conf_le ) +theorem drops_conf: âb1,f1,L1,L. â¬[b1, f1] L1 â L â + âb2,f,L2. â¬[b2, f] L1 â L2 â + âf2. f1 â f2 â f â â¬[b2, f2] L â L2. +#b1 #f1 #L1 #L #H elim H -f1 -L1 -L +[ #f1 #_ #b2 #f #L2 #HL2 #f2 #Hf12 elim (drops_inv_atom1 â¦ HL2) -b1 -HL2 + #H #Hf destruct @drops_atom + #H elim (after_inv_isid3 â¦ Hf12) -Hf12 /2 width=1 by/ +| #f1 #I1 #K1 #K #_ #IH #b2 #f #L2 #HL2 #f2 #Hf elim (after_inv_nxx â¦ Hf) -Hf [2,3: // ] + #g #Hg #H destruct /3 width=3 by drops_inv_drop1/ +| #f1 #I1 #I #K1 #K #_ #HI1 #IH #b2 #f #L2 #HL2 #f2 #Hf elim (after_inv_pxx â¦ Hf) -Hf [1,3: * |:// ] + #g2 #g #Hf #H1 #H2 destruct + [ elim (drops_inv_skip1 â¦ HL2) -HL2 /3 width=6 by drops_skip, liftsb_div3/ + | /4 width=3 by drops_inv_drop1, drops_drop/ + ] +] +qed-. + +( Basic_1: was: drop1_trans ) +( Basic_2A1: includes: drop_trans_ge drop_trans_le drop_trans_ge_comm + drops_drop_trans +) +theorem drops_trans: âb1,f1,L1,L. â¬[b1, f1] L1 â L â + âb2,f2,L2. â¬[b2, f2] L â L2 â + âf. f1 â f2 â f â â¬[b1â§b2, f] L1 â L2. +#b1 #f1 #L1 #L #H elim H -f1 -L1 -L +[ #f1 #Hf1 #b2 #f2 #L2 #HL2 #f #Hf elim (drops_inv_atom1 â¦ HL2) -HL2 + #H #Hf2 destruct @drops_atom #H elim (andb_inv_true_dx â¦ H) -H + #H1 #H2 lapply (after_isid_inv_sn â¦ Hf ?) -Hf + /3 width=3 by isid_eq_repl_back/ +| #f1 #I1 #K1 #K #_ #IH #b2 #f2 #L2 #HL2 #f #Hf elim (after_inv_nxx â¦ Hf) -Hf + /3 width=3 by drops_drop/ +| #f1 #I1 #I #K1 #K #_ #HI1 #IH #b2 #f2 #L2 #HL2 #f #Hf elim (after_inv_pxx â¦ Hf) -Hf [1,3: * |: // ] + #g2 #g #Hg #H1 #H2 destruct + [ elim (drops_inv_skip1 â¦ HL2) -HL2 /3 width=6 by drops_skip, liftsb_trans/ + | /4 width=3 by drops_inv_drop1, drops_drop/ + ] +] +qed-. + +theorem drops_conf_div: âf1,L,K. â¬[â,f1] L â K â âf2. â¬[â,f2] L â K â + ðâ¦f1â¦ â ðâ¦f2â¦ â f1 â¡ f2. +#f1 #L #K #H elim H -f1 -L -K +[ #f1 #Hf1 #f2 #Hf2 elim (drops_inv_atom1 â¦ Hf2) -Hf2 + /3 width=1 by isid_inv_eq_repl/ +| #f1 #I #L #K #Hf1 #IH #f2 elim (pn_split f2) + #g2 #H2 #Hf2 #HU1 #HU2 destruct + [ elim (drops_inv_skip1 â¦ Hf2) -IH -HU1 -Hf2 #Y2 #X2 #HY2 #_ #H destruct + lapply (drops_fwd_isid â¦ HY2 ?) -HY2 /2 width=3 by isuni_inv_push/ -HU2 + #H destruct elim (drops_inv_x_bind_xy â¦ Hf1) + | /4 width=5 by drops_inv_drop1, isuni_inv_next, eq_next/ + ] +| #f1 #I1 #I2 #L #K #Hf1 #_ #IH #f2 elim (pn_split f2) * + #g2 #H2 #Hf2 #HU1 #HU2 destruct + [ elim (drops_inv_skip1 â¦ Hf2) -Hf2 #Y2 #X2 #HY2 #_ #H destruct -Hf1 + /4 width=5 by isuni_fwd_push, eq_push/ + | lapply (drops_inv_drop1 â¦ Hf2) -Hf2 -IH -HU2 #Hg2 + lapply (drops_fwd_isid â¦ Hf1 ?) -Hf1 /2 width=3 by isuni_inv_push/ -HU1 + #H destruct elim (drops_inv_x_bind_xy â¦ Hg2) + ] +] +qed-. + +(* Advanced properties ******************************************************) + +(* Basic_2A1: includes: drop_mono ) +lemma drops_mono: âb1,f,L,L1. â¬[b1, f] L â L1 â + âb2,L2. â¬[b2, f] L â L2 â L1 = L2. +#b1 #f #L #L1 lapply (after_isid_dx ðð â¦ f) +/3 width=8 by drops_conf, drops_fwd_isid/ +qed-. + +( Basic_2A1: includes: drop_conf_lt ) +lemma drops_conf_skip1: âb2,f,L,L2. â¬[b2, f] L â L2 â + âb1,f1,I1,K1. â¬[b1, f1] L â K1.â{I1} â + âf2. f1 â â«¯f2 â f â + ââI2,K2. L2 = K2.â{I2} & + â¬[b2, f2] K1 â K2 & â¬[f2] I2 â I1. +#b2 #f #L #L2 #H2 #b1 #f1 #I1 #K1 #H1 #f2 #Hf lapply (drops_conf â¦ H1 â¦ H2 â¦ Hf) -L -Hf +#H elim (drops_inv_skip1 â¦ H) -H /2 width=5 by ex3_2_intro/ +qed-. + +( Basic_2A1: includes: drop_trans_lt ) +lemma drops_trans_skip2: âb1,f1,L1,L. â¬[b1, f1] L1 â L â + âb2,f2,I2,K2. â¬[b2, f2] L â K2.â{I2} â + âf. f1 â f2 â â«¯f â + ââI1,K1. L1 = K1.â{I1} & + â¬[b1â§b2, f] K1 â K2 & â¬[f] I2 â I1. +#b1 #f1 #L1 #L #H1 #b2 #f2 #I2 #K2 #H2 #f #Hf +lapply (drops_trans â¦ H1 â¦ H2 â¦ Hf) -L -Hf +#H elim (drops_inv_skip2 â¦ H) -H /2 width=5 by ex3_2_intro/ +qed-. + +( Basic_2A1: includes: drops_conf_div ) +lemma drops_conf_div_bind: âf1,f2,I1,I2,L,K. + â¬[â, f1] L â K.â{I1} â â¬[â, f2] L â K.â{I2} â + ðâ¦f1â¦ â ðâ¦f2â¦ â f1 â¡ f2 â§ I1 = I2. +#f1 #f2 #I1 #I2 #L #K #Hf1 #Hf2 #HU1 #HU2 +lapply (drops_isuni_fwd_drop2 â¦ Hf1) // #H1 +lapply (drops_isuni_fwd_drop2 â¦ Hf2) // #H2 +lapply (drops_conf_div â¦ H1 â¦ H2 ??) /2 width=3 by isuni_next/ -H1 -H2 -HU1 -HU2 #H +lapply (eq_inv_nn â¦ H ????) -H [5: |: // ] #H12 +lapply (drops_eq_repl_back â¦ Hf1 â¦ H12) -Hf1 #H0 +lapply (drops_mono â¦ H0 â¦ Hf2) -L #H +destruct /2 width=1 by conj/ +qed-. + +lemma drops_inv_uni: âL,i. â¬[â», ðâ´iâµ] L â â â âI,K. â¬[i] L â K.â{I} â â¥. +#L #i #H1 #I #K #H2 +lapply (drops_F â¦ H2) -H2 #H2 +lapply (drops_mono â¦ H2 â¦ H1) -L -i #H destruct +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/drops_length.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_length.ma new file mode 100644 index 000000000..94085a331 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_length.ma @@ -0,0 +1,125 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/lenv_length.ma". +include "static_2/relocation/drops.ma". + +(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) + +(* Forward lemmas with length for local environments ************************) + +(* Basic_2A1: includes: drop_fwd_length_le4 ) +lemma drops_fwd_length_le4: âb,f,L1,L2. â¬[b, f] L1 â L2 â |L2| â¤ |L1|. +#b #f #L1 #L2 #H elim H -f -L1 -L2 /2 width=1 by le_S, le_S_S/ +qed-. + +(* Basic_2A1: includes: drop_fwd_length_eq1 ) +theorem drops_fwd_length_eq1: âb1,b2,f,L1,K1. â¬[b1, f] L1 â K1 â + âL2,K2. â¬*[b2, f] L2 â K2 â + |L1| = |L2| â |K1| = |K2|. +#b1 #b2 #f #L1 #K1 #HLK1 elim HLK1 -f -L1 -K1 +[ #f #_ #L2 #K2 #HLK2 #H lapply (length_inv_zero_sn â¦ H) -H + #H destruct elim (drops_inv_atom1 â¦ HLK2) -HLK2 // +| #f #I1 #L1 #K1 #_ #IH #X2 #K2 #HX #H elim (length_inv_succ_sn â¦ H) -H + #I2 #L2 #H12 #H destruct lapply (drops_inv_drop1 â¦ HX) -HX + #HLK2 @(IH â¦ HLK2 H12) (**) (* auto fails *) +| #f #I1 #I2 #L1 #K1 #_ #_ #IH #X2 #Y2 #HX #H elim (length_inv_succ_sn â¦ H) -H + #I2 #L2 #H12 #H destruct elim (drops_inv_skip1 â¦ HX) -HX + #I2 #K2 #HLK2 #_ #H destruct + lapply (IH â¦ HLK2 H12) -f >length_bind >length_bind /2 width=1 by/ (**) (* full auto fails ) +] +qed-. + +( forward lemmas with finite colength assignment ***************************) + +lemma drops_fwd_fcla: âf,L1,L2. â¬[â, f] L1 â L2 â + âân. ðâ¦fâ¦ â n & |L1| = |L2| + n. +#f #L1 #L2 #H elim H -f -L1 -L2 +[ /4 width=3 by fcla_isid, ex2_intro/ +| #f #I #L1 #L2 #_ >length_bind /3 width=3 by fcla_next, ex2_intro, eq_f/ +| #f #I1 #I2 #L1 #L2 #_ #_ * >length_bind >length_bind /3 width=3 by fcla_push, ex2_intro/ +] +qed-. + +(* Basic_2A1: includes: drop_fwd_length ) +lemma drops_fcla_fwd: âf,L1,L2,n. â¬[â, f] L1 â L2 â ðâ¦fâ¦ â n â + |L1| = |L2| + n. +#f #l1 #l2 #n #Hf #Hn elim (drops_fwd_fcla â¦ Hf) -Hf +#k #Hm #H <(fcla_mono â¦ Hm â¦ Hn) -f // +qed-. + +lemma drops_fwd_fcla_le2: âf,L1,L2. â¬[â, f] L1 â L2 â + âân. ðâ¦fâ¦ â n & n â¤ |L1|. +#f #L1 #L2 #H elim (drops_fwd_fcla â¦ H) -H /2 width=3 by ex2_intro/ +qed-. + +( Basic_2A1: includes: drop_fwd_length_le2 ) +lemma drops_fcla_fwd_le2: âf,L1,L2,n. â¬[â, f] L1 â L2 â ðâ¦fâ¦ â n â + n â¤ |L1|. +#f #L1 #L2 #n #H #Hn elim (drops_fwd_fcla_le2 â¦ H) -H +#k #Hm #H <(fcla_mono â¦ Hm â¦ Hn) -f // +qed-. + +lemma drops_fwd_fcla_lt2: âf,L1,I2,K2. â¬[â, f] L1 â K2.â{I2} â + âân. ðâ¦fâ¦ â n & n < |L1|. +#f #L1 #I2 #K2 #H elim (drops_fwd_fcla â¦ H) -H +#n #Hf #H >H -L1 /3 width=3 by le_S_S, ex2_intro/ +qed-. + +( Basic_2A1: includes: drop_fwd_length_lt2 ) +lemma drops_fcla_fwd_lt2: âf,L1,I2,K2,n. + â¬[â, f] L1 â K2.â{I2} â ðâ¦fâ¦ â n â + n < |L1|. +#f #L1 #I2 #K2 #n #H #Hn elim (drops_fwd_fcla_lt2 â¦ H) -H +#k #Hm #H <(fcla_mono â¦ Hm â¦ Hn) -f // +qed-. + +(* Basic_2A1: includes: drop_fwd_length_lt4 ) +lemma drops_fcla_fwd_lt4: âf,L1,L2,n. â¬[â, f] L1 â L2 â ðâ¦fâ¦ â n â 0 < n â + |L2| < |L1|. +#f #L1 #L2 #n #H #Hf #Hn lapply (drops_fcla_fwd â¦ H Hf) -f +/2 width=1 by lt_minus_to_plus_r/ qed-. + +(* Basic_2A1: includes: drop_inv_length_eq ) +lemma drops_inv_length_eq: âf,L1,L2. â¬[â, f] L1 â L2 â |L1| = |L2| â ðâ¦fâ¦. +#f #L1 #L2 #H #HL12 elim (drops_fwd_fcla â¦ H) -H +#n #Hn H1 -L1 +elim (drops_fwd_fcla â¦ HLK2) -HLK2 #n2 #Hn2 #H2 >H2 -L2 +<(fcla_mono â¦ Hn2 â¦ Hn1) -f // +qed-. + +theorem drops_conf_div: âf1,f2,L1,L2. â¬[â, f1] L1 â L2 â â¬[â, f2] L1 â L2 â + âân. ðâ¦f1â¦ â n & ðâ¦f2â¦ â n. +#f1 #f2 #L1 #L2 #H1 #H2 +elim (drops_fwd_fcla â¦ H1) -H1 #n1 #Hf1 #H1 +elim (drops_fwd_fcla â¦ H2) -H2 #n2 #Hf2 >H1 -L1 #H +lapply (injective_plus_r â¦ H) -L2 #H destruct /2 width=3 by ex2_intro/ +qed-. + +theorem drops_conf_div_fcla: âf1,f2,L1,L2,n1,n2. + â¬[â, f1] L1 â L2 â â¬[â, f2] L1 â L2 â ðâ¦f1â¦ â n1 â ðâ¦f2â¦ â n2 â + n1 = n2. +#f1 #f2 #L1 #L2 #n1 #n2 #Hf1 #Hf2 #Hn1 #Hn2 +lapply (drops_fcla_fwd â¦ Hf1 Hn1) -f1 #H1 +lapply (drops_fcla_fwd â¦ Hf2 Hn2) -f2 >H1 -L1 +/2 width=1 by injective_plus_r/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/drops_lex.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_lex.ma new file mode 100644 index 000000000..1e33fc3d8 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_lex.ma @@ -0,0 +1,83 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/lex.ma". +include "static_2/relocation/drops_cext2.ma". +include "static_2/relocation/drops_sex.ma". + +(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) + +definition dedropable_sn: predicate â¦ â + Î»R. âb,f,L1,K1. â¬[b, f] L1 â K1 â âK2. K1 âª¤[R] K2 â + ââL2. L1 âª¤[R] L2 & â¬[b, f] L2 â K2 & L1 â¡[f] L2. + +definition dropable_sn: predicate â¦ â + Î»R. âb,f,L1,K1. â¬[b, f] L1 â K1 â ðâ¦fâ¦ â âL2. L1 âª¤[R] L2 â + ââK2. K1 âª¤[R] K2 & â¬[b, f] L2 â K2. + +definition dropable_dx: predicate â¦ â + Î»R. âL1,L2. L1 âª¤[R] L2 â âb,f,K2. â¬[b, f] L2 â K2 â ðâ¦fâ¦ â + ââK1. â¬[b, f] L1 â K1 & K1 âª¤[R] K2. + +(* Properties with generic extension ****************************************) + +(* Basic_2A1: was: lpx_sn_liftable_dedropable ) +lemma lex_liftable_dedropable_sn (R): c_reflexive â¦ R â + d_liftable2_sn â¦ lifts R â dedropable_sn R. +#R #H1R #H2R #b #f #L1 #K1 #HLK1 #K2 #f1 #Hf1 #HK12 +elim (sex_liftable_co_dedropable_sn â¦ HLK1 â¦ HK12) -K1 +/3 width=6 by cext2_d_liftable2_sn, cfull_lift_sn, ext2_refl, coafter_isid_dx, ex3_intro, ex2_intro/ +qed-. + +(* Inversion lemmas with generic extension **********************************) + +(* Basic_2A1: was: lpx_sn_deliftable_dropable ) +lemma lex_dropable_sn (R): dropable_sn R. +#R #b #f #L1 #K1 #HLK1 #H1f #L2 #f2 #Hf2 #HL12 +elim (sex_co_dropable_sn â¦ HLK1 â¦ HL12) -L1 +/3 width=3 by coafter_isid_dx, ex2_intro/ +qed-. + +(* Basic_2A1: was: lpx_sn_dropable ) +lemma lex_dropable_dx (R): dropable_dx R. +#R #L1 #L2 #f2 #Hf2 #HL12 #b #f #K2 #HLK2 #Hf +elim (sex_co_dropable_dx â¦ HL12 â¦ HLK2) -L2 +/3 width=5 by coafter_isid_dx, ex2_intro/ +qed-. + +(* Basic_2A1: includes: lpx_sn_drop_conf ) +lemma lex_drops_conf_pair (R): âL1,L2. L1 âª¤[R] L2 â + âb,f,I,K1,V1. â¬[b, f] L1 â K1.â{I}V1 â ðâ¦fâ¦ â + ââK2,V2. â¬[b, f] L2 â K2.â{I}V2 & K1 âª¤[R] K2 & R K1 V1 V2. +#R #L1 #L2 #f2 #Hf2 #HL12 #b #f #I #K1 #V1 #HLK1 #Hf +elim (sex_drops_conf_push â¦ HL12 â¦ HLK1 Hf f2) -L1 -Hf +[ #Z2 #K2 #HLK2 #HK12 #H + elim (ext2_inv_pair_sn â¦ H) -H #V2 #HV12 #H destruct + /3 width=5 by ex3_2_intro, ex2_intro/ +| /3 width=3 by coafter_isid_dx, isid_push/ +] +qed-. + +(* Basic_2A1: includes: lpx_sn_drop_trans ) +lemma lex_drops_trans_pair (R): âL1,L2. L1 âª¤[R] L2 â + âb,f,I,K2,V2. â¬[b, f] L2 â K2.â{I}V2 â ðâ¦fâ¦ â + ââK1,V1. â¬[b, f] L1 â K1.â{I}V1 & K1 âª¤[R] K2 & R K1 V1 V2. +#R #L1 #L2 #f2 #Hf2 #HL12 #b #f #I #K2 #V2 #HLK2 #Hf +elim (sex_drops_trans_push â¦ HL12 â¦ HLK2 Hf f2) -L2 -Hf +[ #Z1 #K1 #HLK1 #HK12 #H + elim (ext2_inv_pair_dx â¦ H) -H #V1 #HV12 #H destruct + /3 width=5 by ex3_2_intro, ex2_intro/ +| /3 width=3 by coafter_isid_dx, isid_push/ +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/drops_ltc.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_ltc.ma new file mode 100644 index 000000000..d2ca57bba --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_ltc.ma @@ -0,0 +1,95 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/lib/ltc.ma". +include "static_2/relocation/seq_seq.ma". + +(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) + +(* Properties with labeled transitive closure *) + +lemma d2_liftable_sn_ltc: âA,f. associative â¦ f â + âC,S,R. (ân. d_liftable2_sn C S (Î»L. R L n)) â + ân. d_liftable2_sn C S (Î»L. ltc A f â¦ (R L) n). +#A #g #Hg #C #S #R #HR #n #K #T1 #T2 #H +@(ltc_ind_dx â¦ Hg ???? H) -n -T2 +[ #n #T2 #HT12 #b #g #L #HLK #U1 #HTU1 + elim (HR â¦ HT12 â¦ HLK â¦ HTU1) -b -K -T1 -HR + /3 width=3 by ltc_rc, ex2_intro/ +| #n1 #n2 #T #T2 #_ #IHT1 #HT2 #b #f #L #HLK #U1 #HTU1 + elim (IHT1 â¦ HLK â¦ HTU1) -T1 #U #HTU #HU1 + elim (HR â¦ HT2 â¦ HLK â¦ HTU) -HR -K -T + /3 width=5 by ltc_dx, ex2_intro/ +] +qed-. + +lemma d2_deliftable_sn_ltc: âA,f. associative â¦ f â + âC,S,R. (ân. d_deliftable2_sn C S (Î»L. R L n)) â + ân. d_deliftable2_sn C S (Î»L. ltc A f â¦ (R L) n). +#A #g #Hg #C #S #R #HR #n #L #U1 #U2 #H +@(ltc_ind_dx â¦ Hg ???? H) -n -U2 +[ #n #U2 #HU12 #b #g #K #HLK #T1 #HTU1 + elim (HR â¦ HU12 â¦ HLK â¦ HTU1) -b -L -U1 -HR + /3 width=3 by ltc_rc, ex2_intro/ +| #n1 #n2 #U #U2 #_ #IHU1 #HU2 #b #f #K #HLK #T1 #HTU1 + elim (IHU1 â¦ HLK â¦ HTU1) -IHU1 -U1 #T #HTU #HT1 + elim (HR â¦ HU2 â¦ HLK â¦ HTU) -L -U -HR + /3 width=5 by ltc_dx, ex2_intro/ +] +qed-. + +lemma co_dropable_sn_ltc: âA,f. associative â¦ f â + âR. (ân. co_dropable_sn (Î»L. R L n)) â + ân. co_dropable_sn (Î»L. ltc A f â¦ (R L) n). +#A #g #Hg #R #HR #n #b #f #L1 #K1 #HLK1 #Hf #f2 #L2 #H +@(ltc_ind_dx â¦ Hg ???? H) -n -L2 +[ #n #L2 #HL12 #g1 #H + elim (HR â¦ HLK1 â¦ Hf â¦ HL12 â¦ H) -f2 -L1 -HR -Hf + /3 width=3 by ltc_rc, ex2_intro/ +| #n1 #n2 #L #L2 #_ #IH #HL2 #f1 #H + elim (IH â¦ H) -IH #K #HK1 #HLK + elim (HR â¦ HLK â¦ HL2 â¦ H) -f2 -L -HR + /3 width=3 by ltc_dx, ex2_intro/ +] +qed-. + +lemma co_dropable_dx_ltc: âA,f. associative â¦ f â + âR. (ân. co_dropable_dx (Î»L. R L n)) â + ân. co_dropable_dx (Î»L. ltc A f â¦ (R L) n). +#A #g #Hg #R #HR #n #f2 #L1 #L2 #H +@(ltc_ind_dx â¦ Hg ???? H) -n -L2 +[ #n #L2 #HL12 #b #f #K2 #HLK2 #Hf #f1 #Hf2 + elim (HR â¦ HL12 â¦ HLK2 â¦ Hf â¦ Hf2) -f2 -L2 -HR -Hf + /3 width=3 by ltc_rc, ex2_intro/ +| #n1 #n2 #L #L2 #_ #IHL1 #HL2 #b #f #K2 #HLK2 #Hf #f1 #Hf2 + elim (HR â¦ HL2 â¦ HLK2 â¦ Hf â¦ Hf2) -L2 -HR #K #HLK #HK2 + elim (IHL1 â¦ HLK â¦ Hf â¦ Hf2) -Hf -f2 -L + /3 width=5 by ltc_dx, ex2_intro/ +] +qed-. + +lemma co_dedropable_sn_ltc: âA,f. associative â¦ f â + âR. (ân. co_dedropable_sn (Î»L. R L n)) â + ân. co_dedropable_sn (Î»L. ltc A f â¦ (R L) n). +#A #g #Hg #R #HR #n #b #f #L1 #K1 #HLK1 #f1 #K2 #H +@(ltc_ind_dx â¦ Hg ???? H) -n -K2 +[ #n #K2 #HK12 #f2 #Hf + elim (HR â¦ HLK1 â¦ HK12 â¦ Hf) -f1 -K1 -HR + /3 width=4 by ltc_rc, ex3_intro/ +| #n1 #n2 #K #K2 #_ #IH #HK2 #f2 #Hf + elim (IH â¦ Hf) -K1 -IH #L #H1L1 #HLK #H2L1 + elim (HR â¦ HLK â¦ HK2 â¦ Hf) -f1 -K -HR + /3 width=6 by seq_trans, ltc_dx, ex3_intro/ +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/drops_seq.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_seq.ma new file mode 100644 index 000000000..94beb0a71 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_seq.ma @@ -0,0 +1,61 @@ +(********************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/drops_sex.ma". + +(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) + +(* Properties with syntactic equivalence for selected local environments ****) + +lemma seq_co_dedropable_sn: co_dedropable_sn seq. +@sex_liftable_co_dedropable_sn +/2 width=6 by cfull_lift_sn, ceq_lift_sn/ qed-. + +lemma seq_co_dropable_sn: co_dropable_sn seq. +@sex_co_dropable_sn qed-. + +lemma seq_co_dropable_dx: co_dropable_dx seq. +@sex_co_dropable_dx qed-. + +(* Basic_2A1: includes: lreq_drop_trans_be ) +lemma seq_drops_trans_next: âf2,L1,L2. L1 â¡[f2] L2 â + âb,f,I,K2. â¬[b, f] L2 â K2.â{I} â ðâ¦fâ¦ â + âf1. f ~â âf1 â f2 â + ââK1. â¬[b, f] L1 â K1.â{I} & K1 â¡[f1] K2. +#f2 #L1 #L2 #HL12 #b #f #I2 #K2 #HLK2 #Hf #f1 #Hf2 +elim (sex_drops_trans_next â¦ HL12 â¦ HLK2 Hf â¦ Hf2) -f2 -L2 -Hf +#I1 #K1 #HLK1 #HK12 #H <(ceq_ext_inv_eq â¦ H) -I2 +/2 width=3 by ex2_intro/ +qed-. + +( Basic_2A1: includes: lreq_drop_conf_be ) +lemma seq_drops_conf_next: âf2,L1,L2. L1 â¡[f2] L2 â + âb,f,I,K1. â¬[b, f] L1 â K1.â{I} â ðâ¦fâ¦ â + âf1. f ~â âf1 â f2 â + ââK2. â¬[b, f] L2 â K2.â{I} & K1 â¡[f1] K2. +#f2 #L1 #L2 #HL12 #b #f #I1 #K1 #HLK1 #Hf #f1 #Hf2 +elim (seq_drops_trans_next â¦ (seq_sym â¦ HL12) â¦ HLK1 â¦ Hf2) // -f2 -L1 -Hf +/3 width=3 by seq_sym, ex2_intro/ +qed-. + +lemma drops_seq_trans_next: âf1,K1,K2. K1 â¡[f1] K2 â + âb,f,I,L1. â¬[b, f] L1.â{I} â K1 â + âf2. f ~â f1 â âf2 â + ââL2. â¬*[b, f] L2.â{I} â K2 & L1 â¡[f2] L2 & L1.â{I} â¡[f] L2.â{I}. +#f1 #K1 #K2 #HK12 #b #f #I1 #L1 #HLK1 #f2 #Hf2 +elim (drops_sex_trans_next â¦ HK12 â¦ HLK1 â¦ Hf2) -f1 -K1 +/2 width=6 by cfull_lift_sn, ceq_lift_sn/ +#I2 #L2 #HLK2 #HL12 #H >(ceq_ext_inv_eq â¦ H) -I1 +/2 width=4 by ex3_intro/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/drops_sex.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_sex.ma new file mode 100644 index 000000000..e1263a2fd --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_sex.ma @@ -0,0 +1,187 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/lifts_lifts_bind.ma". +include "static_2/relocation/drops.ma". + +(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) + +(* Properties with entrywise extension of context-sensitive relations *****) + +() (* changed after commit 13218 ) +lemma sex_co_dropable_sn: âRN,RP. co_dropable_sn (sex RN RP). +#RN #RP #b #f #L1 #K1 #H elim H -f -L1 -K1 +[ #f #Hf #_ #f2 #X #H #f1 #Hf2 >(sex_inv_atom1 â¦ H) -X + /4 width=3 by sex_atom, drops_atom, ex2_intro/ +| #f #I1 #L1 #K1 #_ #IH #Hf #f2 #X #H #f1 #Hf2 + elim (coafter_inv_nxx â¦ Hf2) -Hf2 [2,3: // ] #g2 #Hg2 #H2 destruct + elim (sex_inv_push1 â¦ H) -H #I2 #L2 #HL12 #HI12 #H destruct + elim (IH â¦ HL12 â¦ Hg2) -g2 + /3 width=3 by isuni_inv_next, drops_drop, ex2_intro/ +| #f #I1 #J1 #L1 #K1 #HLK #HJI1 #IH #Hf #f2 #X #H #f1 #Hf2 + lapply (isuni_inv_push â¦ Hf ??) -Hf [3: |: // ] #Hf + lapply (drops_fwd_isid â¦ HLK â¦ Hf) -HLK #H0 destruct + lapply (liftsb_fwd_isid â¦ HJI1 â¦ Hf) -HJI1 #H0 destruct + elim (coafter_inv_pxx â¦ Hf2) -Hf2 [1,3:* |: // ] #g1 #g2 #Hg2 #H1 #H2 destruct + [ elim (sex_inv_push1 â¦ H) | elim (sex_inv_next1 â¦ H) ] -H #I2 #L2 #HL12 #HI12 #H destruct + elim (IH â¦ HL12 â¦ Hg2) -g2 -IH /2 width=1 by isuni_isid/ #K2 #HK12 #HLK2 + lapply (drops_fwd_isid â¦ HLK2 â¦ Hf) -HLK2 #H0 destruct + /4 width=3 by drops_refl, sex_next, sex_push, isid_push, ex2_intro/ +] +qed-. + +lemma sex_liftable_co_dedropable_bi: âRN,RP. d_liftable2_sn â¦ liftsb RN â d_liftable2_sn â¦ liftsb RP â + âf2,L1,L2. L1 âª¤[cfull, RP, f2] L2 â âf1,K1,K2. K1 âª¤[RN, RP, f1] K2 â + âb,f. â¬[b, f] L1 â K1 â â¬[b, f] L2 â K2 â + f ~â f1 â f2 â L1 âª¤[RN, RP, f2] L2. +#RN #RP #HRN #HRP #f2 #L1 #L2 #H elim H -f2 -L1 -L2 // +#g2 #I1 #I2 #L1 #L2 #HL12 #HI12 #IH #f1 #Y1 #Y2 #HK12 #b #f #HY1 #HY2 #H +[ elim (coafter_inv_xxn â¦ H) [ |: // ] -H #g #g1 #Hg2 #H1 #H2 destruct + elim (drops_inv_skip1 â¦ HY1) -HY1 #J1 #K1 #HLK1 #HJI1 #H destruct + elim (drops_inv_skip1 â¦ HY2) -HY2 #J2 #K2 #HLK2 #HJI2 #H destruct + elim (sex_inv_next â¦ HK12) -HK12 #HK12 #HJ12 + elim (HRN â¦ HJ12 â¦ HLK1 â¦ HJI1) -HJ12 -HJI1 #Z #Hz + >(liftsb_mono â¦ Hz â¦ HJI2) -Z /3 width=9 by sex_next/ +| elim (coafter_inv_xxp â¦ H) [1,2: |: // ] -H + [ #g #g1 #Hg2 #H1 #H2 destruct + elim (drops_inv_skip1 â¦ HY1) -HY1 #J1 #K1 #HLK1 #HJI1 #H destruct + elim (drops_inv_skip1 â¦ HY2) -HY2 #J2 #K2 #HLK2 #HJI2 #H destruct + elim (sex_inv_push â¦ HK12) -HK12 #HK12 #HJ12 + elim (HRP â¦ HJ12 â¦ HLK1 â¦ HJI1) -HJ12 -HJI1 #Z #Hz + >(liftsb_mono â¦ Hz â¦ HJI2) -Z /3 width=9 by sex_push/ + | #g #Hg2 #H destruct + lapply (drops_inv_drop1 â¦ HY1) -HY1 #HLK1 + lapply (drops_inv_drop1 â¦ HY2) -HY2 #HLK2 + /3 width=9 by sex_push/ + ] +] +qed-. + +lemma sex_liftable_co_dedropable_sn: âRN,RP. (âL. reflexive â¦ (RN L)) â (âL. reflexive â¦ (RP L)) â + d_liftable2_sn â¦ liftsb RN â d_liftable2_sn â¦ liftsb RP â + co_dedropable_sn (sex RN RP). +#RN #RP #H1RN #H1RP #H2RN #H2RP #b #f #L1 #K1 #H elim H -f -L1 -K1 +[ #f #Hf #X #f1 #H #f2 #Hf2 >(sex_inv_atom1 â¦ H) -X + /4 width=4 by drops_atom, sex_atom, ex3_intro/ +| #f #I1 #L1 #K1 #_ #IHLK1 #K2 #f1 #HK12 #f2 #Hf2 + elim (coafter_inv_nxx â¦ Hf2) -Hf2 [2,3: // ] #g2 #Hg2 #H destruct + elim (IHLK1 â¦ HK12 â¦ Hg2) -K1 + /3 width=6 by drops_drop, sex_next, sex_push, ex3_intro/ +| #f #I1 #J1 #L1 #K1 #HLK1 #HJI1 #IHLK1 #X #f1 #H #f2 #Hf2 + elim (coafter_inv_pxx â¦ Hf2) -Hf2 [1,3: * |: // ] #g1 #g2 #Hg2 #H1 #H2 destruct + [ elim (sex_inv_push1 â¦ H) | elim (sex_inv_next1 â¦ H) ] -H #J2 #K2 #HK12 #HJ12 #H destruct + [ elim (H2RP â¦ HJ12 â¦ HLK1 â¦ HJI1) | elim (H2RN â¦ HJ12 â¦ HLK1 â¦ HJI1) ] -J1 + elim (IHLK1 â¦ HK12 â¦ Hg2) -K1 + /3 width=6 by drops_skip, sex_next, sex_push, ex3_intro/ +] +qed-. + +fact sex_dropable_dx_aux: âRN,RP,b,f,L2,K2. â¬[b, f] L2 â K2 â ðâ¦fâ¦ â + âf2,L1. L1 âª¤[RN, RP, f2] L2 â âf1. f ~â f1 â f2 â + ââK1. â¬[b, f] L1 â K1 & K1 âª¤[RN, RP, f1] K2. +#RN #RP #b #f #L2 #K2 #H elim H -f -L2 -K2 +[ #f #Hf #_ #f2 #X #H #f1 #Hf2 lapply (sex_inv_atom2 â¦ H) -H + #H destruct /4 width=3 by sex_atom, drops_atom, ex2_intro/ +| #f #I2 #L2 #K2 #_ #IH #Hf #f2 #X #HX #f1 #Hf2 + elim (coafter_inv_nxx â¦ Hf2) -Hf2 [2,3: // ] #g2 #Hg2 #H destruct + elim (sex_inv_push2 â¦ HX) -HX #I1 #L1 #HL12 #HI12 #H destruct + elim (IH â¦ HL12 â¦ Hg2) -L2 -I2 -g2 + /3 width=3 by drops_drop, isuni_inv_next, ex2_intro/ +| #f #I2 #J2 #L2 #K2 #_ #HJI2 #IH #Hf #f2 #X #HX #f1 #Hf2 + elim (coafter_inv_pxx â¦ Hf2) -Hf2 [1,3: |: // ] #g1 #g2 #Hg2 #H1 #H2 destruct + [ elim (sex_inv_push2 â¦ HX) | elim (sex_inv_next2 â¦ HX) ] -HX #I1 #L1 #HL12 #HI12 #H destruct + elim (IH â¦ HL12 â¦ Hg2) -L2 -g2 /2 width=3 by isuni_fwd_push/ #K1 #HLK1 #HK12 + lapply (isuni_inv_push â¦ Hf ??) -Hf [3,6: |: // ] #Hf + lapply (liftsb_fwd_isid â¦ HJI2 â¦ Hf) #H destruct -HJI2 + lapply (drops_fwd_isid â¦ HLK1 â¦ Hf) #H destruct -HLK1 + /4 width=5 by sex_next, sex_push, drops_refl, isid_push, ex2_intro/ +] +qed-. + +lemma sex_co_dropable_dx: âRN,RP. co_dropable_dx (sex RN RP). +/2 width=5 by sex_dropable_dx_aux/ qed-. + +lemma sex_drops_conf_next: âRN,RP. + âf2,L1,L2. L1 âª¤[RN, RP, f2] L2 â + âb,f,I1,K1. â¬[b, f] L1 â K1.â{I1} â ðâ¦fâ¦ â + âf1. f ~â âf1 â f2 â + ââI2,K2. â¬[b, f] L2 â K2.â{I2} & K1 âª¤[RN, RP, f1] K2 & RN K1 I1 I2. +#RN #RP #f2 #L1 #L2 #HL12 #b #f #I1 #K1 #HLK1 #Hf #f1 #Hf2 +elim (sex_co_dropable_sn â¦ HLK1 â¦ Hf â¦ HL12 â¦ Hf2) -L1 -f2 -Hf +#X #HX #HLK2 elim (sex_inv_next1 â¦ HX) -HX +#I2 #K2 #HK12 #HI12 #H destruct /2 width=5 by ex3_2_intro/ +qed-. + +lemma sex_drops_conf_push: âRN,RP. + âf2,L1,L2. L1 âª¤[RN, RP, f2] L2 â + âb,f,I1,K1. â¬[b, f] L1 â K1.â{I1} â ðâ¦fâ¦ â + âf1. f ~â â«¯f1 â f2 â + ââI2,K2. â¬[b, f] L2 â K2.â{I2} & K1 âª¤[RN, RP, f1] K2 & RP K1 I1 I2. +#RN #RP #f2 #L1 #L2 #HL12 #b #f #I1 #K1 #HLK1 #Hf #f1 #Hf2 +elim (sex_co_dropable_sn â¦ HLK1 â¦ Hf â¦ HL12 â¦ Hf2) -L1 -f2 -Hf +#X #HX #HLK2 elim (sex_inv_push1 â¦ HX) -HX +#I2 #K2 #HK12 #HI12 #H destruct /2 width=5 by ex3_2_intro/ +qed-. + +lemma sex_drops_trans_next: âRN,RP,f2,L1,L2. L1 âª¤[RN, RP, f2] L2 â + âb,f,I2,K2. â¬[b, f] L2 â K2.â{I2} â ðâ¦fâ¦ â + âf1. f ~â âf1 â f2 â + ââI1,K1. â¬[b, f] L1 â K1.â{I1} & K1 âª¤[RN, RP, f1] K2 & RN K1 I1 I2. +#RN #RP #f2 #L1 #L2 #HL12 #b #f #I2 #K2 #HLK2 #Hf #f1 #Hf2 +elim (sex_co_dropable_dx â¦ HL12 â¦ HLK2 â¦ Hf â¦ Hf2) -L2 -f2 -Hf +#X #HLK1 #HX elim (sex_inv_next2 â¦ HX) -HX +#I1 #K1 #HK12 #HI12 #H destruct /2 width=5 by ex3_2_intro/ +qed-. + +lemma sex_drops_trans_push: âRN,RP,f2,L1,L2. L1 âª¤[RN, RP, f2] L2 â + âb,f,I2,K2. â¬[b, f] L2 â K2.â{I2} â ðâ¦fâ¦ â + âf1. f ~â â«¯f1 â f2 â + ââI1,K1. â¬[b, f] L1 â K1.â{I1} & K1 âª¤[RN, RP, f1] K2 & RP K1 I1 I2. +#RN #RP #f2 #L1 #L2 #HL12 #b #f #I2 #K2 #HLK2 #Hf #f1 #Hf2 +elim (sex_co_dropable_dx â¦ HL12 â¦ HLK2 â¦ Hf â¦ Hf2) -L2 -f2 -Hf +#X #HLK1 #HX elim (sex_inv_push2 â¦ HX) -HX +#I1 #K1 #HK12 #HI12 #H destruct /2 width=5 by ex3_2_intro/ +qed-. + +lemma drops_sex_trans_next: âRN,RP. (âL. reflexive ? (RN L)) â (âL. reflexive ? (RP L)) â + d_liftable2_sn â¦ liftsb RN â d_liftable2_sn â¦ liftsb RP â + âf1,K1,K2. K1 âª¤[RN, RP, f1] K2 â + âb,f,I1,L1. â¬[b, f] L1.â{I1} â K1 â + âf2. f ~â f1 â âf2 â + ââI2,L2. â¬[b, f] L2.â{I2} â K2 & L1 âª¤[RN, RP, f2] L2 & RN L1 I1 I2 & L1.â{I1} â¡[f] L2.â{I2}. +#RN #RP #H1RN #H1RP #H2RN #H2RP #f1 #K1 #K2 #HK12 #b #f #I1 #L1 #HLK1 #f2 #Hf2 +elim (sex_liftable_co_dedropable_sn â¦ H1RN H1RP H2RN H2RP â¦ HLK1 â¦ HK12 â¦ Hf2) -K1 -f1 -H1RN -H1RP -H2RN -H2RP +#X #HX #HLK2 #H1L12 elim (sex_inv_next1 â¦ HX) -HX +#I2 #L2 #H2L12 #HI12 #H destruct /2 width=6 by ex4_2_intro/ +qed-. + +lemma drops_sex_trans_push: âRN,RP. (âL. reflexive ? (RN L)) â (âL. reflexive ? (RP L)) â + d_liftable2_sn â¦ liftsb RN â d_liftable2_sn â¦ liftsb RP â + âf1,K1,K2. K1 âª¤[RN, RP, f1] K2 â + âb,f,I1,L1. â¬[b, f] L1.â{I1} â K1 â + âf2. f ~â f1 â â«¯f2 â + ââI2,L2. â¬[b, f] L2.â{I2} â K2 & L1 âª¤[RN, RP, f2] L2 & RP L1 I1 I2 & L1.â{I1} â¡[f] L2.â{I2}. +#RN #RP #H1RN #H1RP #H2RN #H2RP #f1 #K1 #K2 #HK12 #b #f #I1 #L1 #HLK1 #f2 #Hf2 +elim (sex_liftable_co_dedropable_sn â¦ H1RN H1RP H2RN H2RP â¦ HLK1 â¦ HK12 â¦ Hf2) -K1 -f1 -H1RN -H1RP -H2RN -H2RP +#X #HX #HLK2 #H1L12 elim (sex_inv_push1 â¦ HX) -HX +#I2 #L2 #H2L12 #HI12 #H destruct /2 width=6 by ex4_2_intro/ +qed-. + +lemma drops_atom2_sex_conf: âRN,RP,b,f1,L1. â¬[b, f1] L1 â â â ðâ¦f1â¦ â + âf,L2. L1 âª¤[RN, RP, f] L2 â + âf2. f1 ~â f2 âf â â¬[b, f1] L2 â â. +#RN #RP #b #f1 #L1 #H1 #Hf1 #f #L2 #H2 #f2 #H3 +elim (sex_co_dropable_sn â¦ H1 â¦ H2 â¦ H3) // -H1 -H2 -H3 -Hf1 +#L #H #HL2 lapply (sex_inv_atom1 â¦ H) -H // +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/drops_vector.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_vector.ma new file mode 100644 index 000000000..8c43b6404 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_vector.ma @@ -0,0 +1,32 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/lifts_vector.ma". +include "static_2/relocation/drops.ma". + +(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) + +definition d_liftable1_all: predicate (relation2 lenv term) â + Î»R. âK,Ts. all â¦ (R K) Ts â + âb,f,L. â¬[b, f] L â K â + âUs. â¬[f] Ts â Us â all â¦ (R L) Us. + +(* Properties with generic relocation for term vectors **********************) + +(* Basic_2A1: was: d1_liftables_liftables_all ) +lemma d1_liftable_liftable_all: âR. d_liftable1 R â d_liftable1_all R. +#R #HR #K #Ts #HTs #b #f #L #HLK #Us #H +generalize in match HTs; -HTs elim H -Ts -Us normalize // +#Ts #Us #T #U #HTU #_ #IHTUs /3 width=7 by conj/ +qed. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/drops_weight.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_weight.ma new file mode 100644 index 000000000..dfcb44500 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_weight.ma @@ -0,0 +1,56 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/cl_restricted_weight.ma". +include "static_2/relocation/lifts_weight_bind.ma". +include "static_2/relocation/drops.ma". + +(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************) + +(* Forward lemmas with weight for local environments ************************) + +(* Basic_2A1: includes: drop_fwd_lw ) +lemma drops_fwd_lw: âb,f,L1,L2. â¬[b, f] L1 â L2 â â¯{L2} â¤ â¯{L1}. +#b #f #L1 #L2 #H elim H -f -L1 -L2 // +[ /2 width=3 by transitive_le/ +| #f #I1 #I2 #L1 #L2 #_ #HI21 #IHL12 normalize + >(liftsb_fwd_bw â¦ HI21) -HI21 /2 width=1 by monotonic_le_plus_l/ +] +qed-. + +(* Basic_2A1: includes: drop_fwd_lw_lt ) +lemma drops_fwd_lw_lt: âf,L1,L2. â¬[â, f] L1 â L2 â + (ðâ¦fâ¦ â â¥) â â¯{L2} < â¯{L1}. +#f #L1 #L2 #H elim H -f -L1 -L2 +[ #f #Hf #Hnf elim Hnf -Hnf /2 width=1 by/ +| /3 width=3 by drops_fwd_lw, le_to_lt_to_lt/ +| #f #I1 #I2 #L1 #L2 #_ #HI21 #IHL12 #H normalize in â¢ (?%%); + >(liftsb_fwd_bw â¦ HI21) -I2 /5 width=3 by isid_push, monotonic_lt_plus_l/ +] +qed-. + +(* Forward lemmas with restricted weight for closures ***********************) + +(* Basic_2A1: includes: drop_fwd_rfw ) +lemma drops_bind2_fwd_rfw: âb,f,I,L,K,V. â¬[b, f] L â K.â{I}V â âT. â¯{K, V} < â¯{L, T}. +#b #f #I #L #K #V #HLK lapply (drops_fwd_lw â¦ HLK) -HLK +normalize in â¢ (%â?â?%%); /3 width=3 by le_to_lt_to_lt, monotonic_lt_plus_r/ +qed-. + +(* Advanced inversion lemma *************************************************) + +lemma drops_inv_x_bind_xy: âb,f,I,L. â¬*[b, f] L â L.â{I} â â¥. +#b #f #I #L #H lapply (drops_fwd_lw â¦ H) -b -f +/2 width=4 by lt_le_false/ (**) (* full auto is a bit slow: 19s *) +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/lex.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/lex.ma new file mode 100644 index 000000000..1900d273d --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lex.ma @@ -0,0 +1,162 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/pull/pull_2.ma". +include "ground_2/pull/pull_4.ma". +include "ground_2/relocation/rtmap_uni.ma". +include "static_2/notation/relations/relation_3.ma". +include "static_2/syntax/cext2.ma". +include "static_2/relocation/sex.ma". + +(* GENERIC EXTENSION OF A CONTEXT-SENSITIVE REALTION FOR TERMS **************) + +definition lex (R): relation lenv â + Î»L1,L2. ââf. ðâ¦fâ¦ & L1 âª¤[cfull, cext2 R, f] L2. + +interpretation "generic extension (local environment)" + 'Relation R L1 L2 = (lex R L1 L2). + +definition lex_confluent: relation (relation3 â¦) â Î»R1,R2. + âL0,T0,T1. R1 L0 T0 T1 â âT2. R2 L0 T0 T2 â + âL1. L0 âª¤[R1] L1 â âL2. L0 âª¤[R2] L2 â + ââT. R2 L1 T1 T & R1 L2 T2 T. + +definition lex_transitive: relation (relation3 â¦) â Î»R1,R2. + âL1,T1,T. R1 L1 T1 T â âL2. L1 âª¤[R1] L2 â + âT2. R2 L2 T T2 â R1 L1 T1 T2. + +(* Basic properties *********************************************************) + +(* Basic_2A1: was: lpx_sn_atom ) +lemma lex_atom (R): â âª¤[R] â. +/2 width=3 by sex_atom, ex2_intro/ qed. + +lemma lex_bind (R): âI1,I2,K1,K2. K1 âª¤[R] K2 â cext2 R K1 I1 I2 â + K1.â{I1} âª¤[R] K2.â{I2}. +#R #I1 #I2 #K1 #K2 #f #Hf #HK12 #HI12 +/3 width=3 by sex_push, isid_push, ex2_intro/ +qed. + +(* Basic_2A1: was: lpx_sn_refl ) +lemma lex_refl (R): c_reflexive â¦ R â reflexive â¦ (lex R). +/4 width=3 by sex_refl, ext2_refl, ex2_intro/ qed. + +lemma lex_co (R1) (R2): (âL,T1,T2. R1 L T1 T2 â R2 L T1 T2) â + âL1,L2. L1 âª¤[R1] L2 â L1 âª¤[R2] L2. +#R1 #R2 #HR #L1 #L2 /5 width=7 by sex_co, cext2_co, ex2_intro/ +qed-. + +(* Advanced properties ******************************************************) + +lemma lex_bind_refl_dx (R): c_reflexive â¦ R â + âI,K1,K2. K1 âª¤[R] K2 â K1.â{I} âª¤[R] K2.â{I}. +/3 width=3 by ext2_refl, lex_bind/ qed. + +lemma lex_unit (R): âI,K1,K2. K1 âª¤[R] K2 â K1.â¤{I} âª¤[R] K2.â¤{I}. +/3 width=1 by lex_bind, ext2_unit/ qed. + +(* Basic_2A1: was: lpx_sn_pair ) +lemma lex_pair (R): âI,K1,K2,V1,V2. K1 âª¤[R] K2 â R K1 V1 V2 â + K1.â{I}V1 âª¤[R] K2.â{I}V2. +/3 width=1 by lex_bind, ext2_pair/ qed. + +( Basic inversion lemmas ***************************************************) + +(* Basic_2A1: was: lpx_sn_inv_atom1: ) +lemma lex_inv_atom_sn (R): âL2. â âª¤[R] L2 â L2 = â. +#R #L2 #f #Hf #H >(sex_inv_atom1 â¦ H) -L2 // +qed-. + +lemma lex_inv_bind_sn (R): âI1,L2,K1. K1.â{I1} âª¤[R] L2 â + ââI2,K2. K1 âª¤[R] K2 & cext2 R K1 I1 I2 & L2 = K2.â{I2}. +#R #I1 #L2 #K1 * #f #Hf #H +lapply (sex_eq_repl_fwd â¦ H (â«¯f) ?) -H /2 width=1 by eq_push_inv_isid/ #H +elim (sex_inv_push1 â¦ H) -H #I2 #K2 #HK12 #HI12 #H destruct +/3 width=5 by ex2_intro, ex3_2_intro/ +qed-. + +(* Basic_2A1: was: lpx_sn_inv_atom2 ) +lemma lex_inv_atom_dx (R): âL1. L1 âª¤[R] â â L1 = â. +#R #L1 #f #Hf #H >(sex_inv_atom2 â¦ H) -L1 // +qed-. + +lemma lex_inv_bind_dx (R): âI2,L1,K2. L1 âª¤[R] K2.â{I2} â + ââI1,K1. K1 âª¤[R] K2 & cext2 R K1 I1 I2 & L1 = K1.â{I1}. +#R #I2 #L1 #K2 * #f #Hf #H +lapply (sex_eq_repl_fwd â¦ H (â«¯f) ?) -H /2 width=1 by eq_push_inv_isid/ #H +elim (sex_inv_push2 â¦ H) -H #I1 #K1 #HK12 #HI12 #H destruct +/3 width=5 by ex3_2_intro, ex2_intro/ +qed-. + +(* Advanced inversion lemmas ************************************************) + +lemma lex_inv_unit_sn (R): âI,L2,K1. K1.â¤{I} âª¤[R] L2 â + ââK2. K1 âª¤[R] K2 & L2 = K2.â¤{I}. +#R #I #L2 #K1 #H +elim (lex_inv_bind_sn â¦ H) -H #Z2 #K2 #HK12 #HZ2 #H destruct +elim (ext2_inv_unit_sn â¦ HZ2) -HZ2 +/2 width=3 by ex2_intro/ +qed-. + +(* Basic_2A1: was: lpx_sn_inv_pair1 ) +lemma lex_inv_pair_sn (R): âI,L2,K1,V1. K1.â{I}V1 âª¤[R] L2 â + ââK2,V2. K1 âª¤[R] K2 & R K1 V1 V2 & L2 = K2.â{I}V2. +#R #I #L2 #K1 #V1 #H +elim (lex_inv_bind_sn â¦ H) -H #Z2 #K2 #HK12 #HZ2 #H destruct +elim (ext2_inv_pair_sn â¦ HZ2) -HZ2 #V2 #HV12 #H destruct +/2 width=5 by ex3_2_intro/ +qed-. + +lemma lex_inv_unit_dx (R): âI,L1,K2. L1 âª¤[R] K2.â¤{I} â + ââK1. K1 âª¤[R] K2 & L1 = K1.â¤{I}. +#R #I #L1 #K2 #H +elim (lex_inv_bind_dx â¦ H) -H #Z1 #K1 #HK12 #HZ1 #H destruct +elim (ext2_inv_unit_dx â¦ HZ1) -HZ1 +/2 width=3 by ex2_intro/ +qed-. + +( Basic_2A1: was: lpx_sn_inv_pair2 ) +lemma lex_inv_pair_dx (R): âI,L1,K2,V2. L1 âª¤[R] K2.â{I}V2 â + ââK1,V1. K1 âª¤[R] K2 & R K1 V1 V2 & L1 = K1.â{I}V1. +#R #I #L1 #K2 #V2 #H +elim (lex_inv_bind_dx â¦ H) -H #Z1 #K1 #HK12 #HZ1 #H destruct +elim (ext2_inv_pair_dx â¦ HZ1) -HZ1 #V1 #HV12 #H destruct +/2 width=5 by ex3_2_intro/ +qed-. + +( Basic_2A1: was: lpx_sn_inv_pair ) +lemma lex_inv_pair (R): âI1,I2,L1,L2,V1,V2. + L1.â{I1}V1 âª¤[R] L2.â{I2}V2 â + â§â§ L1 âª¤[R] L2 & R L1 V1 V2 & I1 = I2. +#R #I1 #I2 #L1 #L2 #V1 #V2 #H elim (lex_inv_pair_sn â¦ H) -H +#L0 #V0 #HL10 #HV10 #H destruct /2 width=1 by and3_intro/ +qed-. + +( Basic eliminators ********************************************************) + +lemma lex_ind (R) (Q:relation2 â¦): + Q (â) (â) â + ( + âI,K1,K2. K1 âª¤[R] K2 â Q K1 K2 â Q (K1.â¤{I}) (K2.â¤{I}) + ) â ( + âI,K1,K2,V1,V2. K1 âª¤[R] K2 â Q K1 K2 â R K1 V1 V2 âQ (K1.â{I}V1) (K2.â{I}V2) + ) â + âL1,L2. L1 âª¤[R] L2 â Q L1 L2. +#R #Q #IH1 #IH2 #IH3 #L1 #L2 * #f @pull_2 #H +elim H -f -L1 -L2 // #f #I1 #I2 #K1 #K2 @pull_4 #H +[ elim (isid_inv_next â¦ H) +| lapply (isid_inv_push â¦ H ??) +] -H [5:|*: // ] #Hf @pull_2 #H +elim H -H /3 width=3 by ex2_intro/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/lex_length.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/lex_length.ma new file mode 100644 index 000000000..053070fa5 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lex_length.ma @@ -0,0 +1,25 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/sex_length.ma". +include "static_2/relocation/lex.ma". + +(* GENERIC EXTENSION OF A CONTEXT-SENSITIVE REALTION FOR TERMS **************) + +(* Forward lemmas with length for local environments ************************) + +(* Basic_2A1: was: lpx_sn_fwd_length ) +lemma lex_fwd_length: âR,L1,L2. L1 âª¤[R] L2 â |L1| = |L2|. +#R #L1 #L2 /2 width=4 by sex_fwd_length/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/lex_lex.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/lex_lex.ma new file mode 100644 index 000000000..24bfebe65 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lex_lex.ma @@ -0,0 +1,52 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/lex.ma". + +(* GENERIC ENTRYWISE EXTENSION OF CONTEXT-SENSITIVE REALTIONS FOR TERMS *****) + +(* Main properties **********************************************************) + +(* Basic_2A1: was: lpx_sn_trans ) +theorem lex_trans (R): lex_transitive R R â Transitive â¦ (lex R). +#R #HR #L1 #L #H @(lex_ind â¦ H) -L1 -L // +[ #I #K1 #K #HK1 #IH #Y #H + elim (lex_inv_unit_sn â¦ H) -H #K2 #K2 #H destruct + /3 width=1 by lex_unit/ +| #I #K1 #L #V1 #V #HK1 #IH #HV1 #X #H + elim (lex_inv_pair_sn â¦ H) -H #K2 #V2 #HK2 #HV2 #H destruct + /3 width=5 by lex_pair/ +] +qed-. + +( Basic_2A1: was: lpx_sn_conf ) +theorem lex_conf (R1) (R2): lex_confluent R1 R2 â confluent2 â¦ (lex R1) (lex R2). +#R1 #R2 #HR12 #L0 elim L0 -L0 [| #K0 ] +[ #Y1 #H1 #Y2 #H2 + >(lex_inv_atom_sn â¦ H1) -Y1 + >(lex_inv_atom_sn â¦ H2) -Y2 + /2 width=3 by lex_atom, ex2_intro/ +| #I #IH #Y1 #H1 #Y2 #H2 + elim (lex_inv_unit_sn â¦ H1) -H1 #K1 #HK01 #H destruct + elim (lex_inv_unit_sn â¦ H2) -H2 #K2 #HK02 #H destruct + elim (IH â¦ HK01 â¦ HK02) -K0 #K #HK1 #HK2 + /3 width=3 by lex_unit, ex2_intro/ +| #I #V0 #IH #Y1 #H1 #Y2 #H2 + elim (lex_inv_pair_sn â¦ H1) -H1 #K1 #V1 #HK01 #HV01 #H destruct + elim (lex_inv_pair_sn â¦ H2) -H2 #K2 #V2 #HK02 #HV02 #H destruct + elim (HR12 â¦ HV01 â¦ HV02 â¦ HK01 â¦ HK02) -V0 #V #HV1 #HV2 + elim (IH â¦ HK01 â¦ HK02) -K0 #K #HK1 #HK2 + /3 width=5 by lex_pair, ex2_intro/ +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/lex_tc.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/lex_tc.ma new file mode 100644 index 000000000..5dadd4e18 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lex_tc.ma @@ -0,0 +1,89 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/ext2_tc.ma". +include "static_2/relocation/sex_tc.ma". +include "static_2/relocation/lex.ma". + +alias symbol "subseteq" = "relation inclusion". + +(* GENERIC EXTENSION OF A CONTEXT-SENSITIVE REALTION FOR TERMS **************) + +(* Inversion lemmas with transitive closure *********************************) + +(* Basic_2A1: was: lpx_sn_LTC_TC_lpx_sn ) +lemma lex_inv_CTC (R): c_reflexive â¦ R â + lex (CTC â¦ R) â TC â¦ (lex R). +#R #HR #L1 #L2 +/5 width=11 by sex_inv_tc_dx, sex_co, ext2_inv_tc, ext2_refl, monotonic_TC, ex2_intro/ +qed-. + +lemma s_rs_transitive_lex_inv_isid (R): s_rs_transitive â¦ R (Î»_.lex R) â + s_rs_transitive_isid cfull (cext2 R). +#R #HR #f #Hf #L2 #T1 #T2 #H #L1 #HL12 +elim (ext2_tc â¦ H) -H +[ /3 width=1 by ext2_inv_tc, ext2_unit/ +| #I #V1 #V2 #HV12 + @ext2_inv_tc @ext2_pair + @(HR â¦ HV12) -HV12 /2 width=3 by ex2_intro/ (**) (* auto fails ) +] +qed-. + +( Properties with transitive closure ***************************************) + +(* Basic_2A1: was: TC_lpx_sn_inv_lpx_sn_LTC ) +lemma lex_CTC (R): s_rs_transitive â¦ R (Î»_. lex R) â + TC â¦ (lex R) â lex (CTC â¦ R). +#R #HR #L1 #L2 #HL12 +lapply (monotonic_TC â¦ (sex cfull (cext2 R) ðð) â¦ HL12) -HL12 +[ #L1 #L2 /3 width=3 by sex_eq_repl_fwd, eq_id_inv_isid/ +| /5 width=9 by s_rs_transitive_lex_inv_isid, sex_tc_dx, sex_co, ext2_tc, ex2_intro/ +] +qed-. + +lemma lex_CTC_inj (R): s_rs_transitive â¦ R (Î»_. lex R) â + (lex R) â lex (CTC â¦ R). +/3 width=1 by lex_CTC, inj/ qed-. + +lemma lex_CTC_step_dx (R): c_reflexive â¦ R â s_rs_transitive â¦ R (Î»_. lex R) â + âL1,L. lex (CTC â¦ R) L1 L â + âL2. lex R L L2 â lex (CTC â¦ R) L1 L2. +/4 width=3 by lex_CTC, lex_inv_CTC, step/ qed-. + +lemma lex_CTC_step_sn (R): c_reflexive â¦ R â s_rs_transitive â¦ R (Î»_. lex R) â + âL1,L. lex R L1 L â + âL2. lex (CTC â¦ R) L L2 â lex (CTC â¦ R) L1 L2. +/4 width=3 by lex_CTC, lex_inv_CTC, TC_strap/ qed-. + +(* Eliminators with transitive closure ) + +lemma lex_CTC_ind_sn (R) (L2): c_reflexive â¦ R â s_rs_transitive â¦ R (Î»_. lex R) â + âQ:predicate lenv. Q L2 â + (âL1,L. L1 âª¤[R] L â L âª¤[CTC â¦ R] L2 â Q L â Q L1) â + âL1. L1 âª¤[CTC â¦ R] L2 â Q L1. +#R #L2 #H1R #H2R #Q #IH1 #IH2 #L1 #H +lapply (lex_inv_CTC â¦ H1R â¦ H) -H #H +@(TC_star_ind_dx ???????? H) -H +/3 width=4 by lex_CTC, lex_refl/ +qed-. + +lemma lex_CTC_ind_dx (R) (L1): c_reflexive â¦ R â s_rs_transitive â¦ R (Î»_. lex R) â + âQ:predicate lenv. Q L1 â + (âL,L2. L1 âª¤[CTC â¦ R] L â L âª¤[R] L2 â Q L â Q L2) â + âL2. L1 âª¤[CTC â¦ R] L2 â Q L2. +#R #L1 #H1R #H2R #Q #IH1 #IH2 #L2 #H +lapply (lex_inv_CTC â¦ H1R â¦ H) -H #H +@(TC_star_ind ???????? H) -H +/3 width=4 by lex_CTC, lex_refl/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts.ma new file mode 100644 index 000000000..56f69a641 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts.ma @@ -0,0 +1,451 @@ + +(************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/relocation/nstream_after.ma". +include "static_2/notation/relations/rliftstar_3.ma". +include "static_2/syntax/term.ma". + +(* GENERIC RELOCATION FOR TERMS *********************************************) + +(* Basic_1: includes: + lift_sort lift_lref_lt lift_lref_ge lift_bind lift_flat + lifts_nil lifts_cons +) +inductive lifts: rtmap â relation term â +| lifts_sort: âf,s. lifts f (âs) (âs) +| lifts_lref: âf,i1,i2. @â¦i1, fâ¦ â i2 â lifts f (#i1) (#i2) +| lifts_gref: âf,l. lifts f (Â§l) (Â§l) +| lifts_bind: âf,p,I,V1,V2,T1,T2. + lifts f V1 V2 â lifts (â«¯f) T1 T2 â + lifts f (â{p,I}V1.T1) (â{p,I}V2.T2) +| lifts_flat: âf,I,V1,V2,T1,T2. + lifts f V1 V2 â lifts f T1 T2 â + lifts f (â{I}V1.T1) (â{I}V2.T2) +. + +interpretation "uniform relocation (term)" + 'RLiftStar i T1 T2 = (lifts (uni i) T1 T2). + +interpretation "generic relocation (term)" + 'RLiftStar f T1 T2 = (lifts f T1 T2). + +definition liftable2_sn: predicate (relation term) â + Î»R. âT1,T2. R T1 T2 â âf,U1. â¬[f] T1 â U1 â + ââU2. â¬[f] T2 â U2 & R U1 U2. + +definition deliftable2_sn: predicate (relation term) â + Î»R. âU1,U2. R U1 U2 â âf,T1. â¬[f] T1 â U1 â + ââT2. â¬[f] T2 â U2 & R T1 T2. + +definition liftable2_bi: predicate (relation term) â + Î»R. âT1,T2. R T1 T2 â âf,U1. â¬[f] T1 â U1 â + âU2. â¬[f] T2 â U2 â R U1 U2. + +definition deliftable2_bi: predicate (relation term) â + Î»R. âU1,U2. R U1 U2 â âf,T1. â¬[f] T1 â U1 â + âT2. â¬[f] T2 â U2 â R T1 T2. + +( Basic inversion lemmas ***************************************************) + +fact lifts_inv_sort1_aux: âf,X,Y. â¬[f] X â Y â âs. X = âs â Y = âs. +#f #X #Y -f -X -Y // +[ #f #i1 #i2 #_ #x #H destruct +| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct +| #f #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct +] +qed-. + +(* Basic_1: was: lift1_sort ) +( Basic_2A1: includes: lift_inv_sort1 ) +lemma lifts_inv_sort1: âf,Y,s. â¬[f] âs â Y â Y = âs. +/2 width=4 by lifts_inv_sort1_aux/ qed-. + +fact lifts_inv_lref1_aux: âf,X,Y. â¬[f] X â Y â âi1. X = #i1 â + ââi2. @â¦i1, fâ¦ â i2 & Y = #i2. +#f #X #Y -f -X -Y +[ #f #s #x #H destruct +| #f #i1 #i2 #Hi12 #x #H destruct /2 width=3 by ex2_intro/ +| #f #l #x #H destruct +| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct +| #f #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct +] +qed-. + +(* Basic_1: was: lift1_lref ) +( Basic_2A1: includes: lift_inv_lref1 lift_inv_lref1_lt lift_inv_lref1_ge ) +lemma lifts_inv_lref1: âf,Y,i1. â¬[f] #i1 â Y â + ââi2. @â¦i1, fâ¦ â i2 & Y = #i2. +/2 width=3 by lifts_inv_lref1_aux/ qed-. + +fact lifts_inv_gref1_aux: âf,X,Y. â¬[f] X â Y â âl. X = Â§l â Y = Â§l. +#f #X #Y -f -X -Y // +[ #f #i1 #i2 #_ #x #H destruct +| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct +| #f #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct +] +qed-. + +(* Basic_2A1: includes: lift_inv_gref1 ) +lemma lifts_inv_gref1: âf,Y,l. â¬[f] Â§l â Y â Y = Â§l. +/2 width=4 by lifts_inv_gref1_aux/ qed-. + +fact lifts_inv_bind1_aux: âf,X,Y. â¬[f] X â Y â + âp,I,V1,T1. X = â{p,I}V1.T1 â + ââV2,T2. â¬[f] V1 â V2 & â¬[â«¯f] T1 â T2 & + Y = â{p,I}V2.T2. +#f #X #Y -f -X -Y +[ #f #s #q #J #W1 #U1 #H destruct +| #f #i1 #i2 #_ #q #J #W1 #U1 #H destruct +| #f #l #b #J #W1 #U1 #H destruct +| #f #p #I #V1 #V2 #T1 #T2 #HV12 #HT12 #q #J #W1 #U1 #H destruct /2 width=5 by ex3_2_intro/ +| #f #I #V1 #V2 #T1 #T2 #_ #_ #q #J #W1 #U1 #H destruct +] +qed-. + +(* Basic_1: was: lift1_bind ) +( Basic_2A1: includes: lift_inv_bind1 ) +lemma lifts_inv_bind1: âf,p,I,V1,T1,Y. â¬[f] â{p,I}V1.T1 â Y â + ââV2,T2. â¬[f] V1 â V2 & â¬[â«¯f] T1 â T2 & + Y = â{p,I}V2.T2. +/2 width=3 by lifts_inv_bind1_aux/ qed-. + +fact lifts_inv_flat1_aux: âf:rtmap. âX,Y. â¬[f] X â Y â + âI,V1,T1. X = â{I}V1.T1 â + ââV2,T2. â¬[f] V1 â V2 & â¬[f] T1 â T2 & + Y = â{I}V2.T2. +#f #X #Y -f -X -Y +[ #f #s #J #W1 #U1 #H destruct +| #f #i1 #i2 #_ #J #W1 #U1 #H destruct +| #f #l #J #W1 #U1 #H destruct +| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #J #W1 #U1 #H destruct +| #f #I #V1 #V2 #T1 #T2 #HV12 #HT12 #J #W1 #U1 #H destruct /2 width=5 by ex3_2_intro/ +] +qed-. + +(* Basic_1: was: lift1_flat ) +( Basic_2A1: includes: lift_inv_flat1 ) +lemma lifts_inv_flat1: âf:rtmap. âI,V1,T1,Y. â¬[f] â{I}V1.T1 â Y â + ââV2,T2. â¬[f] V1 â V2 & â¬[f] T1 â T2 & + Y = â{I}V2.T2. +/2 width=3 by lifts_inv_flat1_aux/ qed-. + +fact lifts_inv_sort2_aux: âf,X,Y. â¬[f] X â Y â âs. Y = âs â X = âs. +#f #X #Y -f -X -Y // +[ #f #i1 #i2 #_ #x #H destruct +| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct +| #f #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct +] +qed-. + +(* Basic_1: includes: lift_gen_sort ) +( Basic_2A1: includes: lift_inv_sort2 ) +lemma lifts_inv_sort2: âf,X,s. â¬[f] X â âs â X = âs. +/2 width=4 by lifts_inv_sort2_aux/ qed-. + +fact lifts_inv_lref2_aux: âf,X,Y. â¬[f] X â Y â âi2. Y = #i2 â + ââi1. @â¦i1, fâ¦ â i2 & X = #i1. +#f #X #Y -f -X -Y +[ #f #s #x #H destruct +| #f #i1 #i2 #Hi12 #x #H destruct /2 width=3 by ex2_intro/ +| #f #l #x #H destruct +| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct +| #f #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct +] +qed-. + +(* Basic_1: includes: lift_gen_lref lift_gen_lref_lt lift_gen_lref_false lift_gen_lref_ge ) +( Basic_2A1: includes: lift_inv_lref2 lift_inv_lref2_lt lift_inv_lref2_be lift_inv_lref2_ge lift_inv_lref2_plus ) +lemma lifts_inv_lref2: âf,X,i2. â¬[f] X â #i2 â + ââi1. @â¦i1, fâ¦ â i2 & X = #i1. +/2 width=3 by lifts_inv_lref2_aux/ qed-. + +fact lifts_inv_gref2_aux: âf,X,Y. â¬[f] X â Y â âl. Y = Â§l â X = Â§l. +#f #X #Y -f -X -Y // +[ #f #i1 #i2 #_ #x #H destruct +| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct +| #f #I #V1 #V2 #T1 #T2 #_ #_ #x #H destruct +] +qed-. + +(* Basic_2A1: includes: lift_inv_gref1 ) +lemma lifts_inv_gref2: âf,X,l. â¬[f] X â Â§l â X = Â§l. +/2 width=4 by lifts_inv_gref2_aux/ qed-. + +fact lifts_inv_bind2_aux: âf,X,Y. â¬[f] X â Y â + âp,I,V2,T2. Y = â{p,I}V2.T2 â + ââV1,T1. â¬[f] V1 â V2 & â¬[â«¯f] T1 â T2 & + X = â{p,I}V1.T1. +#f #X #Y -f -X -Y +[ #f #s #q #J #W2 #U2 #H destruct +| #f #i1 #i2 #_ #q #J #W2 #U2 #H destruct +| #f #l #q #J #W2 #U2 #H destruct +| #f #p #I #V1 #V2 #T1 #T2 #HV12 #HT12 #q #J #W2 #U2 #H destruct /2 width=5 by ex3_2_intro/ +| #f #I #V1 #V2 #T1 #T2 #_ #_ #q #J #W2 #U2 #H destruct +] +qed-. + +(* Basic_1: includes: lift_gen_bind ) +( Basic_2A1: includes: lift_inv_bind2 ) +lemma lifts_inv_bind2: âf,p,I,V2,T2,X. â¬[f] X â â{p,I}V2.T2 â + ââV1,T1. â¬[f] V1 â V2 & â¬[â«¯f] T1 â T2 & + X = â{p,I}V1.T1. +/2 width=3 by lifts_inv_bind2_aux/ qed-. + +fact lifts_inv_flat2_aux: âf:rtmap. âX,Y. â¬[f] X â Y â + âI,V2,T2. Y = â{I}V2.T2 â + ââV1,T1. â¬[f] V1 â V2 & â¬[f] T1 â T2 & + X = â{I}V1.T1. +#f #X #Y -f -X -Y +[ #f #s #J #W2 #U2 #H destruct +| #f #i1 #i2 #_ #J #W2 #U2 #H destruct +| #f #l #J #W2 #U2 #H destruct +| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #J #W2 #U2 #H destruct +| #f #I #V1 #V2 #T1 #T2 #HV12 #HT12 #J #W2 #U2 #H destruct /2 width=5 by ex3_2_intro/ +] +qed-. + +(* Basic_1: includes: lift_gen_flat ) +( Basic_2A1: includes: lift_inv_flat2 ) +lemma lifts_inv_flat2: âf:rtmap. âI,V2,T2,X. â¬[f] X â â{I}V2.T2 â + ââV1,T1. â¬[f] V1 â V2 & â¬[f] T1 â T2 & + X = â{I}V1.T1. +/2 width=3 by lifts_inv_flat2_aux/ qed-. + +(* Advanced inversion lemmas ************************************************) + +lemma lifts_inv_atom1: âf,I,Y. â¬[f] âª{I} â Y â + â¨â¨ ââs. I = Sort s & Y = âs + | ââi,j. @â¦i, fâ¦ â j & I = LRef i & Y = #j + | ââl. I = GRef l & Y = Â§l. +#f #n #Y #H +[ lapply (lifts_inv_sort1 â¦ H) +| elim (lifts_inv_lref1 â¦ H) +| lapply (lifts_inv_gref1 â¦ H) +] -H /3 width=5 by or3_intro0, or3_intro1, or3_intro2, ex3_2_intro, ex2_intro/ +qed-. + +lemma lifts_inv_atom2: âf,I,X. â¬[f] X â âª{I} â + â¨â¨ ââs. X = âs & I = Sort s + | ââi,j. @â¦i, fâ¦ â j & X = #i & I = LRef j + | ââl. X = Â§l & I = GRef l. +#f #n #X #H +[ lapply (lifts_inv_sort2 â¦ H) +| elim (lifts_inv_lref2 â¦ H) +| lapply (lifts_inv_gref2 â¦ H) +] -H /3 width=5 by or3_intro0, or3_intro1, or3_intro2, ex3_2_intro, ex2_intro/ +qed-. + +(* Basic_2A1: includes: lift_inv_pair_xy_x ) +lemma lifts_inv_pair_xy_x: âf,I,V,T. â¬[f] â¡{I}V.T â V â â¥. +#f #J #V elim V -V +[ * #i #U #H + [ lapply (lifts_inv_sort2 â¦ H) -H #H destruct + | elim (lifts_inv_lref2 â¦ H) -H + #x #_ #H destruct + | lapply (lifts_inv_gref2 â¦ H) -H #H destruct + ] +| * [ #p ] #I #V2 #T2 #IHV2 #_ #U #H + [ elim (lifts_inv_bind2 â¦ H) -H #V1 #T1 #HV12 #_ #H destruct /2 width=3 by/ + | elim (lifts_inv_flat2 â¦ H) -H #V1 #T1 #HV12 #_ #H destruct /2 width=3 by/ + ] +] +qed-. + +(* Basic_1: includes: thead_x_lift_y_y ) +( Basic_2A1: includes: lift_inv_pair_xy_y ) +lemma lifts_inv_pair_xy_y: âI,T,V,f. â¬[f] â¡{I}V.T â T â â¥. +#J #T elim T -T +[ * #i #W #f #H + [ lapply (lifts_inv_sort2 â¦ H) -H #H destruct + | elim (lifts_inv_lref2 â¦ H) -H + #x #_ #H destruct + | lapply (lifts_inv_gref2 â¦ H) -H #H destruct + ] +| * [ #p ] #I #V2 #T2 #_ #IHT2 #W #f #H + [ elim (lifts_inv_bind2 â¦ H) -H #V1 #T1 #_ #HT12 #H destruct /2 width=4 by/ + | elim (lifts_inv_flat2 â¦ H) -H #V1 #T1 #_ #HT12 #H destruct /2 width=4 by/ + ] +] +qed-. + +(* Inversion lemmas with uniform relocations ********************************) + +lemma lifts_inv_lref1_uni: âl,Y,i. â¬[l] #i â Y â Y = #(l+i). +#l #Y #i1 #H elim (lifts_inv_lref1 â¦ H) -H /4 width=4 by at_mono, eq_f/ +qed-. + +lemma lifts_inv_lref2_uni: âl,X,i2. â¬[l] X â #i2 â + ââi1. X = #i1 & i2 = l + i1. +#l #X #i2 #H elim (lifts_inv_lref2 â¦ H) -H +/3 width=3 by at_inv_uni, ex2_intro/ +qed-. + +lemma lifts_inv_lref2_uni_ge: âl,X,i. â¬[l] X â #(l + i) â X = #i. +#l #X #i2 #H elim (lifts_inv_lref2_uni â¦ H) -H +#i1 #H1 #H2 destruct /4 width=2 by injective_plus_r, eq_f, sym_eq/ +qed-. + +lemma lifts_inv_lref2_uni_lt: âl,X,i. â¬[l] X â #i â i < l â â¥. +#l #X #i2 #H elim (lifts_inv_lref2_uni â¦ H) -H +#i1 #_ #H1 #H2 destruct /2 width=4 by lt_le_false/ +qed-. + +(* Basic forward lemmas *****************************************************) + +(* Basic_2A1: includes: lift_inv_O2 ) +lemma lifts_fwd_isid: âf,T1,T2. â¬[f] T1 â T2 â ðâ¦fâ¦ â T1 = T2. +#f #T1 #T2 #H elim H -f -T1 -T2 +/4 width=3 by isid_inv_at_mono, isid_push, eq_f2, eq_f/ +qed-. + +(* Basic_2A1: includes: lift_fwd_pair1 ) +lemma lifts_fwd_pair1: âf:rtmap. âI,V1,T1,Y. â¬[f] â¡{I}V1.T1 â Y â + ââV2,T2. â¬[f] V1 â V2 & Y = â¡{I}V2.T2. +#f [ #p ] #I #V1 #T1 #Y #H +[ elim (lifts_inv_bind1 â¦ H) -H /2 width=4 by ex2_2_intro/ +| elim (lifts_inv_flat1 â¦ H) -H /2 width=4 by ex2_2_intro/ +] +qed-. + +(* Basic_2A1: includes: lift_fwd_pair2 ) +lemma lifts_fwd_pair2: âf:rtmap. âI,V2,T2,X. â¬[f] X â â¡{I}V2.T2 â + ââV1,T1. â¬[f] V1 â V2 & X = â¡{I}V1.T1. +#f [ #p ] #I #V2 #T2 #X #H +[ elim (lifts_inv_bind2 â¦ H) -H /2 width=4 by ex2_2_intro/ +| elim (lifts_inv_flat2 â¦ H) -H /2 width=4 by ex2_2_intro/ +] +qed-. + +(* Basic properties *********************************************************) + +lemma lifts_eq_repl_back: âT1,T2. eq_repl_back â¦ (Î»f. â¬[f] T1 â T2). +#T1 #T2 #f1 #H elim H -T1 -T2 -f1 +/4 width=5 by lifts_flat, lifts_bind, lifts_lref, at_eq_repl_back, eq_push/ +qed-. + +lemma lifts_eq_repl_fwd: âT1,T2. eq_repl_fwd â¦ (Î»f. â¬[f] T1 â T2). +#T1 #T2 @eq_repl_sym /2 width=3 by lifts_eq_repl_back/ (**) (* full auto fails ) +qed-. + +( Basic_1: includes: lift_r ) +( Basic_2A1: includes: lift_refl ) +lemma lifts_refl: âT,f. ðâ¦fâ¦ â â¬[f] T â T. +#T elim T -T * +/4 width=3 by lifts_flat, lifts_bind, lifts_lref, isid_inv_at, isid_push/ +qed. + +(* Basic_2A1: includes: lift_total ) +lemma lifts_total: âT1,f. âT2. â¬[f] T1 â T2. +#T1 elim T1 -T1 * +/3 width=2 by lifts_lref, lifts_sort, lifts_gref, ex_intro/ +[ #p ] #I #V1 #T1 #IHV1 #IHT1 #f +elim (IHV1 f) -IHV1 #V2 #HV12 +[ elim (IHT1 (â«¯f)) -IHT1 /3 width=2 by lifts_bind, ex_intro/ +| elim (IHT1 f) -IHT1 /3 width=2 by lifts_flat, ex_intro/ +] +qed-. + +lemma lift_lref_uni: âl,i. â¬[l] #i â #(l+i). +#l elim l -l /2 width=1 by lifts_lref/ +qed. + +( Basic_1: includes: lift_free (right to left) ) +( Basic_2A1: includes: lift_split ) +lemma lifts_split_trans: âf,T1,T2. â¬[f] T1 â T2 â + âf1,f2. f2 â f1 â f â + ââT. â¬[f1] T1 â T & â¬[f2] T â T2. +#f #T1 #T2 #H elim H -f -T1 -T2 +[ /3 width=3 by lifts_sort, ex2_intro/ +| #f #i1 #i2 #Hi #f1 #f2 #Ht elim (after_at_fwd â¦ Hi â¦ Ht) -Hi -Ht + /3 width=3 by lifts_lref, ex2_intro/ +| /3 width=3 by lifts_gref, ex2_intro/ +| #f #p #I #V1 #V2 #T1 #T2 #_ #_ #IHV #IHT #f1 #f2 #Ht + elim (IHV â¦ Ht) elim (IHT (â«¯f1) (â«¯f2)) -IHV -IHT + /3 width=5 by lifts_bind, after_O2, ex2_intro/ +| #f #I #V1 #V2 #T1 #T2 #_ #_ #IHV #IHT #f1 #f2 #Ht + elim (IHV â¦ Ht) elim (IHT â¦ Ht) -IHV -IHT -Ht + /3 width=5 by lifts_flat, ex2_intro/ +] +qed-. + +(* Note: apparently, this was missing in Basic_2A1 ) +lemma lifts_split_div: âf1,T1,T2. â¬[f1] T1 â T2 â + âf2,f. f2 â f1 â f â + ââT. â¬[f2] T2 â T & â¬[f] T1 â T. +#f1 #T1 #T2 #H elim H -f1 -T1 -T2 +[ /3 width=3 by lifts_sort, ex2_intro/ +| #f1 #i1 #i2 #Hi #f2 #f #Ht elim (after_at1_fwd â¦ Hi â¦ Ht) -Hi -Ht + /3 width=3 by lifts_lref, ex2_intro/ +| /3 width=3 by lifts_gref, ex2_intro/ +| #f1 #p #I #V1 #V2 #T1 #T2 #_ #_ #IHV #IHT #f2 #f #Ht + elim (IHV â¦ Ht) elim (IHT (â«¯f2) (â«¯f)) -IHV -IHT + /3 width=5 by lifts_bind, after_O2, ex2_intro/ +| #f1 #I #V1 #V2 #T1 #T2 #_ #_ #IHV #IHT #f2 #f #Ht + elim (IHV â¦ Ht) elim (IHT â¦ Ht) -IHV -IHT -Ht + /3 width=5 by lifts_flat, ex2_intro/ +] +qed-. + +(* Basic_1: includes: dnf_dec2 dnf_dec ) +( Basic_2A1: includes: is_lift_dec ) +lemma is_lifts_dec: âT2,f. Decidable (âT1. â¬[f] T1 â T2). +#T1 elim T1 -T1 +[ * [1,3: /3 width=2 by lifts_sort, lifts_gref, ex_intro, or_introl/ ] + #i2 #f elim (is_at_dec f i2) // + [ * /4 width=3 by lifts_lref, ex_intro, or_introl/ + | #H @or_intror * + #X #HX elim (lifts_inv_lref2 â¦ HX) -HX + /3 width=2 by ex_intro/ + ] +| * [ #p ] #I #V2 #T2 #IHV2 #IHT2 #f + [ elim (IHV2 f) -IHV2 + [ * #V1 #HV12 elim (IHT2 (â«¯f)) -IHT2 + [ * #T1 #HT12 @or_introl /3 width=2 by lifts_bind, ex_intro/ + | -V1 #HT2 @or_intror * #X #H + elim (lifts_inv_bind2 â¦ H) -H /3 width=2 by ex_intro/ + ] + | -IHT2 #HV2 @or_intror * #X #H + elim (lifts_inv_bind2 â¦ H) -H /3 width=2 by ex_intro/ + ] + | elim (IHV2 f) -IHV2 + [ * #V1 #HV12 elim (IHT2 f) -IHT2 + [ * #T1 #HT12 /4 width=2 by lifts_flat, ex_intro, or_introl/ + | -V1 #HT2 @or_intror * #X #H + elim (lifts_inv_flat2 â¦ H) -H /3 width=2 by ex_intro/ + ] + | -IHT2 #HV2 @or_intror * #X #H + elim (lifts_inv_flat2 â¦ H) -H /3 width=2 by ex_intro/ + ] + ] +] +qed-. + +(* Properties with uniform relocation ***************************************) + +lemma lifts_uni: ân1,n2,T,U. â¬[ðâ´n1âµâðâ´n2âµ] T â U â â¬[n1+n2] T â U. +/3 width=4 by lifts_eq_repl_back, after_inv_total/ qed. + +(* Basic_2A1: removed theorems 14: + lifts_inv_nil lifts_inv_cons + lift_inv_Y1 lift_inv_Y2 lift_inv_lref_Y1 lift_inv_lref_Y2 lift_lref_Y lift_Y1 + lift_lref_lt_eq lift_lref_ge_eq lift_lref_plus lift_lref_pred + lift_lref_ge_minus lift_lref_ge_minus_eq +) +( Basic_1: removed theorems 8: + lift_lref_gt + lift_head lift_gen_head + lift_weight_map lift_weight lift_weight_add lift_weight_add_O + lift_tlt_dx +*) diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_bind.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_bind.ma new file mode 100644 index 000000000..10630903b --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_bind.ma @@ -0,0 +1,71 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/ext2.ma". +include "static_2/relocation/lifts.ma". + +(* GENERIC RELOCATION FOR BINDERS *******************************************) + +definition liftsb: rtmap â relation bind â + Î»f. ext2 (lifts f). + +interpretation "uniform relocation (binder for local environments)" + 'RLiftStar i I1 I2 = (liftsb (uni i) I1 I2). + +interpretation "generic relocation (binder for local environments)" + 'RLiftStar f I1 I2 = (liftsb f I1 I2). + +(* Basic_inversion lemmas **************************************************) + +lemma liftsb_inv_unit_sn: âf,I,Z2. â¬[f] BUnit I â Z2 â Z2 = BUnit I. +/2 width=2 by ext2_inv_unit_sn/ qed-. + +lemma liftsb_inv_pair_sn: âf:rtmap. âZ2,I,V1. â¬[f] BPair I V1 â Z2 â + ââV2. â¬[f] V1 â V2 & Z2 = BPair I V2. +/2 width=1 by ext2_inv_pair_sn/ qed-. + +lemma liftsb_inv_unit_dx: âf,I,Z1. â¬[f] Z1 â BUnit I â Z1 = BUnit I. +/2 width=2 by ext2_inv_unit_dx/ qed-. + +lemma liftsb_inv_pair_dx: âf:rtmap. âZ1,I,V2. â¬[f] Z1 â BPair I V2 â + ââV1. â¬[f] V1 â V2 & Z1 = BPair I V1. +/2 width=1 by ext2_inv_pair_dx/ qed-. + +(* Basic properties *********************************************************) + +lemma liftsb_eq_repl_back: âI1,I2. eq_repl_back â¦ (Î»f. â¬[f] I1 â I2). +#I1 #I2 #f1 -I1 -I2 /3 width=3 by lifts_eq_repl_back, ext2_pair/ +qed-. + +lemma liftsb_refl: âf. ðâ¦fâ¦ â reflexive â¦ (liftsb f). +/3 width=1 by lifts_refl, ext2_refl/ qed. + +lemma liftsb_total: âI1,f. âI2. â¬[f] I1 â I2. + [2: #I #T1 #f elim (lifts_total T1 f) ] +/3 width=2 by ext2_unit, ext2_pair, ex_intro/ +qed-. + +lemma liftsb_split_trans: âf,I1,I2. â¬[f] I1 â I2 â + âf1,f2. f2 â f1 â f â + ââI. â¬[f1] I1 â I & â¬[f2] I â I2. +#f #I1 #I2 -I1 -I2 /2 width=3 by ext2_unit, ex2_intro/ +#I #V1 #V2 #HV12 #f1 #f2 #Hf elim (lifts_split_trans â¦ HV12 â¦ Hf) -f +/3 width=3 by ext2_pair, ex2_intro/ +qed-. + +(* Basic forward lemmas *****************************************************) + +lemma liftsb_fwd_isid: âf,I1,I2. â¬[f] I1 â I2 â ðâ¦fâ¦ â I1 = I2. +#f #I1 #I2 -I1 -I2 /3 width=3 by lifts_fwd_isid, eq_f2/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_lifts.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_lifts.ma new file mode 100644 index 000000000..41c641716 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_lifts.ma @@ -0,0 +1,130 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/lifts.ma". + +(* GENERIC RELOCATION FOR TERMS *********************************************) + +(* Main properties **********************************************************) + +(* Basic_1: includes: lift_gen_lift ) +( Basic_2A1: includes: lift_div_le lift_div_be ) +theorem lifts_div4: âf2,Tf,T. â¬[f2] Tf â T â âg2,Tg. â¬[g2] Tg â T â + âf1,g1. H_at_div f2 g2 f1 g1 â + ââT0. â¬[f1] T0 â Tf & â¬[g1] T0 â Tg. +#f2 #Tf #T #H elim H -f2 -Tf -T +[ #f2 #s #g2 #Tg #H #f1 #g1 #_ + lapply (lifts_inv_sort2 â¦ H) -H #H destruct + /2 width=3 by ex2_intro/ +| #f2 #jf #j #Hf2 #g2 #Tg #H #f1 #g1 #H0 + elim (lifts_inv_lref2 â¦ H) -H #jg #Hg2 #H destruct + elim (H0 â¦ Hf2 Hg2) -H0 -j /3 width=3 by lifts_lref, ex2_intro/ +| #f2 #l #g2 #Tg #H #f1 #g1 #_ + lapply (lifts_inv_gref2 â¦ H) -H #H destruct + /2 width=3 by ex2_intro/ +| #f2 #p #I #Vf #V #Tf #T #_ #_ #IHV #IHT #g2 #X #H #f1 #g1 #H0 + elim (lifts_inv_bind2 â¦ H) -H #Vg #Tg #HVg #HTg #H destruct + elim (IHV â¦ HVg â¦ H0) -IHV -HVg + elim (IHT â¦ HTg) -IHT -HTg [ |: /2 width=8 by at_div_pp/ ] + /3 width=5 by lifts_bind, ex2_intro/ +| #f2 #I #Vf #V #Tf #T #_ #_ #IHV #IHT #g2 #X #H #f1 #g1 #H0 + elim (lifts_inv_flat2 â¦ H) -H #Vg #Tg #HVg #HTg #H destruct + elim (IHV â¦ HVg â¦ H0) -IHV -HVg + elim (IHT â¦ HTg â¦ H0) -IHT -HTg -H0 + /3 width=5 by lifts_flat, ex2_intro/ +] +qed-. + +lemma lifts_div4_one: âf,Tf,T. â¬[â«¯f] Tf â T â + âT1. â¬[1] T1 â T â + ââT0. â¬[1] T0 â Tf & â¬[f] T0 â T1. +/4 width=6 by lifts_div4, at_div_id_dx, at_div_pn/ qed-. + +theorem lifts_div3: âf2,T,T2. â¬[f2] T2 â T â âf,T1. â¬[f] T1 â T â + âf1. f2 â f1 â f â â¬[f1] T1 â T2. +#f2 #T #T2 #H elim H -f2 -T -T2 +[ #f2 #s #f #T1 #H >(lifts_inv_sort2 â¦ H) -T1 // +| #f2 #i2 #i #Hi2 #f #T1 #H #f1 #Ht21 elim (lifts_inv_lref2 â¦ H) -H + #i1 #Hi1 #H destruct /3 width=6 by lifts_lref, after_fwd_at1/ +| #f2 #l #f #T1 #H >(lifts_inv_gref2 â¦ H) -T1 // +| #f2 #p #I #W2 #W #U2 #U #_ #_ #IHW #IHU #f #T1 #H + elim (lifts_inv_bind2 â¦ H) -H #W1 #U1 #HW1 #HU1 #H destruct + /4 width=3 by lifts_bind, after_O2/ +| #f2 #I #W2 #W #U2 #U #_ #_ #IHW #IHU #f #T1 #H + elim (lifts_inv_flat2 â¦ H) -H #W1 #U1 #HW1 #HU1 #H destruct + /3 width=3 by lifts_flat/ +] +qed-. + +( Basic_1: was: lift1_lift1 (left to right) ) +( Basic_1: includes: lift_free (left to right) lift_d lift1_xhg (right to left) lift1_free (right to left) ) +( Basic_2A1: includes: lift_trans_be lift_trans_le lift_trans_ge lifts_lift_trans_le lifts_lift_trans ) +theorem lifts_trans: âf1,T1,T. â¬[f1] T1 â T â âf2,T2. â¬[f2] T â T2 â + âf. f2 â f1 â f â â¬[f] T1 â T2. +#f1 #T1 #T #H elim H -f1 -T1 -T +[ #f1 #s #f2 #T2 #H >(lifts_inv_sort1 â¦ H) -T2 // +| #f1 #i1 #i #Hi1 #f2 #T2 #H #f #Ht21 elim (lifts_inv_lref1 â¦ H) -H + #i2 #Hi2 #H destruct /3 width=6 by lifts_lref, after_fwd_at/ +| #f1 #l #f2 #T2 #H >(lifts_inv_gref1 â¦ H) -T2 // +| #f1 #p #I #W1 #W #U1 #U #_ #_ #IHW #IHU #f2 #T2 #H + elim (lifts_inv_bind1 â¦ H) -H #W2 #U2 #HW2 #HU2 #H destruct + /4 width=3 by lifts_bind, after_O2/ +| #f1 #I #W1 #W #U1 #U #_ #_ #IHW #IHU #f2 #T2 #H + elim (lifts_inv_flat1 â¦ H) -H #W2 #U2 #HW2 #HU2 #H destruct + /3 width=3 by lifts_flat/ +] +qed-. + +(* Basic_2A1: includes: lift_conf_O1 lift_conf_be ) +theorem lifts_conf: âf1,T,T1. â¬[f1] T â T1 â âf,T2. â¬[f] T â T2 â + âf2. f2 â f1 â f â â¬[f2] T1 â T2. +#f1 #T #T1 #H elim H -f1 -T -T1 +[ #f1 #s #f #T2 #H >(lifts_inv_sort1 â¦ H) -T2 // +| #f1 #i #i1 #Hi1 #f #T2 #H #f2 #Ht21 elim (lifts_inv_lref1 â¦ H) -H + #i2 #Hi2 #H destruct /3 width=6 by lifts_lref, after_fwd_at2/ +| #f1 #l #f #T2 #H >(lifts_inv_gref1 â¦ H) -T2 // +| #f1 #p #I #W #W1 #U #U1 #_ #_ #IHW #IHU #f #T2 #H + elim (lifts_inv_bind1 â¦ H) -H #W2 #U2 #HW2 #HU2 #H destruct + /4 width=3 by lifts_bind, after_O2/ +| #f1 #I #W #W1 #U #U1 #_ #_ #IHW #IHU #f #T2 #H + elim (lifts_inv_flat1 â¦ H) -H #W2 #U2 #HW2 #HU2 #H destruct + /3 width=3 by lifts_flat/ +] +qed-. + +(* Advanced proprerties *****************************************************) + +(* Basic_2A1: includes: lift_inj ) +lemma lifts_inj: âf. is_inj2 â¦ (lifts f). +#f #T1 #U #H1 #T2 #H2 lapply (after_isid_dx ðð â¦ f) +/3 width=6 by lifts_div3, lifts_fwd_isid/ +qed-. + +( Basic_2A1: includes: lift_mono *) +lemma lifts_mono: âf,T. is_mono â¦ (lifts f T). +#f #T #U1 #H1 #U2 #H2 lapply (after_isid_sn ðð â¦ f) +/3 width=6 by lifts_conf, lifts_fwd_isid/ +qed-. + +lemma liftable2_sn_bi: âR. liftable2_sn R â liftable2_bi R. +#R #HR #T1 #T2 #HT12 #f #U1 #HTU1 #U2 #HTU2 +elim (HR â¦ HT12 â¦ HTU1) -HR -T1 #X #HTX #HUX +<(lifts_mono â¦ HTX â¦ HTU2) -T2 -U2 -f // +qed-. + +lemma deliftable2_sn_bi: âR. deliftable2_sn R â deliftable2_bi R. +#R #HR #U1 #U2 #HU12 #f #T1 #HTU1 #T2 #HTU2 +elim (HR â¦ HU12 â¦ HTU1) -HR -U1 #X #HUX #HTX +<(lifts_inj â¦ HUX â¦ HTU2) -U2 -T2 -f // +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_lifts_bind.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_lifts_bind.ma new file mode 100644 index 000000000..e08ce9962 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_lifts_bind.ma @@ -0,0 +1,53 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/lifts_lifts.ma". +include "static_2/relocation/lifts_bind.ma". + +(* GENERIC RELOCATION FOR BINDERS *******************************************) + +(* Main properties **********************************************************) + +theorem liftsb_div3: âf2,I,I2. â¬[f2] I2 â I â âf,I1. â¬[f] I1 â I â + âf1. f2 â f1 â f â â¬[f1] I1 â I2. +#f2 #I #I2 -I -I2 #I [2: #V #V2 #HV2 ] #f #I1 #H +[ elim (liftsb_inv_pair_dx â¦ H) | lapply (liftsb_inv_unit_dx â¦ H) ] -H +/3 width=6 by lifts_div3, ext2_pair, ext2_unit/ +qed-. + +theorem liftsb_trans: âf1,I1,I. â¬[f1] I1 â I â âf2,I2. â¬[f2] I â I2 â + âf. f2 â f1 â f â â¬[f] I1 â I2. +#f1 #I1 #I -I1 -I #I1 [2: #V1 #V #HV1 ] #f2 #I2 #H +[ elim (liftsb_inv_pair_sn â¦ H) | lapply (liftsb_inv_unit_sn â¦ H) ] -H +/3 width=6 by lifts_trans, ext2_pair, ext2_unit/ +qed-. + +theorem liftsb_conf: âf1,I,I1. â¬[f1] I â I1 â âf,I2. â¬[f] I â I2 â + âf2. f2 â f1 â f â â¬[f2] I1 â I2. +#f1 #I #I1 -I -I1 #I [2: #V #V1 #HV1 ] #f2 #I2 #H +[ elim (liftsb_inv_pair_sn â¦ H) | lapply (liftsb_inv_unit_sn â¦ H) ] -H +/3 width=6 by lifts_conf, ext2_pair, ext2_unit/ +qed-. + +(* Advanced proprerties *) + +lemma liftsb_inj: âf. is_inj2 â¦ (liftsb f). +#f #T1 #U #H1 #T2 #H2 lapply (after_isid_dx ðð â¦ f) +/3 width=6 by liftsb_div3, liftsb_fwd_isid/ +qed-. + +lemma liftsb_mono: âf,T. is_mono â¦ (liftsb f T). +#f #T #U1 #H1 #U2 #H2 lapply (after_isid_sn ðð â¦ f) +/3 width=6 by liftsb_conf, liftsb_fwd_isid/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_lifts_vector.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_lifts_vector.ma new file mode 100644 index 000000000..033de1fb4 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_lifts_vector.ma @@ -0,0 +1,53 @@ +(**********************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/lifts_lifts.ma". +include "static_2/relocation/lifts_vector.ma". + +(* GENERIC RELOCATION FOR TERM VECTORS *************************************) + +(* Main properties **********************************************************) + +(* Basic_1: includes: lifts_inj ) +theorem liftsv_inj: âf,T1s,Us. â¬[f] T1s â Us â + âT2s. â¬[f] T2s â Us â T1s = T2s. +#f #T1s #Us #H elim H -T1s -Us +[ #T2s #H >(liftsv_inv_nil2 â¦ H) -H // +| #T1s #Us #T1 #U #HT1U #_ #IHT1Us #X #H destruct + elim (liftsv_inv_cons2 â¦ H) -H #T2 #T2s #HT2U #HT2Us #H destruct + >(lifts_inj â¦ HT1U â¦ HT2U) -U /3 width=1 by eq_f/ +] +qed-. + +( Basic_2A1: includes: liftv_mono ) +theorem liftsv_mono: âf,Ts,U1s. â¬[f] Ts â U1s â + âU2s. â¬[f] Ts â U2s â U1s = U2s. +#f #Ts #U1s #H elim H -Ts -U1s +[ #U2s #H >(liftsv_inv_nil1 â¦ H) -H // +| #Ts #U1s #T #U1 #HTU1 #_ #IHTU1s #X #H destruct + elim (liftsv_inv_cons1 â¦ H) -H #U2 #U2s #HTU2 #HTU2s #H destruct + >(lifts_mono â¦ HTU1 â¦ HTU2) -T /3 width=1 by eq_f/ +] +qed-. + +( Basic_1: includes: lifts1_xhg (right to left) ) +( Basic_2A1: includes: liftsv_liftv_trans_le ) +theorem liftsv_trans: âf1,T1s,Ts. â¬[f1] T1s â Ts â âT2s,f2. â¬[f2] Ts â T2s â + âf. f2 â f1 â f â â¬[f] T1s â T2s. +#f1 #T1s #Ts #H elim H -T1s -Ts +[ #T2s #f2 #H >(liftsv_inv_nil1 â¦ H) -T2s /2 width=3 by liftsv_nil/ +| #T1s #Ts #T1 #T #HT1 #_ #IHT1s #X #f2 #H elim (liftsv_inv_cons1 â¦ H) -H + #T2 #T2s #HT2 #HT2s #H destruct /3 width=6 by lifts_trans, liftsv_cons/ +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_simple.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_simple.ma new file mode 100644 index 000000000..115a0b473 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_simple.ma @@ -0,0 +1,32 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/term_simple.ma". +include "static_2/relocation/lifts.ma". + +(* GENERIC RELOCATION FOR TERMS *********************************************) + +(* Forward lemmas with simple terms *****************************************) + +(* Basic_2A1: includes: lift_simple_dx ) +lemma lifts_simple_dx: âf,T1,T2. â¬[f] T1 â T2 â ðâ¦T1â¦ â ðâ¦T2â¦. +#f #T1 #T2 #H elim H -f -T1 -T2 // +#f #p #I #V1 #V2 #T1 #T2 #_ #_ #_ #_ #H elim (simple_inv_bind â¦ H) +qed-. + +(* Basic_2A1: includes: lift_simple_sn ) +lemma lifts_simple_sn: âf,T1,T2. â¬[f] T1 â T2 â ðâ¦T2â¦ â ðâ¦T1â¦. +#f #T1 #T2 #H elim H -f -T1 -T2 // +#f #p #I #V1 #V2 #T1 #T2 #_ #_ #_ #_ #H elim (simple_inv_bind â¦ H) +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_tdeq.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_tdeq.ma new file mode 100644 index 000000000..0b0dbf92f --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_tdeq.ma @@ -0,0 +1,66 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/tdeq.ma". +include "static_2/relocation/lifts_lifts.ma". + +(* GENERIC RELOCATION FOR TERMS *********************************************) + +(* Properties with degree-based equivalence for terms ***********************) + +lemma tdeq_lifts_sn: âh,o. liftable2_sn (tdeq h o). +#h #o #T1 #T2 #H elim H -T1 -T2 [||| * ] +[ #s1 #s2 #d #Hs1 #Hs2 #f #X #H >(lifts_inv_sort1 â¦ H) -H + /3 width=5 by lifts_sort, tdeq_sort, ex2_intro/ +| #i #f #X #H elim (lifts_inv_lref1 â¦ H) -H + /3 width=3 by lifts_lref, tdeq_lref, ex2_intro/ +| #l #f #X #H >(lifts_inv_gref1 â¦ H) -H + /2 width=3 by lifts_gref, tdeq_gref, ex2_intro/ +| #p #I #V1 #V2 #T1 #T2 #_ #_ #IHV #IHT #f #X #H elim (lifts_inv_bind1 â¦ H) -H + #W1 #U1 #HVW1 #HTU1 #H destruct + elim (IHV â¦ HVW1) -V1 elim (IHT â¦ HTU1) -T1 + /3 width=5 by lifts_bind, tdeq_pair, ex2_intro/ +| #I #V1 #V2 #T1 #T2 #_ #_ #IHV #IHT #f #X #H elim (lifts_inv_flat1 â¦ H) -H + #W1 #U1 #HVW1 #HTU1 #H destruct + elim (IHV â¦ HVW1) -V1 elim (IHT â¦ HTU1) -T1 + /3 width=5 by lifts_flat, tdeq_pair, ex2_intro/ +] +qed-. + +lemma tdeq_lifts_bi: âh,o. liftable2_bi (tdeq h o). +/3 width=6 by tdeq_lifts_sn, liftable2_sn_bi/ qed-. + +(* Inversion lemmas with degree-based equivalence for terms *****************) + +lemma tdeq_inv_lifts_sn: âh,o. deliftable2_sn (tdeq h o). +#h #o #U1 #U2 #H elim H -U1 -U2 [||| * ] +[ #s1 #s2 #d #Hs1 #Hs2 #f #X #H >(lifts_inv_sort2 â¦ H) -H + /3 width=5 by lifts_sort, tdeq_sort, ex2_intro/ +| #i #f #X #H elim (lifts_inv_lref2 â¦ H) -H + /3 width=3 by lifts_lref, tdeq_lref, ex2_intro/ +| #l #f #X #H >(lifts_inv_gref2 â¦ H) -H + /2 width=3 by lifts_gref, tdeq_gref, ex2_intro/ +| #p #I #W1 #W2 #U1 #U2 #_ #_ #IHW #IHU #f #X #H elim (lifts_inv_bind2 â¦ H) -H + #V1 #T1 #HVW1 #HTU1 #H destruct + elim (IHW â¦ HVW1) -W1 elim (IHU â¦ HTU1) -U1 + /3 width=5 by lifts_bind, tdeq_pair, ex2_intro/ +| #I #W1 #W2 #U1 #U2 #_ #_ #IHW #IHU #f #X #H elim (lifts_inv_flat2 â¦ H) -H + #V1 #T1 #HVW1 #HTU1 #H destruct + elim (IHW â¦ HVW1) -W1 elim (IHU â¦ HTU1) -U1 + /3 width=5 by lifts_flat, tdeq_pair, ex2_intro/ +] +qed-. + +lemma tdeq_inv_lifts_bi: âh,o. deliftable2_bi (tdeq h o). +/3 width=6 by tdeq_inv_lifts_sn, deliftable2_sn_bi/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_vector.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_vector.ma new file mode 100644 index 000000000..4721eafe0 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_vector.ma @@ -0,0 +1,137 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/term_vector.ma". +include "static_2/relocation/lifts.ma". + +(* GENERIC RELOCATION FOR TERM VECTORS *************************************) + +(* Basic_2A1: includes: liftv_nil liftv_cons ) +inductive liftsv (f:rtmap): relation (list term) â +| liftsv_nil : liftsv f (âº) (âº) +| liftsv_cons: âT1s,T2s,T1,T2. + â¬[f] T1 â T2 â liftsv f T1s T2s â + liftsv f (T1 â¨® T1s) (T2 â¨® T2s) +. + +interpretation "uniform relocation (term vector)" + 'RLiftStar i T1s T2s = (liftsv (uni i) T1s T2s). + +interpretation "generic relocation (term vector)" + 'RLiftStar f T1s T2s = (liftsv f T1s T2s). + +(* Basic inversion lemmas ***************************************************) + +fact liftsv_inv_nil1_aux: âf,X,Y. â¬[f] X â Y â X = âº â Y = âº. +#f #X #Y -X -Y // +#T1s #T2s #T1 #T2 #_ #_ #H destruct +qed-. + +(* Basic_2A1: includes: liftv_inv_nil1 ) +lemma liftsv_inv_nil1: âf,Y. â¬[f] âº â Y â Y = âº. +/2 width=5 by liftsv_inv_nil1_aux/ qed-. + +fact liftsv_inv_cons1_aux: âf:rtmap. âX,Y. â¬[f] X â Y â + âT1,T1s. X = T1 â¨® T1s â + ââT2,T2s. â¬[f] T1 â T2 & â¬[f] T1s â T2s & + Y = T2 â¨® T2s. +#f #X #Y -X -Y +[ #U1 #U1s #H destruct +| #T1s #T2s #T1 #T2 #HT12 #HT12s #U1 #U1s #H destruct /2 width=5 by ex3_2_intro/ +] +qed-. + +(* Basic_2A1: includes: liftv_inv_cons1 ) +lemma liftsv_inv_cons1: âf:rtmap. âT1,T1s,Y. â¬[f] T1 â¨® T1s â Y â + ââT2,T2s. â¬[f] T1 â T2 & â¬[f] T1s â T2s & + Y = T2 â¨® T2s. +/2 width=3 by liftsv_inv_cons1_aux/ qed-. + +fact liftsv_inv_nil2_aux: âf,X,Y. â¬[f] X â Y â Y = âº â X = âº. +#f #X #Y -X -Y // +#T1s #T2s #T1 #T2 #_ #_ #H destruct +qed-. + +lemma liftsv_inv_nil2: âf,X. â¬[f] X â âº â X = âº. +/2 width=5 by liftsv_inv_nil2_aux/ qed-. + +fact liftsv_inv_cons2_aux: âf:rtmap. âX,Y. â¬[f] X â Y â + âT2,T2s. Y = T2 â¨® T2s â + ââT1,T1s. â¬[f] T1 â T2 & â¬[f] T1s â T2s & + X = T1 â¨® T1s. +#f #X #Y * -X -Y +[ #U2 #U2s #H destruct +| #T1s #T2s #T1 #T2 #HT12 #HT12s #U2 #U2s #H destruct /2 width=5 by ex3_2_intro/ +] +qed-. + +lemma liftsv_inv_cons2: âf:rtmap. âX,T2,T2s. â¬[f] X â T2 â¨® T2s â + ââT1,T1s. â¬[f] T1 â T2 & â¬[f] T1s â T2s & + X = T1 â¨® T1s. +/2 width=3 by liftsv_inv_cons2_aux/ qed-. + +( Basic_1: was: lifts1_flat (left to right) ) +lemma lifts_inv_applv1: âf:rtmap. âV1s,U1,T2. â¬[f] â¶ V1s.U1 â T2 â + ââV2s,U2. â¬[f] V1s â V2s & â¬[f] U1 â U2 & + T2 = â¶ V2s.U2. +#f #V1s elim V1s -V1s +[ /3 width=5 by ex3_2_intro, liftsv_nil/ +| #V1 #V1s #IHV1s #T1 #X #H elim (lifts_inv_flat1 â¦ H) -H + #V2 #Y #HV12 #HY #H destruct elim (IHV1s â¦ HY) -IHV1s -HY + #V2s #T2 #HV12s #HT12 #H destruct /3 width=5 by ex3_2_intro, liftsv_cons/ +] +qed-. + +lemma lifts_inv_applv2: âf:rtmap. âV2s,U2,T1. â¬[f] T1 â â¶ V2s.U2 â + ââV1s,U1. â¬[f] V1s â V2s & â¬[f] U1 â U2 & + T1 = â¶ V1s.U1. +#f #V2s elim V2s -V2s +[ /3 width=5 by ex3_2_intro, liftsv_nil/ +| #V2 #V2s #IHV2s #T2 #X #H elim (lifts_inv_flat2 â¦ H) -H + #V1 #Y #HV12 #HY #H destruct elim (IHV2s â¦ HY) -IHV2s -HY + #V1s #T1 #HV12s #HT12 #H destruct /3 width=5 by ex3_2_intro, liftsv_cons/ +] +qed-. + +( Basic properties *********************************************************) + +(* Basic_2A1: includes: liftv_total ) +lemma liftsv_total: âf. âT1s:list term. âT2s. â¬[f] T1s â T2s. +#f #T1s elim T1s -T1s +[ /2 width=2 by liftsv_nil, ex_intro/ +| #T1 #T1s * #T2s #HT12s + elim (lifts_total T1 f) /3 width=2 by liftsv_cons, ex_intro/ +] +qed-. + +(* Basic_1: was: lifts1_flat (right to left) ) +lemma lifts_applv: âf:rtmap. âV1s,V2s. â¬[f] V1s â V2s â + âT1,T2. â¬[f] T1 â T2 â + â¬[f] â¶ V1s.T1 â â¶ V2s.T2. +#f #V1s #V2s #H elim H -V1s -V2s /3 width=1 by lifts_flat/ +qed. + +lemma liftsv_split_trans: âf,T1s,T2s. â¬[f] T1s â T2s â + âf1,f2. f2 â f1 â f â + ââTs. â¬[f1] T1s â Ts & â¬[f2] Ts â T2s. +#f #T1s #T2s #H elim H -T1s -T2s +[ /2 width=3 by liftsv_nil, ex2_intro/ +| #T1s #T2s #T1 #T2 #HT12 #_ #IH #f1 #f2 #Hf + elim (IH â¦ Hf) -IH + elim (lifts_split_trans â¦ HT12 â¦ Hf) -HT12 -Hf + /3 width=5 by liftsv_cons, ex2_intro/ +] +qed-. + +( Basic_1: removed theorems 2: lifts1_nil lifts1_cons *) diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_weight.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_weight.ma new file mode 100644 index 000000000..358660fe2 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_weight.ma @@ -0,0 +1,25 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/term_weight.ma". +include "static_2/relocation/lifts.ma". + +(* GENERIC RELOCATION FOR TERMS *********************************************) + +(* Forward lemmas with weight for terms *************************************) + +(* Basic_2A1: includes: lift_fwd_tw ) +lemma lifts_fwd_tw: âf,T1,T2. â¬[f] T1 â T2 â â¯{T1} = â¯{T2}. +#f #T1 #T2 #H elim H -f -T1 -T2 normalize // +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_weight_bind.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_weight_bind.ma new file mode 100644 index 000000000..62135a027 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_weight_bind.ma @@ -0,0 +1,25 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/bind_weight.ma". +include "static_2/relocation/lifts_weight.ma". +include "static_2/relocation/lifts_bind.ma". + +(* GENERIC RELOCATION FOR BINDERS *******************************************) + +(* Forward lemmas with weight for binders ***********************************) + +lemma liftsb_fwd_bw: âf,I1,I2. â¬[f] I1 â I2 â â¯{I1} = â¯{I2}. +#f #I1 #I2 -I1 -I2 /2 width=2 by lifts_fwd_tw/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/seq.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/seq.ma new file mode 100644 index 000000000..dcfbb0323 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/seq.ma @@ -0,0 +1,103 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/relations/ideqsn_3.ma". +include "static_2/syntax/ceq_ext.ma". +include "static_2/relocation/sex.ma". + +(* SYNTACTIC EQUIVALENCE FOR SELECTED LOCAL ENVIRONMENTS ********************) + +(* Basic_2A1: includes: lreq_atom lreq_zero lreq_pair lreq_succ ) +definition seq: relation3 rtmap lenv lenv â sex ceq_ext cfull. + +interpretation + "syntactic equivalence on selected entries (local environment)" + 'IdEqSn f L1 L2 = (seq f L1 L2). + +( Basic properties *********************************************************) + +lemma seq_eq_repl_back: âL1,L2. eq_repl_back â¦ (Î»f. L1 â¡[f] L2). +/2 width=3 by sex_eq_repl_back/ qed-. + +lemma seq_eq_repl_fwd: âL1,L2. eq_repl_fwd â¦ (Î»f. L1 â¡[f] L2). +/2 width=3 by sex_eq_repl_fwd/ qed-. + +lemma sle_seq_trans: âf2,L1,L2. L1 â¡[f2] L2 â + âf1. f1 â f2 â L1 â¡[f1] L2. +/2 width=3 by sle_sex_trans/ qed-. + +(* Basic_2A1: includes: lreq_refl ) +lemma seq_refl: âf. reflexive â¦ (seq f). +/2 width=1 by sex_refl/ qed. + +( Basic_2A1: includes: lreq_sym ) +lemma seq_sym: âf. symmetric â¦ (seq f). +/3 width=2 by sex_sym, cext2_sym/ qed-. + +( Basic inversion lemmas ***************************************************) + +(* Basic_2A1: includes: lreq_inv_atom1 ) +lemma seq_inv_atom1: âf,Y. â â¡[f] Y â Y = â. +/2 width=4 by sex_inv_atom1/ qed-. + +( Basic_2A1: includes: lreq_inv_pair1 ) +lemma seq_inv_next1: âg,J,K1,Y. K1.â{J} â¡[âg] Y â + ââK2. K1 â¡[g] K2 & Y = K2.â{J}. +#g #J #K1 #Y #H +elim (sex_inv_next1 â¦ H) -H #Z #K2 #HK12 #H1 #H2 destruct +<(ceq_ext_inv_eq â¦ H1) -Z /2 width=3 by ex2_intro/ +qed-. + +( Basic_2A1: includes: lreq_inv_zero1 lreq_inv_succ1 ) +lemma seq_inv_push1: âg,J1,K1,Y. K1.â{J1} â¡[â«¯g] Y â + ââJ2,K2. K1 â¡[g] K2 & Y = K2.â{J2}. +#g #J1 #K1 #Y #H elim (sex_inv_push1 â¦ H) -H /2 width=4 by ex2_2_intro/ +qed-. + +( Basic_2A1: includes: lreq_inv_atom2 ) +lemma seq_inv_atom2: âf,X. X â¡[f] â â X = â. +/2 width=4 by sex_inv_atom2/ qed-. + +( Basic_2A1: includes: lreq_inv_pair2 ) +lemma seq_inv_next2: âg,J,X,K2. X â¡[âg] K2.â{J} â + ââK1. K1 â¡[g] K2 & X = K1.â{J}. +#g #J #X #K2 #H +elim (sex_inv_next2 â¦ H) -H #Z #K1 #HK12 #H1 #H2 destruct +<(ceq_ext_inv_eq â¦ H1) -J /2 width=3 by ex2_intro/ +qed-. + +( Basic_2A1: includes: lreq_inv_zero2 lreq_inv_succ2 ) +lemma seq_inv_push2: âg,J2,X,K2. X â¡[â«¯g] K2.â{J2} â + ââJ1,K1. K1 â¡[g] K2 & X = K1.â{J1}. +#g #J2 #X #K2 #H elim (sex_inv_push2 â¦ H) -H /2 width=4 by ex2_2_intro/ +qed-. + +( Basic_2A1: includes: lreq_inv_pair ) +lemma seq_inv_next: âf,I1,I2,L1,L2. L1.â{I1} â¡[âf] L2.â{I2} â + â§â§ L1 â¡[f] L2 & I1 = I2. +#f #I1 #I2 #L1 #L2 #H elim (sex_inv_next â¦ H) -H +/3 width=3 by ceq_ext_inv_eq, conj/ +qed-. + +( Basic_2A1: includes: lreq_inv_succ ) +lemma seq_inv_push: âf,I1,I2,L1,L2. L1.â{I1} â¡[â«¯f] L2.â{I2} â L1 â¡[f] L2. +#f #I1 #I2 #L1 #L2 #H elim (sex_inv_push â¦ H) -H /2 width=1 by conj/ +qed-. + +lemma seq_inv_tl: âf,I,L1,L2. L1 â¡[â«±f] L2 â L1.â{I} â¡[f] L2.â{I}. +/2 width=1 by sex_inv_tl/ qed-. + +( Basic_2A1: removed theorems 5: + lreq_pair_lt lreq_succ_lt lreq_pair_O_Y lreq_O2 lreq_inv_O_Y +*) diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/seq_length.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/seq_length.ma new file mode 100644 index 000000000..3ea6b84b1 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/seq_length.ma @@ -0,0 +1,24 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/sex_length.ma". +include "static_2/relocation/seq.ma". + +(* SYNTACTIC EQUIVALENCE FOR SELECTED LOCAL ENVIRONMENTS ********************) + +(* Forward lemmas with length for local environments ************************) + +(* Basic_2A1: includes: lreq_fwd_length *) +lemma seq_fwd_length: âf,L1,L2. L1 â¡[f] L2 â |L1| = |L2|. +/2 width=4 by sex_fwd_length/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/seq_seq.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/seq_seq.ma new file mode 100644 index 000000000..a06f1f527 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/seq_seq.ma @@ -0,0 +1,37 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/ceq_ext_ceq_ext.ma". +include "static_2/relocation/sex_sex.ma". + +(* SYNTACTIC EQUIVALENCE FOR SELECTED LOCAL ENVIRONMENTS ********************) + +(* Main properties ) + +theorem seq_trans: âf. Transitive â¦ (seq f). +/3 width=5 by sex_trans, ceq_ext_trans/ qed-. + +theorem seq_canc_sn: âf. left_cancellable â¦ (seq f). +/3 width=3 by sex_canc_sn, seq_trans, seq_sym/ qed-. + +theorem seq_canc_dx: âf. right_cancellable â¦ (seq f). +/3 width=3 by sex_canc_dx, seq_trans, seq_sym/ qed-. + +theorem seq_join: âf1,L1,L2. L1 â¡[f1] L2 â âf2. L1 â¡[f2] L2 â + âf. f1 â f2 â f â L1 â¡[f] L2. +/2 width=5 by sex_join/ qed-. + +theorem seq_meet: âf1,L1,L2. L1 â¡[f1] L2 â âf2. L1 â¡[f2] L2 â + âf. f1 â f2 â f â L1 â¡[f] L2. +/2 width=5 by sex_meet/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/sex.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/sex.ma new file mode 100644 index 000000000..df09463c8 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/sex.ma @@ -0,0 +1,296 @@ +(****************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/relocation/rtmap_sle.ma". +include "ground_2/relocation/rtmap_sdj.ma". +include "static_2/notation/relations/relation_5.ma". +include "static_2/syntax/lenv.ma". + +(* GENERIC ENTRYWISE EXTENSION OF CONTEXT-SENSITIVE REALTIONS FOR TERMS *****) + +inductive sex (RN,RP:relation3 lenv bind bind): rtmap â relation lenv â +| sex_atom: âf. sex RN RP f (â) (â) +| sex_next: âf,I1,I2,L1,L2. + sex RN RP f L1 L2 â RN L1 I1 I2 â + sex RN RP (âf) (L1.â{I1}) (L2.â{I2}) +| sex_push: âf,I1,I2,L1,L2. + sex RN RP f L1 L2 â RP L1 I1 I2 â + sex RN RP (â«¯f) (L1.â{I1}) (L2.â{I2}) +. + +interpretation "generic entrywise extension (local environment)" + 'Relation RN RP f L1 L2 = (sex RN RP f L1 L2). + +definition R_pw_confluent2_sex: relation3 lenv bind bind â relation3 lenv bind bind â + relation3 lenv bind bind â relation3 lenv bind bind â + relation3 lenv bind bind â relation3 lenv bind bind â + relation3 rtmap lenv bind â + Î»R1,R2,RN1,RP1,RN2,RP2,f,L0,I0. + âI1. R1 L0 I0 I1 â âI2. R2 L0 I0 I2 â + âL1. L0 âª¤[RN1, RP1, f] L1 â âL2. L0 âª¤[RN2, RP2, f] L2 â + ââI. R2 L1 I1 I & R1 L2 I2 I. + +definition sex_transitive: relation3 lenv bind bind â relation3 lenv bind bind â + relation3 lenv bind bind â + relation3 lenv bind bind â relation3 lenv bind bind â + relation3 rtmap lenv bind â + Î»R1,R2,R3,RN,RP,f,L1,I1. + âI. R1 L1 I1 I â âL2. L1 âª¤[RN, RP, f] L2 â + âI2. R2 L2 I I2 â R3 L1 I1 I2. + +(* Basic inversion lemmas ***************************************************) + +fact sex_inv_atom1_aux: âRN,RP,f,X,Y. X âª¤[RN, RP, f] Y â X = â â Y = â. +#RN #RP #f #X #Y * -f -X -Y // +#f #I1 #I2 #L1 #L2 #_ #_ #H destruct +qed-. + +(* Basic_2A1: includes lpx_sn_inv_atom1 ) +lemma sex_inv_atom1: âRN,RP,f,Y. â âª¤[RN, RP, f] Y â Y = â. +/2 width=6 by sex_inv_atom1_aux/ qed-. + +fact sex_inv_next1_aux: âRN,RP,f,X,Y. X âª¤[RN, RP, f] Y â âg,J1,K1. X = K1.â{J1} â f = âg â + ââJ2,K2. K1 âª¤[RN, RP, g] K2 & RN K1 J1 J2 & Y = K2.â{J2}. +#RN #RP #f #X #Y -f -X -Y +[ #f #g #J1 #K1 #H destruct +| #f #I1 #I2 #L1 #L2 #HL #HI #g #J1 #K1 #H1 #H2 <(injective_next â¦ H2) -g destruct + /2 width=5 by ex3_2_intro/ +| #f #I1 #I2 #L1 #L2 #_ #_ #g #J1 #K1 #_ #H elim (discr_push_next â¦ H) +] +qed-. + +(* Basic_2A1: includes lpx_sn_inv_pair1 ) +lemma sex_inv_next1: âRN,RP,g,J1,K1,Y. K1.â{J1} âª¤[RN, RP, âg] Y â + ââJ2,K2. K1 âª¤[RN, RP, g] K2 & RN K1 J1 J2 & Y = K2.â{J2}. +/2 width=7 by sex_inv_next1_aux/ qed-. + +fact sex_inv_push1_aux: âRN,RP,f,X,Y. X âª¤[RN, RP, f] Y â âg,J1,K1. X = K1.â{J1} â f = â«¯g â + ââJ2,K2. K1 âª¤[RN, RP, g] K2 & RP K1 J1 J2 & Y = K2.â{J2}. +#RN #RP #f #X #Y -f -X -Y +[ #f #g #J1 #K1 #H destruct +| #f #I1 #I2 #L1 #L2 #_ #_ #g #J1 #K1 #_ #H elim (discr_next_push â¦ H) +| #f #I1 #I2 #L1 #L2 #HL #HI #g #J1 #K1 #H1 #H2 <(injective_push â¦ H2) -g destruct + /2 width=5 by ex3_2_intro/ +] +qed-. + +lemma sex_inv_push1: âRN,RP,g,J1,K1,Y. K1.â{J1} âª¤[RN, RP, â«¯g] Y â + ââJ2,K2. K1 âª¤[RN, RP, g] K2 & RP K1 J1 J2 & Y = K2.â{J2}. +/2 width=7 by sex_inv_push1_aux/ qed-. + +fact sex_inv_atom2_aux: âRN,RP,f,X,Y. X âª¤[RN, RP, f] Y â Y = â â X = â. +#RN #RP #f #X #Y * -f -X -Y // +#f #I1 #I2 #L1 #L2 #_ #_ #H destruct +qed-. + +(* Basic_2A1: includes lpx_sn_inv_atom2 ) +lemma sex_inv_atom2: âRN,RP,f,X. X âª¤[RN, RP, f] â â X = â. +/2 width=6 by sex_inv_atom2_aux/ qed-. + +fact sex_inv_next2_aux: âRN,RP,f,X,Y. X âª¤[RN, RP, f] Y â âg,J2,K2. Y = K2.â{J2} â f = âg â + ââJ1,K1. K1 âª¤[RN, RP, g] K2 & RN K1 J1 J2 & X = K1.â{J1}. +#RN #RP #f #X #Y -f -X -Y +[ #f #g #J2 #K2 #H destruct +| #f #I1 #I2 #L1 #L2 #HL #HI #g #J2 #K2 #H1 #H2 <(injective_next â¦ H2) -g destruct + /2 width=5 by ex3_2_intro/ +| #f #I1 #I2 #L1 #L2 #_ #_ #g #J2 #K2 #_ #H elim (discr_push_next â¦ H) +] +qed-. + +(* Basic_2A1: includes lpx_sn_inv_pair2 ) +lemma sex_inv_next2: âRN,RP,g,J2,X,K2. X âª¤[RN, RP, âg] K2.â{J2} â + ââJ1,K1. K1 âª¤[RN, RP, g] K2 & RN K1 J1 J2 & X = K1.â{J1}. +/2 width=7 by sex_inv_next2_aux/ qed-. + +fact sex_inv_push2_aux: âRN,RP,f,X,Y. X âª¤[RN, RP, f] Y â âg,J2,K2. Y = K2.â{J2} â f = â«¯g â + ââJ1,K1. K1 âª¤[RN, RP, g] K2 & RP K1 J1 J2 & X = K1.â{J1}. +#RN #RP #f #X #Y -f -X -Y +[ #f #J2 #K2 #g #H destruct +| #f #I1 #I2 #L1 #L2 #_ #_ #g #J2 #K2 #_ #H elim (discr_next_push â¦ H) +| #f #I1 #I2 #L1 #L2 #HL #HI #g #J2 #K2 #H1 #H2 <(injective_push â¦ H2) -g destruct + /2 width=5 by ex3_2_intro/ +] +qed-. + +lemma sex_inv_push2: âRN,RP,g,J2,X,K2. X âª¤[RN, RP, â«¯g] K2.â{J2} â + ââJ1,K1. K1 âª¤[RN, RP, g] K2 & RP K1 J1 J2 & X = K1.â{J1}. +/2 width=7 by sex_inv_push2_aux/ qed-. + +(* Basic_2A1: includes lpx_sn_inv_pair ) +lemma sex_inv_next: âRN,RP,f,I1,I2,L1,L2. + L1.â{I1} âª¤[RN, RP, âf] L2.â{I2} â + L1 âª¤[RN, RP, f] L2 â§ RN L1 I1 I2. +#RN #RP #f #I1 #I2 #L1 #L2 #H elim (sex_inv_next1 â¦ H) -H +#I0 #L0 #HL10 #HI10 #H destruct /2 width=1 by conj/ +qed-. + +lemma sex_inv_push: âRN,RP,f,I1,I2,L1,L2. + L1.â{I1} âª¤[RN, RP, â«¯f] L2.â{I2} â + L1 âª¤[RN, RP, f] L2 â§ RP L1 I1 I2. +#RN #RP #f #I1 #I2 #L1 #L2 #H elim (sex_inv_push1 â¦ H) -H +#I0 #L0 #HL10 #HI10 #H destruct /2 width=1 by conj/ +qed-. + +lemma sex_inv_tl: âRN,RP,f,I1,I2,L1,L2. L1 âª¤[RN, RP, â«±f] L2 â + RN L1 I1 I2 â RP L1 I1 I2 â + L1.â{I1} âª¤[RN, RP, f] L2.â{I2}. +#RN #RP #f #I1 #I2 #L2 #L2 elim (pn_split f) +/2 width=1 by sex_next, sex_push/ +qed-. + +(* Basic forward lemmas *****************************************************) + +lemma sex_fwd_bind: âRN,RP,f,I1,I2,L1,L2. + L1.â{I1} âª¤[RN, RP, f] L2.â{I2} â + L1 âª¤[RN, RP, â«±f] L2. +#RN #RP #f #I1 #I2 #L1 #L2 #Hf +elim (pn_split f) * #g #H destruct +[ elim (sex_inv_push â¦ Hf) | elim (sex_inv_next â¦ Hf) ] -Hf // +qed-. + +(* Basic properties *******************************************************) + +lemma sex_eq_repl_back: âRN,RP,L1,L2. eq_repl_back â¦ (Î»f. L1 âª¤[RN, RP, f] L2). +#RN #RP #L1 #L2 #f1 #H elim H -f1 -L1 -L2 // +#f1 #I1 #I2 #L1 #L2 #_ #HI #IH #f2 #H +[ elim (eq_inv_nx â¦ H) -H /3 width=3 by sex_next/ +| elim (eq_inv_px â¦ H) -H /3 width=3 by sex_push/ +] +qed-. + +lemma sex_eq_repl_fwd: âRN,RP,L1,L2. eq_repl_fwd â¦ (Î»f. L1 âª¤[RN, RP, f] L2). +#RN #RP #L1 #L2 @eq_repl_sym /2 width=3 by sex_eq_repl_back/ () (* full auto fails ) +qed-. + +lemma sex_refl: âRN,RP. c_reflexive â¦ RN â c_reflexive â¦ RP â + âf.reflexive â¦ (sex RN RP f). +#RN #RP #HRN #HRP #f #L generalize in match f; -f elim L -L // +#L #I #IH #f elim (pn_split f) +#g #H destruct /2 width=1 by sex_next, sex_push/ +qed. + +lemma sex_sym: âRN,RP. + (âL1,L2,I1,I2. RN L1 I1 I2 â RN L2 I2 I1) â + (âL1,L2,I1,I2. RP L1 I1 I2 â RP L2 I2 I1) â + âf. symmetric â¦ (sex RN RP f). +#RN #RP #HRN #HRP #f #L1 #L2 #H elim H -L1 -L2 -f +/3 width=2 by sex_next, sex_push/ +qed-. + +lemma sex_pair_repl: âRN,RP,f,I1,I2,L1,L2. + L1.â{I1} âª¤[RN, RP, f] L2.â{I2} â + âJ1,J2. RN L1 J1 J2 â RP L1 J1 J2 â + L1.â{J1} âª¤[RN, RP, f] L2.â{J2}. +/3 width=3 by sex_inv_tl, sex_fwd_bind/ qed-. + +lemma sex_co: âRN1,RP1,RN2,RP2. RN1 â RN2 â RP1 â RP2 â + âf,L1,L2. L1 âª¤[RN1, RP1, f] L2 â L1 âª¤[RN2, RP2, f] L2. +#RN1 #RP1 #RN2 #RP2 #HRN #HRP #f #L1 #L2 #H elim H -f -L1 -L2 +/3 width=1 by sex_atom, sex_next, sex_push/ +qed-. + +lemma sex_co_isid: âRN1,RP1,RN2,RP2. RP1 â RP2 â + âf,L1,L2. L1 âª¤[RN1, RP1, f] L2 â ðâ¦fâ¦ â + L1 âª¤[RN2, RP2, f] L2. +#RN1 #RP1 #RN2 #RP2 #HR #f #L1 #L2 #H elim H -f -L1 -L2 // +#f #I1 #I2 #K1 #K2 #_ #HI12 #IH #H +[ elim (isid_inv_next â¦ H) -H // +| /4 width=3 by sex_push, isid_inv_push/ +] +qed-. + +lemma sex_sdj: âRN,RP. RP â RN â + âf1,L1,L2. L1 âª¤[RN, RP, f1] L2 â + âf2. f1 â¥ f2 â L1 âª¤[RP, RN, f2] L2. +#RN #RP #HR #f1 #L1 #L2 #H elim H -f1 -L1 -L2 // +#f1 #I1 #I2 #L1 #L2 #_ #HI12 #IH #f2 #H12 +[ elim (sdj_inv_nx â¦ H12) -H12 [2,3: // ] + #g2 #H #H2 destruct /3 width=1 by sex_push/ +| elim (sdj_inv_px â¦ H12) -H12 [2,4: // ] * + #g2 #H #H2 destruct /3 width=1 by sex_next, sex_push/ +] +qed-. + +lemma sle_sex_trans: âRN,RP. RN â RP â + âf2,L1,L2. L1 âª¤[RN, RP, f2] L2 â + âf1. f1 â f2 â L1 âª¤[RN, RP, f1] L2. +#RN #RP #HR #f2 #L1 #L2 #H elim H -f2 -L1 -L2 // +#f2 #I1 #I2 #L1 #L2 #_ #HI12 #IH #f1 #H12 +[ elim (pn_split f1) * ] +[ /4 width=5 by sex_push, sle_inv_pn/ +| /4 width=5 by sex_next, sle_inv_nn/ +| elim (sle_inv_xp â¦ H12) -H12 [2,3: // ] + #g1 #H #H1 destruct /3 width=5 by sex_push/ +] +qed-. + +lemma sle_sex_conf: âRN,RP. RP â RN â + âf1,L1,L2. L1 âª¤[RN, RP, f1] L2 â + âf2. f1 â f2 â L1 âª¤[RN, RP, f2] L2. +#RN #RP #HR #f1 #L1 #L2 #H elim H -f1 -L1 -L2 // +#f1 #I1 #I2 #L1 #L2 #_ #HI12 #IH #f2 #H12 +[2: elim (pn_split f2) * ] +[ /4 width=5 by sex_push, sle_inv_pp/ +| /4 width=5 by sex_next, sle_inv_pn/ +| elim (sle_inv_nx â¦ H12) -H12 [2,3: // ] + #g2 #H #H2 destruct /3 width=5 by sex_next/ +] +qed-. + +lemma sex_sle_split: âR1,R2,RP. c_reflexive â¦ R1 â c_reflexive â¦ R2 â + âf,L1,L2. L1 âª¤[R1, RP, f] L2 â âg. f â g â + ââL. L1 âª¤[R1, RP, g] L & L âª¤[R2, cfull, f] L2. +#R1 #R2 #RP #HR1 #HR2 #f #L1 #L2 #H elim H -f -L1 -L2 +[ /2 width=3 by sex_atom, ex2_intro/ ] +#f #I1 #I2 #L1 #L2 #_ #HI12 #IH #y #H +[ elim (sle_inv_nx â¦ H ??) -H [ |: // ] #g #Hfg #H destruct + elim (IH â¦ Hfg) -IH -Hfg /3 width=5 by sex_next, ex2_intro/ +| elim (sle_inv_px â¦ H ??) -H [1,3: |: // ] #g #Hfg #H destruct + elim (IH â¦ Hfg) -IH -Hfg /3 width=5 by sex_next, sex_push, ex2_intro/ +] +qed-. + +lemma sex_sdj_split: âR1,R2,RP. c_reflexive â¦ R1 â c_reflexive â¦ R2 â + âf,L1,L2. L1 âª¤[R1, RP, f] L2 â âg. f â¥ g â + ââL. L1 âª¤[RP, R1, g] L & L âª¤[R2, cfull, f] L2. +#R1 #R2 #RP #HR1 #HR2 #f #L1 #L2 #H elim H -f -L1 -L2 +[ /2 width=3 by sex_atom, ex2_intro/ ] +#f #I1 #I2 #L1 #L2 #_ #HI12 #IH #y #H +[ elim (sdj_inv_nx â¦ H ??) -H [ |: // ] #g #Hfg #H destruct + elim (IH â¦ Hfg) -IH -Hfg /3 width=5 by sex_next, sex_push, ex2_intro/ +| elim (sdj_inv_px â¦ H ??) -H [1,3: * |: // ] #g #Hfg #H destruct + elim (IH â¦ Hfg) -IH -Hfg /3 width=5 by sex_next, sex_push, ex2_intro/ +] +qed-. + +lemma sex_dec: âRN,RP. + (âL,I1,I2. Decidable (RN L I1 I2)) â + (âL,I1,I2. Decidable (RP L I1 I2)) â + âL1,L2,f. Decidable (L1 âª¤[RN, RP, f] L2). +#RN #RP #HRN #HRP #L1 elim L1 -L1 [ | #L1 #I1 #IH * ] +[ /2 width=1 by sex_atom, or_introl/ +| #L2 #I2 #f @or_intror #H + lapply (sex_inv_atom1 â¦ H) -H #H destruct +| #f @or_intror #H + lapply (sex_inv_atom2 â¦ H) -H #H destruct +| #L2 #I2 #f elim (IH L2 (â«±f)) -IH #HL12 + [2: /4 width=3 by sex_fwd_bind, or_intror/ ] + elim (pn_split f) * #g #H destruct + [ elim (HRP L1 I1 I2) | elim (HRN L1 I1 I2) ] -HRP -HRN #HV12 + [1,3: /3 width=1 by sex_push, sex_next, or_introl/ ] + @or_intror #H + [ elim (sex_inv_push â¦ H) | elim (sex_inv_next â¦ H) ] -H + /2 width=1 by/ +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/sex_length.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/sex_length.ma new file mode 100644 index 000000000..a7b2a5d71 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/sex_length.ma @@ -0,0 +1,46 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/lenv_length.ma". +include "static_2/relocation/sex.ma". + +(* GENERIC ENTRYWISE EXTENSION OF CONTEXT-SENSITIVE REALTIONS FOR TERMS *****) + +(* Forward lemmas with length for local environments ************************) + +(* Note: "#f #I1 #I2 #L1 #L2 >length_bind >length_bind //" was needed to conclude ) +lemma sex_fwd_length: âRN,RP,f,L1,L2. L1 âª¤[RN, RP, f] L2 â |L1| = |L2|. +#RN #RP #f #L1 #L2 #H elim H -f -L1 -L2 // +qed-. + +( Properties with length for local environments ****************************) + +lemma sex_length_cfull: âL1,L2. |L1| = |L2| â âf. L1 âª¤[cfull, cfull, f] L2. +#L1 elim L1 -L1 +[ #Y2 #H >(length_inv_zero_sn â¦ H) -Y2 // +| #L1 #I1 #IH #Y2 #H #f + elim (length_inv_succ_sn â¦ H) -H #I2 #L2 #HL12 #H destruct + elim (pn_split f) * #g #H destruct /3 width=1 by sex_next, sex_push/ +] +qed. + +lemma sex_length_isid: âR,L1,L2. |L1| = |L2| â + âf. ðâ¦fâ¦ â L1 âª¤[R, cfull, f] L2. +#R #L1 elim L1 -L1 +[ #Y2 #H >(length_inv_zero_sn â¦ H) -Y2 // +| #L1 #I1 #IH #Y2 #H #f #Hf + elim (length_inv_succ_sn â¦ H) -H #I2 #L2 #HL12 #H destruct + elim (isid_inv_gen â¦ Hf) -Hf #g #Hg #H destruct /3 width=1 by sex_push/ +] +qed. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/sex_sex.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/sex_sex.ma new file mode 100644 index 000000000..571379e2f --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/sex_sex.ma @@ -0,0 +1,119 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/relocation/rtmap_sand.ma". +include "static_2/relocation/drops.ma". + +(* GENERIC ENTRYWISE EXTENSION OF CONTEXT-SENSITIVE REALTIONS FOR TERMS *****) + +(* Main properties **********************************************************) + +theorem sex_trans_gen (RN1) (RP1) (RN2) (RP2) (RN) (RP): + âL1,f. + (âg,I,K,n. â¬[n] L1 â K.â{I} â âg = â«±[n] f â sex_transitive RN1 RN2 RN RN1 RP1 g K I) â + (âg,I,K,n. â¬[n] L1 â K.â{I} â â«¯g = â«±[n] f â sex_transitive RP1 RP2 RP RN1 RP1 g K I) â + âL0. L1 âª¤[RN1, RP1, f] L0 â + âL2. L0 âª¤[RN2, RP2, f] L2 â + L1 âª¤[RN, RP, f] L2. +#RN1 #RP1 #RN2 #RP2 #RN #RP #L1 elim L1 -L1 +[ #f #_ #_ #L0 #H1 #L2 #H2 + lapply (sex_inv_atom1 â¦ H1) -H1 #H destruct + lapply (sex_inv_atom1 â¦ H2) -H2 #H destruct + /2 width=1 by sex_atom/ +| #K1 #I1 #IH #f elim (pn_split f) * #g #H destruct + #HN #HP #L0 #H1 #L2 #H2 + [ elim (sex_inv_push1 â¦ H1) -H1 #I0 #K0 #HK10 #HI10 #H destruct + elim (sex_inv_push1 â¦ H2) -H2 #I2 #K2 #HK02 #HI02 #H destruct + lapply (HP â¦ 0 â¦ HI10 â¦ HK10 â¦ HI02) -HI10 -HI02 /2 width=2 by drops_refl/ #HI12 + lapply (IH â¦ HK10 â¦ HK02) -IH -K0 /3 width=3 by sex_push, drops_drop/ + | elim (sex_inv_next1 â¦ H1) -H1 #I0 #K0 #HK10 #HI10 #H destruct + elim (sex_inv_next1 â¦ H2) -H2 #I2 #K2 #HK02 #HI02 #H destruct + lapply (HN â¦ 0 â¦ HI10 â¦ HK10 â¦ HI02) -HI10 -HI02 /2 width=2 by drops_refl/ #HI12 + lapply (IH â¦ HK10 â¦ HK02) -IH -K0 /3 width=3 by sex_next, drops_drop/ + ] +] +qed-. + +theorem sex_trans (RN) (RP) (f): (âg,I,K. sex_transitive RN RN RN RN RP g K I) â + (âg,I,K. sex_transitive RP RP RP RN RP g K I) â + Transitive â¦ (sex RN RP f). +/2 width=9 by sex_trans_gen/ qed-. + +theorem sex_trans_id_cfull: âR1,R2,R3,L1,L,f. L1 âª¤[R1, cfull, f] L â ðâ¦fâ¦ â + âL2. L âª¤[R2, cfull, f] L2 â L1 âª¤[R3, cfull, f] L2. +#R1 #R2 #R3 #L1 #L #f #H elim H -L1 -L -f +[ #f #Hf #L2 #H >(sex_inv_atom1 â¦ H) -L2 // ] +#f #I1 #I #K1 #K #HK1 #_ #IH #Hf #L2 #H +[ elim (isid_inv_next â¦ Hf) | lapply (isid_inv_push â¦ Hf ??) ] -Hf [5: |: // ] #Hf +elim (sex_inv_push1 â¦ H) -H #I2 #K2 #HK2 #_ #H destruct +/3 width=1 by sex_push/ +qed-. + +theorem sex_conf (RN1) (RP1) (RN2) (RP2): + âL,f. + (âg,I,K,n. â¬[n] L â K.â{I} â âg = â«±[n] f â R_pw_confluent2_sex RN1 RN2 RN1 RP1 RN2 RP2 g K I) â + (âg,I,K,n. â¬[n] L â K.â{I} â â«¯g = â«±[n] f â R_pw_confluent2_sex RP1 RP2 RN1 RP1 RN2 RP2 g K I) â + pw_confluent2 â¦ (sex RN1 RP1 f) (sex RN2 RP2 f) L. +#RN1 #RP1 #RN2 #RP2 #L elim L -L +[ #f #_ #_ #L1 #H1 #L2 #H2 >(sex_inv_atom1 â¦ H1) >(sex_inv_atom1 â¦ H2) -H2 -H1 + /2 width=3 by sex_atom, ex2_intro/ +| #L #I0 #IH #f elim (pn_split f) #g #H destruct + #HN #HP #Y1 #H1 #Y2 #H2 + [ elim (sex_inv_push1 â¦ H1) -H1 #I1 #L1 #HL1 #HI01 #H destruct + elim (sex_inv_push1 â¦ H2) -H2 #I2 #L2 #HL2 #HI02 #H destruct + elim (HP â¦ 0 â¦ HI01 â¦ HI02 â¦ HL1 â¦ HL2) -HI01 -HI02 /2 width=2 by drops_refl/ #I #HI1 #HI2 + elim (IH â¦ HL1 â¦ HL2) -IH -HL1 -HL2 /3 width=5 by drops_drop, sex_push, ex2_intro/ + | elim (sex_inv_next1 â¦ H1) -H1 #I1 #L1 #HL1 #HI01 #H destruct + elim (sex_inv_next1 â¦ H2) -H2 #I2 #L2 #HL2 #HI02 #H destruct + elim (HN â¦ 0 â¦ HI01 â¦ HI02 â¦ HL1 â¦ HL2) -HI01 -HI02 /2 width=2 by drops_refl/ #I #HI1 #HI2 + elim (IH â¦ HL1 â¦ HL2) -IH -HL1 -HL2 /3 width=5 by drops_drop, sex_next, ex2_intro/ + ] +] +qed-. + +theorem sex_canc_sn: âRN,RP,f. Transitive â¦ (sex RN RP f) â + symmetric â¦ (sex RN RP f) â + left_cancellable â¦ (sex RN RP f). +/3 width=3 by/ qed-. + +theorem sex_canc_dx: âRN,RP,f. Transitive â¦ (sex RN RP f) â + symmetric â¦ (sex RN RP f) â + right_cancellable â¦ (sex RN RP f). +/3 width=3 by/ qed-. + +lemma sex_meet: âRN,RP,L1,L2. + âf1. L1 âª¤[RN, RP, f1] L2 â + âf2. L1 âª¤[RN, RP, f2] L2 â + âf. f1 â f2 â f â L1 âª¤[RN, RP, f] L2. +#RN #RP #L1 #L2 #f1 #H elim H -f1 -L1 -L2 // +#f1 #I1 #I2 #L1 #L2 #_ #HI12 #IH #f2 #H #f #Hf +elim (pn_split f2) * #g2 #H2 destruct +try elim (sex_inv_push â¦ H) try elim (sex_inv_next â¦ H) -H +[ elim (sand_inv_npx â¦ Hf) | elim (sand_inv_nnx â¦ Hf) +| elim (sand_inv_ppx â¦ Hf) | elim (sand_inv_pnx â¦ Hf) +] -Hf /3 width=5 by sex_next, sex_push/ +qed-. + +lemma sex_join: âRN,RP,L1,L2. + âf1. L1 âª¤[RN, RP, f1] L2 â + âf2. L1 âª¤[RN, RP, f2] L2 â + âf. f1 â f2 â f â L1 âª¤[RN, RP, f] L2. +#RN #RP #L1 #L2 #f1 #H elim H -f1 -L1 -L2 // +#f1 #I1 #I2 #L1 #L2 #_ #HI12 #IH #f2 #H #f #Hf +elim (pn_split f2) * #g2 #H2 destruct +try elim (sex_inv_push â¦ H) try elim (sex_inv_next â¦ H) -H +[ elim (sor_inv_npx â¦ Hf) | elim (sor_inv_nnx â¦ Hf) +| elim (sor_inv_ppx â¦ Hf) | elim (sor_inv_pnx â¦ Hf) +] -Hf /3 width=5 by sex_next, sex_push/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/sex_tc.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/sex_tc.ma new file mode 100644 index 000000000..339ac98a7 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/sex_tc.ma @@ -0,0 +1,119 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/lib/star.ma". +include "static_2/relocation/sex.ma". + +(* GENERIC ENTRYWISE EXTENSION OF CONTEXT-SENSITIVE REALTIONS FOR TERMS *****) + +definition s_rs_transitive_isid: relation (relation3 lenv bind bind) â Î»RN,RP. + âf. ðâ¦fâ¦ â s_rs_transitive â¦ RP (Î»_.sex RN RP f). + +(* Properties with transitive closure ***************************************) + +lemma sex_tc_refl: âRN,RP. c_reflexive â¦ RN â c_reflexive â¦ RP â + âf. reflexive â¦ (TC â¦ (sex RN RP f)). +/3 width=1 by sex_refl, TC_reflexive/ qed. + +lemma sex_tc_next_sn: âRN,RP. c_reflexive â¦ RN â + âf,I2,L1,L2. TC â¦ (sex RN RP f) L1 L2 â âI1. RN L1 I1 I2 â + TC â¦ (sex RN RP (âf)) (L1.â{I1}) (L2.â{I2}). +#RN #RP #HRN #f #I2 #L1 #L2 #H @(TC_ind_dx ??????? H) -L1 +/3 width=3 by sex_next, TC_strap, inj/ +qed. + +lemma sex_tc_next_dx: âRN,RP. c_reflexive â¦ RN â c_reflexive â¦ RP â + âf,I1,I2,L1. (CTC â¦ RN) L1 I1 I2 â âL2. L1 âª¤[RN, RP, f] L2 â + TC â¦ (sex RN RP (âf)) (L1.â{I1}) (L2.â{I2}). +#RN #RP #HRN #HRP #f #I1 #I2 #L1 #H elim H -I2 +/4 width=5 by sex_refl, sex_next, step, inj/ +qed. + +lemma sex_tc_push_sn: âRN,RP. c_reflexive â¦ RP â + âf,I2,L1,L2. TC â¦ (sex RN RP f) L1 L2 â âI1. RP L1 I1 I2 â + TC â¦ (sex RN RP (â«¯f)) (L1.â{I1}) (L2.â{I2}). +#RN #RP #HRP #f #I2 #L1 #L2 #H @(TC_ind_dx ??????? H) -L1 +/3 width=3 by sex_push, TC_strap, inj/ +qed. + +lemma sex_tc_push_dx: âRN,RP. c_reflexive â¦ RN â c_reflexive â¦ RP â + âf,I1,I2,L1. (CTC â¦ RP) L1 I1 I2 â âL2. L1 âª¤[RN, RP, f] L2 â + TC â¦ (sex RN RP (â«¯f)) (L1.â{I1}) (L2.â{I2}). +#RN #RP #HRN #HRP #f #I1 #I2 #L1 #H elim H -I2 +/4 width=5 by sex_refl, sex_push, step, inj/ +qed. + +lemma sex_tc_inj_sn: âRN,RP,f,L1,L2. L1 âª¤[RN, RP, f] L2 â L1 âª¤[CTC â¦ RN, RP, f] L2. +#RN #RP #f #L1 #L2 #H elim H -f -L1 -L2 +/3 width=1 by sex_push, sex_next, inj/ +qed. + +lemma sex_tc_inj_dx: âRN,RP,f,L1,L2. L1 âª¤[RN, RP, f] L2 â L1 âª¤[RN, CTC â¦ RP, f] L2. +#RN #RP #f #L1 #L2 #H elim H -f -L1 -L2 +/3 width=1 by sex_push, sex_next, inj/ +qed. + +(* Main properties with transitive closure **********************************) + +theorem sex_tc_next: âRN,RP. c_reflexive â¦ RN â c_reflexive â¦ RP â + âf,I1,I2,L1. (CTC â¦ RN) L1 I1 I2 â âL2. TC â¦ (sex RN RP f) L1 L2 â + TC â¦ (sex RN RP (âf)) (L1.â{I1}) (L2.â{I2}). +#RN #RP #HRN #HRP #f #I1 #I2 #L1 #H elim H -I2 +/4 width=5 by sex_tc_next_sn, sex_tc_refl, trans_TC/ +qed. + +theorem sex_tc_push: âRN,RP. c_reflexive â¦ RN â c_reflexive â¦ RP â + âf,I1,I2,L1. (CTC â¦ RP) L1 I1 I2 â âL2. TC â¦ (sex RN RP f) L1 L2 â + TC â¦ (sex RN RP (â«¯f)) (L1.â{I1}) (L2.â{I2}). +#RN #RP #HRN #HRP #f #I1 #I2 #L1 #H elim H -I2 +/4 width=5 by sex_tc_push_sn, sex_tc_refl, trans_TC/ +qed. + +(* Basic_2A1: uses: TC_lpx_sn_ind ) +theorem sex_tc_step_dx: âRN,RP. s_rs_transitive_isid RN RP â + âf,L1,L. L1 âª¤[RN, RP, f] L â ðâ¦fâ¦ â + âL2. L âª¤[RN, CTC â¦ RP, f] L2 â L1âª¤ [RN, CTC â¦ RP, f] L2. +#RN #RP #HRP #f #L1 #L #H elim H -f -L1 -L +[ #f #_ #Y #H -HRP >(sex_inv_atom1 â¦ H) -Y // ] +#f #I1 #I #L1 #L #HL1 #HI1 #IH #Hf #Y #H +[ elim (isid_inv_next â¦ Hf) -Hf // +| lapply (isid_inv_push â¦ Hf ??) -Hf [3: |: // ] #Hf + elim (sex_inv_push1 â¦ H) -H #I2 #L2 #HL2 #HI2 #H destruct + @sex_push [ /2 width=1 by/ ] -L2 -IH + @(TC_strap â¦ HI1) -HI1 + @(HRP â¦ HL1) // (**) (* auto fails ) +] +qed-. + +( Advanced properties ******************************************************) + +lemma sex_tc_dx: âRN,RP. s_rs_transitive_isid RN RP â + âf. ðâ¦fâ¦ â âL1,L2. TC â¦ (sex RN RP f) L1 L2 â L1 âª¤[RN, CTC â¦ RP, f] L2. +#RN #RP #HRP #f #Hf #L1 #L2 #H @(TC_ind_dx ??????? H) -L1 +/3 width=3 by sex_tc_step_dx, sex_tc_inj_dx/ +qed. + +(* Advanced inversion lemmas ) + +lemma sex_inv_tc_sn: âRN,RP. c_reflexive â¦ RN â c_reflexive â¦ RP â + âf,L1,L2. L1 âª¤[CTC â¦ RN, RP, f] L2 â TC â¦ (sex RN RP f) L1 L2. +#RN #RP #HRN #HRP #f #L1 #L2 #H elim H -f -L1 -L2 +/2 width=1 by sex_tc_next, sex_tc_push_sn, sex_atom, inj/ +qed-. + +lemma sex_inv_tc_dx: âRN,RP. c_reflexive â¦ RN â c_reflexive â¦ RP â + âf,L1,L2. L1 âª¤[RN, CTC â¦ RP, f] L2 â TC â¦ (sex RN RP f) L1 L2. +#RN #RP #HRN #HRP #f #L1 #L2 #H elim H -f -L1 -L2 +/2 width=1 by sex_tc_push, sex_tc_next_sn, sex_atom, inj/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/s_computation/fqup.ma b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqup.ma new file mode 100644 index 000000000..51c5afc6a --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqup.ma @@ -0,0 +1,86 @@ +(**************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/lib/star.ma". +include "static_2/notation/relations/suptermplus_6.ma". +include "static_2/notation/relations/suptermplus_7.ma". +include "static_2/s_transition/fqu.ma". + +(* PLUS-ITERATED SUPCLOSURE *************************************************) + +definition fqup: bool â tri_relation genv lenv term â + Î»b. tri_TC â¦ (fqu b). + +interpretation "extended plus-iterated structural successor (closure)" + 'SupTermPlus b G1 L1 T1 G2 L2 T2 = (fqup b G1 L1 T1 G2 L2 T2). + +interpretation "plus-iterated structural successor (closure)" + 'SupTermPlus G1 L1 T1 G2 L2 T2 = (fqup true G1 L1 T1 G2 L2 T2). + +(* Basic properties *********************************************************) + +lemma fqu_fqup: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â + â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦. +/2 width=1 by tri_inj/ qed. + +lemma fqup_strap1: âb,G1,G,G2,L1,L,L2,T1,T,T2. + â¦G1, L1, T1â¦ â+[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ â[b] â¦G2, L2, T2â¦ â + â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦. +/2 width=5 by tri_step/ qed. + +lemma fqup_strap2: âb,G1,G,G2,L1,L,L2,T1,T,T2. + â¦G1, L1, T1â¦ â[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ â+[b] â¦G2, L2, T2â¦ â + â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦. +/2 width=5 by tri_TC_strap/ qed. + +lemma fqup_pair_sn: âb,I,G,L,V,T. â¦G, L, â¡{I}V.Tâ¦ â+[b] â¦G, L, Vâ¦. +/2 width=1 by fqu_pair_sn, fqu_fqup/ qed. + +lemma fqup_bind_dx: âb,p,I,G,L,V,T. â¦G, L, â{p,I}V.Tâ¦ â+[b] â¦G, L.â{I}V, Tâ¦. +/2 width=1 by fqu_bind_dx, fqu_fqup/ qed. + +lemma fqup_clear: âp,I,G,L,V,T. â¦G, L, â{p,I}V.Tâ¦ â+[â»] â¦G, L.â§, Tâ¦. +/3 width=1 by fqu_clear, fqu_fqup/ qed. + +lemma fqup_flat_dx: âb,I,G,L,V,T. â¦G, L, â{I}V.Tâ¦ â+[b] â¦G, L, Tâ¦. +/2 width=1 by fqu_flat_dx, fqu_fqup/ qed. + +lemma fqup_flat_dx_pair_sn: âb,I1,I2,G,L,V1,V2,T. â¦G, L, â{I1}V1.â¡{I2}V2.Tâ¦ â+[b] â¦G, L, V2â¦. +/2 width=5 by fqu_pair_sn, fqup_strap1/ qed. + +lemma fqup_bind_dx_flat_dx: âb,p,G,I1,I2,L,V1,V2,T. â¦G, L, â{p,I1}V1.â{I2}V2.Tâ¦ â+[b] â¦G, L.â{I1}V1, Tâ¦. +/2 width=5 by fqu_flat_dx, fqup_strap1/ qed. + +lemma fqup_flat_dx_bind_dx: âb,p,I1,I2,G,L,V1,V2,T. â¦G, L, â{I1}V1.â{p,I2}V2.Tâ¦ â+[b] â¦G, L.â{I2}V2, Tâ¦. +/2 width=5 by fqu_bind_dx, fqup_strap1/ qed. + +(* Basic eliminators ********************************************************) + +lemma fqup_ind: âb,G1,L1,T1. âQ:relation3 â¦. + (âG2,L2,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â Q G2 L2 T2) â + (âG,G2,L,L2,T,T2. â¦G1, L1, T1â¦ â+[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ â[b] â¦G2, L2, T2â¦ â Q G L T â Q G2 L2 T2) â + âG2,L2,T2. â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦ â Q G2 L2 T2. +#b #G1 #L1 #T1 #Q #IH1 #IH2 #G2 #L2 #T2 #H +@(tri_TC_ind â¦ IH1 IH2 G2 L2 T2 H) +qed-. + +lemma fqup_ind_dx: âb,G2,L2,T2. âQ:relation3 â¦. + (âG1,L1,T1. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â Q G1 L1 T1) â + (âG1,G,L1,L,T1,T. â¦G1, L1, T1â¦ â[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ â+[b] â¦G2, L2, T2â¦ â Q G L T â Q G1 L1 T1) â + âG1,L1,T1. â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦ â Q G1 L1 T1. +#b #G2 #L2 #T2 #Q #IH1 #IH2 #G1 #L1 #T1 #H +@(tri_TC_ind_dx â¦ IH1 IH2 G1 L1 T1 H) +qed-. + +(* Basic_2A1: removed theorems 1: fqup_drop *) diff --git a/matita/matita/contribs/lambdadelta/static_2/s_computation/fqup_drops.ma b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqup_drops.ma new file mode 100644 index 000000000..4eafa94d2 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqup_drops.ma @@ -0,0 +1,46 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/drops.ma". +include "static_2/s_computation/fqup.ma". + +(* PLUS-ITERATED SUPCLOSURE *************************************************) + +(* Properties with generic slicing for local environments *******************) + +lemma fqup_drops_succ: âb,G,K,T,i,L,U. â¬[âi] L â K â â¬[âi] T â U â + â¦G, L, Uâ¦ â+[b] â¦G, K, Tâ¦. +#b #G #K #T #i elim i -i +[ #L #U #HLK #HTU elim (drops_inv_succ â¦ HLK) -HLK + #I #Y #HY #H destruct <(drops_fwd_isid â¦ HY) -K // + /3 width=2 by fqu_fqup, fqu_drop/ +| #l #IH #L #U #HLK #HTU elim (drops_inv_succ â¦ HLK) -HLK + #I #Y #HY #H destruct + elim (lifts_split_trans â¦ HTU â¦ (ðâ´âlâµ) (ðâ´1âµ)) -HTU + /4 width=5 by fqup_strap2, fqu_drop/ +] +qed. + +lemma fqup_drops_strap1: âb,G1,G2,L1,K1,K2,T1,T2,U1,i. â¬[i] L1 â K1 â â¬[i] T1 â U1 â + â¦G1, K1, T1â¦ â[b] â¦G2, K2, T2â¦ â â¦G1, L1, U1â¦ â+[b] â¦G2, K2, T2â¦. +#b #G1 #G2 #L1 #K1 #K2 #T1 #T2 #U1 * +[ #HLK1 #HTU1 #HT12 + >(drops_fwd_isid â¦ HLK1) -L1 // + <(lifts_fwd_isid â¦ HTU1) -U1 /2 width=1 by fqu_fqup/ +| /3 width=5 by fqup_strap1, fqup_drops_succ/ +] +qed-. + +lemma fqup_lref: âb,I,G,L,K,V,i. â¬*[i] L â K.â{I}V â â¦G, L, #iâ¦ â+[b] â¦G, K, Vâ¦. +/2 width=6 by fqup_drops_strap1/ qed. diff --git a/matita/matita/contribs/lambdadelta/static_2/s_computation/fqup_fqup.ma b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqup_fqup.ma new file mode 100644 index 000000000..ab0b4fbf8 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqup_fqup.ma @@ -0,0 +1,22 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/s_computation/fqup.ma". + +(* PLUS-ITERATED SUPCLOSURE *************************************************) + +(* Main properties ) + +theorem fqup_trans: âb. tri_transitive â¦ (fqup b). +/2 width=5 by tri_TC_transitive/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/s_computation/fqup_weight.ma b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqup_weight.ma new file mode 100644 index 000000000..25a81dfa8 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqup_weight.ma @@ -0,0 +1,44 @@ +(****************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/s_transition/fqu_weight.ma". +include "static_2/s_computation/fqup.ma". + +(* PLUS-ITERATED SUPCLOSURE *************************************************) + +(* Forward lemmas with weight for closures **********************************) + +lemma fqup_fwd_fw: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦ â + â¯{G2, L2, T2} < â¯{G1, L1, T1}. +#b #G1 #G2 #L1 #L2 #T1 #T2 #H @(fqup_ind â¦ H) -G2 -L2 -T2 +/3 width=3 by fqu_fwd_fw, transitive_lt/ +qed-. + +(* Advanced eliminators *) + +lemma fqup_wf_ind: âb. âQ:relation3 â¦. ( + âG1,L1,T1. (âG2,L2,T2. â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦ â Q G2 L2 T2) â + Q G1 L1 T1 + ) â âG1,L1,T1. Q G1 L1 T1. +#b #Q #HQ @(f3_ind â¦ fw) #x #IHx #G1 #L1 #T1 #H destruct +/4 width=2 by fqup_fwd_fw/ +qed-. + +lemma fqup_wf_ind_eq: âb. âQ:relation3 â¦. ( + âG1,L1,T1. (âG2,L2,T2. â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦ â Q G2 L2 T2) â + âG2,L2,T2. G1 = G2 â L1 = L2 â T1 = T2 â Q G2 L2 T2 + ) â âG1,L1,T1. Q G1 L1 T1. +#b #Q #HQ @(f3_ind â¦ fw) #x #IHx #G1 #L1 #T1 #H destruct +/4 width=7 by fqup_fwd_fw/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/s_computation/fqus.ma b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqus.ma new file mode 100644 index 000000000..fb6a7ea7d --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqus.ma @@ -0,0 +1,166 @@ +(**********************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/lib/star.ma". +include "static_2/notation/relations/suptermstar_6.ma". +include "static_2/notation/relations/suptermstar_7.ma". +include "static_2/s_transition/fquq.ma". + +(* STAR-ITERATED SUPCLOSURE *************************************************) + +definition fqus: bool â tri_relation genv lenv term â + Î»b. tri_TC â¦ (fquq b). + +interpretation "extended star-iterated structural successor (closure)" + 'SupTermStar b G1 L1 T1 G2 L2 T2 = (fqus b G1 L1 T1 G2 L2 T2). + +interpretation "star-iterated structural successor (closure)" + 'SupTermStar G1 L1 T1 G2 L2 T2 = (fqus true G1 L1 T1 G2 L2 T2). + +(* Basic eliminators ********************************************************) + +lemma fqus_ind: âb,G1,L1,T1. âQ:relation3 â¦. Q G1 L1 T1 â + (âG,G2,L,L2,T,T2. â¦G1, L1, T1â¦ â[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ ââ¸®[b] â¦G2, L2, T2â¦ â Q G L T â Q G2 L2 T2) â + âG2,L2,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â Q G2 L2 T2. +#b #G1 #L1 #T1 #R #IH1 #IH2 #G2 #L2 #T2 #H +@(tri_TC_star_ind â¦ IH1 IH2 G2 L2 T2 H) // +qed-. + +lemma fqus_ind_dx: âb,G2,L2,T2. âQ:relation3 â¦. Q G2 L2 T2 â + (âG1,G,L1,L,T1,T. â¦G1, L1, T1â¦ ââ¸®[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ â[b] â¦G2, L2, T2â¦ â Q G L T â Q G1 L1 T1) â + âG1,L1,T1. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â Q G1 L1 T1. +#b #G2 #L2 #T2 #Q #IH1 #IH2 #G1 #L1 #T1 #H +@(tri_TC_star_ind_dx â¦ IH1 IH2 G1 L1 T1 H) // +qed-. + +(* Basic properties *********************************************************) + +lemma fqus_refl: âb. tri_reflexive â¦ (fqus b). +/2 width=1 by tri_inj/ qed. + +lemma fquq_fqus: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ ââ¸®[b] â¦G2, L2, T2â¦ â + â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦. +/2 width=1 by tri_inj/ qed. + +lemma fqus_strap1: âb,G1,G,G2,L1,L,L2,T1,T,T2. â¦G1, L1, T1â¦ â[b] â¦G, L, Tâ¦ â + â¦G, L, Tâ¦ ââ¸®[b] â¦G2, L2, T2â¦ â â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦. +/2 width=5 by tri_step/ qed-. + +lemma fqus_strap2: âb,G1,G,G2,L1,L,L2,T1,T,T2. â¦G1, L1, T1â¦ ââ¸®[b] â¦G, L, Tâ¦ â + â¦G, L, Tâ¦ â[b] â¦G2, L2, T2â¦ â â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦. +/2 width=5 by tri_TC_strap/ qed-. + +( Basic inversion lemmas ***************************************************) + +lemma fqus_inv_fqu_sn: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â + (â§â§ G1 = G2 & L1 = L2 & T1 = T2) â¨ + ââG,L,T. â¦G1, L1, T1â¦ â[b] â¦G, L, Tâ¦ & â¦G, L, Tâ¦ â[b] â¦G2, L2, T2â¦. +#b #G1 #G2 #L1 #L2 #T1 #T2 #H12 @(fqus_ind_dx â¦ H12) -G1 -L1 -T1 /3 width=1 by and3_intro, or_introl/ +#G1 #G #L1 #L #T1 #T * /3 width=5 by ex2_3_intro, or_intror/ +* #HG #HL #HT #_ destruct // +qed-. + +lemma fqus_inv_sort1: âb,G1,G2,L1,L2,T2,s. â¦G1, L1, âsâ¦ â[b] â¦G2, L2, T2â¦ â + (â§â§ G1 = G2 & L1 = L2 & âs = T2) â¨ + ââJ,L. â¦G1, L, âsâ¦ â[b] â¦G2, L2, T2â¦ & L1 = L.â{J}. +#b #G1 #G2 #L1 #L2 #T2 #s #H elim (fqus_inv_fqu_sn â¦ H) -H * /3 width=1 by and3_intro, or_introl/ +#G #L #T #H elim (fqu_inv_sort1 â¦ H) -H /3 width=4 by ex2_2_intro, or_intror/ +qed-. + +lemma fqus_inv_lref1: âb,G1,G2,L1,L2,T2,i. â¦G1, L1, #iâ¦ â[b] â¦G2, L2, T2â¦ â + â¨â¨ â§â§ G1 = G2 & L1 = L2 & #i = T2 + | ââJ,L,V. â¦G1, L, Vâ¦ â[b] â¦G2, L2, T2â¦ & L1 = L.â{J}V & i = 0 + | ââJ,L,j. â¦G1, L, #jâ¦ â[b] â¦G2, L2, T2â¦ & L1 = L.â{J} & i = âj. +#b #G1 #G2 #L1 #L2 #T2 #i #H elim (fqus_inv_fqu_sn â¦ H) -H /3 width=1 by and3_intro, or3_intro0/ +#G #L #T #H elim (fqu_inv_lref1 â¦ H) -H * /3 width=7 by or3_intro1, or3_intro2, ex3_4_intro, ex3_3_intro/ +qed-. + +lemma fqus_inv_gref1: âb,G1,G2,L1,L2,T2,l. â¦G1, L1, Â§lâ¦ â[b] â¦G2, L2, T2â¦ â + (â§â§ G1 = G2 & L1 = L2 & Â§l = T2) â¨ + ââJ,L. â¦G1, L, Â§lâ¦ â[b] â¦G2, L2, T2â¦ & L1 = L.â{J}. +#b #G1 #G2 #L1 #L2 #T2 #l #H elim (fqus_inv_fqu_sn â¦ H) -H * /3 width=1 by and3_intro, or_introl/ +#G #L #T #H elim (fqu_inv_gref1 â¦ H) -H /3 width=4 by ex2_2_intro, or_intror/ +qed-. + +lemma fqus_inv_bind1: âb,p,I,G1,G2,L1,L2,V1,T1,T2. â¦G1, L1, â{p,I}V1.T1â¦ â[b] â¦G2, L2, T2â¦ â + â¨â¨ â§â§ G1 = G2 & L1 = L2 & â{p,I}V1.T1 = T2 + | â¦G1, L1, V1â¦ â[b] â¦G2, L2, T2â¦ + | â¦G1, L1.â{I}V1, T1â¦ â[b] â¦G2, L2, T2â¦ + | â¦G1, L1.â§, T1â¦ â[b] â¦G2, L2, T2â¦ â§ b = â» + | ââJ,L,T. â¦G1, L, Tâ¦ â[b] â¦G2, L2, T2â¦ & â¬[1] T â â{p,I}V1.T1 & L1 = L.â{J}. +#b #p #I #G1 #G2 #L1 #L2 #V1 #T1 #T2 #H elim (fqus_inv_fqu_sn â¦ H) -H * /3 width=1 by and3_intro, or5_intro0/ +#G #L #T #H elim (fqu_inv_bind1 â¦ H) -H * +[4: #J ] #H1 #H2 #H3 [4: #Hb ] #H destruct +/3 width=6 by or5_intro1, or5_intro2, or5_intro3, or5_intro4, ex3_3_intro, conj/ +qed-. + + +lemma fqus_inv_bind1_true: âp,I,G1,G2,L1,L2,V1,T1,T2. â¦G1, L1, â{p,I}V1.T1â¦ â* â¦G2, L2, T2â¦ â + â¨â¨ â§â§ G1 = G2 & L1 = L2 & â{p,I}V1.T1 = T2 + | â¦G1, L1, V1â¦ â* â¦G2, L2, T2â¦ + | â¦G1, L1.â{I}V1, T1â¦ â* â¦G2, L2, T2â¦ + | ââJ,L,T. â¦G1, L, Tâ¦ â* â¦G2, L2, T2â¦ & â¬[1] T â â{p,I}V1.T1 & L1 = L.â{J}. +#p #I #G1 #G2 #L1 #L2 #V1 #T1 #T2 #H elim (fqus_inv_bind1 â¦ H) -H [1,4: ] +/3 width=1 by and3_intro, or4_intro0, or4_intro1, or4_intro2, or4_intro3, ex3_3_intro/ +#_ #H destruct +qed-. + +lemma fqus_inv_flat1: âb,I,G1,G2,L1,L2,V1,T1,T2. â¦G1, L1, â{I}V1.T1â¦ â[b] â¦G2, L2, T2â¦ â + â¨â¨ â§â§ G1 = G2 & L1 = L2 & â{I}V1.T1 = T2 + | â¦G1, L1, V1â¦ â[b] â¦G2, L2, T2â¦ + | â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ + | ââJ,L,T. â¦G1, L, Tâ¦ â[b] â¦G2, L2, T2â¦ & â¬[1] T â â{I}V1.T1 & L1 = L.â{J}. +#b #I #G1 #G2 #L1 #L2 #V1 #T1 #T2 #H elim (fqus_inv_fqu_sn â¦ H) -H /3 width=1 by and3_intro, or4_intro0/ +#G #L #T #H elim (fqu_inv_flat1 â¦ H) -H * +[3: #J ] #H1 #H2 #H3 #H destruct +/3 width=6 by or4_intro1, or4_intro2, or4_intro3, ex3_3_intro/ +qed-. + +(* Advanced inversion lemmas ************************************************) + +lemma fqus_inv_atom1: âb,I,G1,G2,L2,T2. â¦G1, â, âª{I}â¦ â[b] â¦G2, L2, T2â¦ â + â§â§ G1 = G2 & â = L2 & âª{I} = T2. +#b #I #G1 #G2 #L2 #T2 #H elim (fqus_inv_fqu_sn â¦ H) -H /2 width=1 by and3_intro/ +#G #L #T #H elim (fqu_inv_atom1 â¦ H) +qed-. + +lemma fqus_inv_sort1_bind: âb,I,G1,G2,L1,L2,T2,s. â¦G1, L1.â{I}, âsâ¦ â[b] â¦G2, L2, T2â¦ â + (â§â§ G1 = G2 & L1.â{I} = L2 & âs = T2) â¨ â¦G1, L1, âsâ¦ â[b] â¦G2, L2, T2â¦. +#b #I #G1 #G2 #L1 #L2 #T2 #s #H elim (fqus_inv_fqu_sn â¦ H) -H * /3 width=1 by and3_intro, or_introl/ +#G #L #T #H elim (fqu_inv_sort1_bind â¦ H) -H +#H1 #H2 #H3 #H destruct /2 width=1 by or_intror/ +qed-. + +lemma fqus_inv_zero1_pair: âb,I,G1,G2,L1,L2,V1,T2. â¦G1, L1.â{I}V1, #0â¦ â[b] â¦G2, L2, T2â¦ â + (â§â§ G1 = G2 & L1.â{I}V1 = L2 & #0 = T2) â¨ â¦G1, L1, V1â¦ â[b] â¦G2, L2, T2â¦. +#b #I #G1 #G2 #L1 #L2 #V1 #T2 #H elim (fqus_inv_fqu_sn â¦ H) -H * /3 width=1 by and3_intro, or_introl/ +#G #L #T #H elim (fqu_inv_zero1_pair â¦ H) -H +#H1 #H2 #H3 #H destruct /2 width=1 by or_intror/ +qed-. + +lemma fqus_inv_lref1_bind: âb,I,G1,G2,L1,L2,T2,i. â¦G1, L1.â{I}, #âiâ¦ â[b] â¦G2, L2, T2â¦ â + (â§â§ G1 = G2 & L1.â{I} = L2 & #(âi) = T2) â¨ â¦G1, L1, #iâ¦ â[b] â¦G2, L2, T2â¦. +#b #I #G1 #G2 #L1 #L2 #T2 #i #H elim (fqus_inv_fqu_sn â¦ H) -H * /3 width=1 by and3_intro, or_introl/ +#G #L #T #H elim (fqu_inv_lref1_bind â¦ H) -H +#H1 #H2 #H3 #H destruct /2 width=1 by or_intror/ +qed-. + +lemma fqus_inv_gref1_bind: âb,I,G1,G2,L1,L2,T2,l. â¦G1, L1.â{I}, Â§lâ¦ â[b] â¦G2, L2, T2â¦ â + (â§â§ G1 = G2 & L1.â{I} = L2 & Â§l = T2) â¨ â¦G1, L1, Â§lâ¦ â[b] â¦G2, L2, T2â¦. +#b #I #G1 #G2 #L1 #L2 #T2 #l #H elim (fqus_inv_fqu_sn â¦ H) -H * /3 width=1 by and3_intro, or_introl/ +#G #L #T #H elim (fqu_inv_gref1_bind â¦ H) -H +#H1 #H2 #H3 #H destruct /2 width=1 by or_intror/ +qed-. + +(* Basic_2A1: removed theorems 1: fqus_drop *) diff --git a/matita/matita/contribs/lambdadelta/static_2/s_computation/fqus_drops.ma b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqus_drops.ma new file mode 100644 index 000000000..0d2797139 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqus_drops.ma @@ -0,0 +1,26 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/s_computation/fqup_drops.ma". +include "static_2/s_computation/fqus_fqup.ma". + +(* STAR-ITERATED SUPCLOSURE *************************************************) + +(* Properties with generic slicing for local environments *******************) + +lemma fqus_drops: âb,G,L,K,T,U,i. â¬[i] L â K â â¬[i] T â U â + â¦G, L, Uâ¦ â[b] â¦G, K, Tâ¦. +#b #G #L #K #T #U /3 width=3 by fqup_drops_succ, fqup_fqus/ +#HLK #HTU <(lifts_fwd_isid â¦ HTU) -U // <(drops_fwd_isid â¦ HLK) -K // +qed. diff --git a/matita/matita/contribs/lambdadelta/static_2/s_computation/fqus_fqup.ma b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqus_fqup.ma new file mode 100644 index 000000000..05a450dae --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqus_fqup.ma @@ -0,0 +1,74 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/s_computation/fqup.ma". +include "static_2/s_computation/fqus.ma". + +(* STAR-ITERATED SUPCLOSURE *************************************************) + +(* Alternative definition with plus-iterated supclosure *********************) + +lemma fqup_fqus: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦ â â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦. +#b #G1 #G2 #L1 #L2 #T1 #T2 #H @(fqup_ind â¦ H) -G2 -L2 -T2 +/3 width=5 by fqus_strap1, fquq_fqus, fqu_fquq/ +qed. + +( Basic_2A1: was: fqus_inv_gen ) +lemma fqus_inv_fqup: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â + â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦ â¨ (â§â§ G1 = G2 & L1 = L2 & T1 = T2). +#b #G1 #G2 #L1 #L2 #T1 #T2 #H @(fqus_ind â¦ H) -G2 -L2 -T2 // +#G #G2 #L #L2 #T #T2 #_ * +[ #H2 * /3 width=5 by fqup_strap1, or_introl/ + * /3 width=1 by fqu_fqup, or_introl/ +| * #HG #HL #HT destruct // +] +qed-. + +(* Advanced properties ******************************************************) + +lemma fqus_strap1_fqu: âb,G1,G,G2,L1,L,L2,T1,T,T2. â¦G1, L1, T1â¦ â[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ â[b] â¦G2, L2, T2â¦ â + â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦. +#b #G1 #G #G2 #L1 #L #L2 #T1 #T #T2 #H1 #H2 elim (fqus_inv_fqup â¦ H1) -H1 +[ /2 width=5 by fqup_strap1/ +| /2 width=1 by fqu_fqup/ +] +qed-. + +lemma fqus_strap2_fqu: âb,G1,G,G2,L1,L,L2,T1,T,T2. â¦G1, L1, T1â¦ â[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ â[b] â¦G2, L2, T2â¦ â + â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦. +#b #G1 #G #G2 #L1 #L #L2 #T1 #T #T2 #H1 #H2 elim (fqus_inv_fqup â¦ H2) -H2 +[ /2 width=5 by fqup_strap2/ +| /2 width=1 by fqu_fqup/ +] +qed-. + +lemma fqus_fqup_trans: âb,G1,G,G2,L1,L,L2,T1,T,T2. â¦G1, L1, T1â¦ â[b] â¦G, L, Tâ¦ â â¦G, L, Tâ¦ â+[b] â¦G2, L2, T2â¦ â + â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦. +#b #G1 #G #G2 #L1 #L #L2 #T1 #T #T2 #H1 #H2 @(fqup_ind â¦ H2) -H2 -G2 -L2 -T2 +/2 width=5 by fqus_strap1_fqu, fqup_strap1/ +qed-. + +lemma fqup_fqus_trans: âb,G1,G,G2,L1,L,L2,T1,T,T2. â¦G1, L1, T1â¦ â+[b] â¦G, L, Tâ¦ â + â¦G, L, Tâ¦ â[b] â¦G2, L2, T2â¦ â â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦. +#b #G1 #G #G2 #L1 #L #L2 #T1 #T #T2 #H1 @(fqup_ind_dx â¦ H1) -H1 -G1 -L1 -T1 +/3 width=5 by fqus_strap2_fqu, fqup_strap2/ +qed-. + +(* Advanced inversion lemmas for plus-iterated supclosure *******************) + +lemma fqup_inv_step_sn: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â+[b] â¦G2, L2, T2â¦ â + ââG,L,T. â¦G1, L1, T1â¦ â[b] â¦G, L, Tâ¦ & â¦G, L, Tâ¦ â[b] â¦G2, L2, T2â¦. +#b #G1 #G2 #L1 #L2 #T1 #T2 #H @(fqup_ind_dx â¦ H) -G1 -L1 -T1 /2 width=5 by ex2_3_intro/ +#G1 #G #L1 #L #T1 #T #H1 #_ /4 width=9 by fqus_strap2, fqu_fquq, ex2_3_intro/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/s_computation/fqus_fqus.ma b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqus_fqus.ma new file mode 100644 index 000000000..02e42e19b --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqus_fqus.ma @@ -0,0 +1,22 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/s_computation/fqus.ma". + +(* STAR-ITERATED SUPCLOSURE *************************************************) + +(* Main properties ) + +theorem fqus_trans: âb. tri_transitive â¦ (fqus b). +/2 width=5 by tri_TC_transitive/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/s_computation/fqus_weight.ma b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqus_weight.ma new file mode 100644 index 000000000..f94366706 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/s_computation/fqus_weight.ma @@ -0,0 +1,35 @@ +(****************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/s_transition/fquq_weight.ma". +include "static_2/s_computation/fqus.ma". + +(* STAR-ITERATED SUPCLOSURE *************************************************) + +(* Forward lemmas with weight for closures **********************************) + +lemma fqus_fwd_fw: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â + â¯{G2, L2, T2} â¤ â¯{G1, L1, T1}. +#b #G1 #G2 #L1 #L2 #T1 #T2 #H @(fqus_ind â¦ H) -L2 -T2 +/3 width=3 by fquq_fwd_fw, transitive_le/ +qed-. + +( Advanced inversion lemmas ************************************************) + +lemma fqus_inv_refl_atom3: âb,I,G,L,X. â¦G, L, âª{I}â¦ â[b] â¦G, L, Xâ¦ â âª{I} = X. +#b #I #G #L #X #H elim (fqus_inv_fqu_sn â¦ H) -H // +#G0 #L0 #T0 #H1 #H2 lapply (fqu_fwd_fw â¦ H1) lapply (fqus_fwd_fw â¦ H2) -H2 -H1 +#H2 #H1 lapply (le_to_lt_to_lt â¦ H2 H1) -G0 -L0 -T0 +#H elim (lt_le_false â¦ H) -H /2 width=1 by monotonic_le_plus_r/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/s_transition/fqu.ma b/matita/matita/contribs/lambdadelta/static_2/s_transition/fqu.ma new file mode 100644 index 000000000..b834566d3 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/s_transition/fqu.ma @@ -0,0 +1,201 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/relations/supterm_6.ma". +include "static_2/notation/relations/supterm_7.ma". +include "static_2/syntax/lenv.ma". +include "static_2/syntax/genv.ma". +include "static_2/relocation/lifts.ma". + +(* SUPCLOSURE ***************************************************************) + +(* activate genv ) +( Note: frees_total requires fqu_drop for all atoms + fqu_cpx_trans requires fqu_drop for all terms + frees_fqus_drops requires fqu_drop restricted on atoms +) +inductive fqu (b:bool): tri_relation genv lenv term â +| fqu_lref_O : âI,G,L,V. fqu b G (L.â{I}V) (#0) G L V +| fqu_pair_sn: âI,G,L,V,T. fqu b G L (â¡{I}V.T) G L V +| fqu_bind_dx: âp,I,G,L,V,T. fqu b G L (â{p,I}V.T) G (L.â{I}V) T +| fqu_clear : âp,I,G,L,V,T. b = â» â fqu b G L (â{p,I}V.T) G (L.â§) T +| fqu_flat_dx: âI,G,L,V,T. fqu b G L (â{I}V.T) G L T +| fqu_drop : âI,G,L,T,U. â¬[1] T â U â fqu b G (L.â{I}) U G L T +. + +interpretation + "extended structural successor (closure)" + 'SupTerm b G1 L1 T1 G2 L2 T2 = (fqu b G1 L1 T1 G2 L2 T2). + +interpretation + "structural successor (closure)" + 'SupTerm G1 L1 T1 G2 L2 T2 = (fqu true G1 L1 T1 G2 L2 T2). + +(* Basic properties *********************************************************) + +lemma fqu_sort: âb,I,G,L,s. â¦G, L.â{I}, âsâ¦ â[b] â¦G, L, âsâ¦. +/2 width=1 by fqu_drop/ qed. + +lemma fqu_lref_S: âb,I,G,L,i. â¦G, L.â{I}, #âiâ¦ â[b] â¦G, L, #iâ¦. +/2 width=1 by fqu_drop/ qed. + +lemma fqu_gref: âb,I,G,L,l. â¦G, L.â{I}, Â§lâ¦ â[b] â¦G, L, Â§lâ¦. +/2 width=1 by fqu_drop/ qed. + +(* Basic inversion lemmas ***************************************************) + +fact fqu_inv_sort1_aux: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â + âs. T1 = âs â + ââJ. G1 = G2 & L1 = L2.â{J} & T2 = âs. +#b #G1 #G2 #L1 #L2 #T1 #T2 * -G1 -G2 -L1 -L2 -T1 -T2 +[ #I #G #L #T #s #H destruct +| #I #G #L #V #T #s #H destruct +| #p #I #G #L #V #T #s #H destruct +| #p #I #G #L #V #T #_ #s #H destruct +| #I #G #L #V #T #s #H destruct +| #I #G #L #T #U #HI12 #s #H destruct + lapply (lifts_inv_sort2 â¦ HI12) -HI12 /2 width=2 by ex3_intro/ +] +qed-. + +lemma fqu_inv_sort1: âb,G1,G2,L1,L2,T2,s. â¦G1, L1, âsâ¦ â[b] â¦G2, L2, T2â¦ â + ââJ. G1 = G2 & L1 = L2.â{J} & T2 = âs. +/2 width=4 by fqu_inv_sort1_aux/ qed-. + +fact fqu_inv_lref1_aux: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â + âi. T1 = #i â + (ââJ,V. G1 = G2 & L1 = L2.â{J}V & T2 = V & i = 0) â¨ + ââJ,j. G1 = G2 & L1 = L2.â{J} & T2 = #j & i = âj. +#b #G1 #G2 #L1 #L2 #T1 #T2 * -G1 -G2 -L1 -L2 -T1 -T2 +[ #I #G #L #T #i #H destruct /3 width=4 by ex4_2_intro, or_introl/ +| #I #G #L #V #T #i #H destruct +| #p #I #G #L #V #T #i #H destruct +| #p #I #G #L #V #T #_ #i #H destruct +| #I #G #L #V #T #i #H destruct +| #I #G #L #T #U #HI12 #i #H destruct + elim (lifts_inv_lref2_uni â¦ HI12) -HI12 /3 width=3 by ex4_2_intro, or_intror/ +] +qed-. + +lemma fqu_inv_lref1: âb,G1,G2,L1,L2,T2,i. â¦G1, L1, #iâ¦ â[b] â¦G2, L2, T2â¦ â + (ââJ,V. G1 = G2 & L1 = L2.â{J}V & T2 = V & i = 0) â¨ + ââJ,j. G1 = G2 & L1 = L2.â{J} & T2 = #j & i = âj. +/2 width=4 by fqu_inv_lref1_aux/ qed-. + +fact fqu_inv_gref1_aux: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â + âl. T1 = Â§l â + ââJ. G1 = G2 & L1 = L2.â{J} & T2 = Â§l. +#b #G1 #G2 #L1 #L2 #T1 #T2 * -G1 -G2 -L1 -L2 -T1 -T2 +[ #I #G #L #T #l #H destruct +| #I #G #L #V #T #l #H destruct +| #p #I #G #L #V #T #l #H destruct +| #p #I #G #L #V #T #_ #l #H destruct +| #I #G #L #V #T #s #H destruct +| #I #G #L #T #U #HI12 #l #H destruct + lapply (lifts_inv_gref2 â¦ HI12) -HI12 /2 width=3 by ex3_intro/ +] +qed-. + +lemma fqu_inv_gref1: âb,G1,G2,L1,L2,T2,l. â¦G1, L1, Â§lâ¦ â[b] â¦G2, L2, T2â¦ â + ââJ. G1 = G2 & L1 = L2.â{J} & T2 = Â§l. +/2 width=4 by fqu_inv_gref1_aux/ qed-. + +fact fqu_inv_bind1_aux: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â + âp,I,V1,U1. T1 = â{p,I}V1.U1 â + â¨â¨ â§â§ G1 = G2 & L1 = L2 & V1 = T2 + | â§â§ G1 = G2 & L1.â{I}V1 = L2 & U1 = T2 + | â§â§ G1 = G2 & L1.â§ = L2 & U1 = T2 & b = â» + | ââJ. G1 = G2 & L1 = L2.â{J} & â¬[1] T2 â â{p,I}V1.U1. +#b #G1 #G2 #L1 #L2 #T1 #T2 -G1 -G2 -L1 -L2 -T1 -T2 +[ #I #G #L #T #q #J #V0 #U0 #H destruct +| #I #G #L #V #T #q #J #V0 #U0 #H destruct /3 width=1 by and3_intro, or4_intro0/ +| #p #I #G #L #V #T #q #J #V0 #U0 #H destruct /3 width=1 by and3_intro, or4_intro1/ +| #p #I #G #L #V #T #Hb #q #J #V0 #U0 #H destruct /3 width=1 by and4_intro, or4_intro2/ +| #I #G #L #V #T #q #J #V0 #U0 #H destruct +| #I #G #L #T #U #HTU #q #J #V0 #U0 #H destruct /3 width=2 by or4_intro3, ex3_intro/ +] +qed-. + +lemma fqu_inv_bind1: âb,p,I,G1,G2,L1,L2,V1,U1,T2. â¦G1, L1, â{p,I}V1.U1â¦ â[b] â¦G2, L2, T2â¦ â + â¨â¨ â§â§ G1 = G2 & L1 = L2 & V1 = T2 + | â§â§ G1 = G2 & L1.â{I}V1 = L2 & U1 = T2 + | â§â§ G1 = G2 & L1.â§ = L2 & U1 = T2 & b = â» + | ââJ. G1 = G2 & L1 = L2.â{J} & â¬[1] T2 â â{p,I}V1.U1. +/2 width=4 by fqu_inv_bind1_aux/ qed-. + +lemma fqu_inv_bind1_true: âp,I,G1,G2,L1,L2,V1,U1,T2. â¦G1, L1, â{p,I}V1.U1â¦ â â¦G2, L2, T2â¦ â + â¨â¨ â§â§ G1 = G2 & L1 = L2 & V1 = T2 + | â§â§ G1 = G2 & L1.â{I}V1 = L2 & U1 = T2 + | ââJ. G1 = G2 & L1 = L2.â{J} & â¬[1] T2 â â{p,I}V1.U1. +#p #I #G1 #G2 #L1 #L2 #V1 #U1 #T2 #H elim (fqu_inv_bind1 â¦ H) -H +/3 width=1 by or3_intro0, or3_intro1, or3_intro2/ +* #_ #_ #_ #H destruct +qed-. + +fact fqu_inv_flat1_aux: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â + âI,V1,U1. T1 = â{I}V1.U1 â + â¨â¨ â§â§ G1 = G2 & L1 = L2 & V1 = T2 + | â§â§ G1 = G2 & L1 = L2 & U1 = T2 + | ââJ. G1 = G2 & L1 = L2.â{J} & â¬[1] T2 â â{I}V1.U1. +#b #G1 #G2 #L1 #L2 #T1 #T2 -G1 -G2 -L1 -L2 -T1 -T2 +[ #I #G #L #T #J #V0 #U0 #H destruct +| #I #G #L #V #T #J #V0 #U0 #H destruct /3 width=1 by and3_intro, or3_intro0/ +| #p #I #G #L #V #T #J #V0 #U0 #H destruct +| #p #I #G #L #V #T #_ #J #V0 #U0 #H destruct +| #I #G #L #V #T #J #V0 #U0 #H destruct /3 width=1 by and3_intro, or3_intro1/ +| #I #G #L #T #U #HTU #J #V0 #U0 #H destruct /3 width=2 by or3_intro2, ex3_intro/ +] +qed-. + +lemma fqu_inv_flat1: âb,I,G1,G2,L1,L2,V1,U1,T2. â¦G1, L1, â{I}V1.U1â¦ â[b] â¦G2, L2, T2â¦ â + â¨â¨ â§â§ G1 = G2 & L1 = L2 & V1 = T2 + | â§â§ G1 = G2 & L1 = L2 & U1 = T2 + | ââJ. G1 = G2 & L1 = L2.â{J} & â¬[1] T2 â â{I}V1.U1. +/2 width=4 by fqu_inv_flat1_aux/ qed-. + +( Advanced inversion lemmas ************************************************) + +lemma fqu_inv_atom1: âb,I,G1,G2,L2,T2. â¦G1, â, âª{I}â¦ â[b] â¦G2, L2, T2â¦ â â¥. +#b * #x #G1 #G2 #L2 #T2 #H +[ elim (fqu_inv_sort1 â¦ H) | elim (fqu_inv_lref1 â¦ H) * | elim (fqu_inv_gref1 â¦ H) ] -H +#I [2: #V |3: #i ] #_ #H destruct +qed-. + +lemma fqu_inv_sort1_bind: âb,I,G1,G2,K,L2,T2,s. â¦G1, K.â{I}, âsâ¦ â[b] â¦G2, L2, T2â¦ â + â§â§ G1 = G2 & L2 = K & T2 = âs. +#b #I #G1 #G2 #K #L2 #T2 #s #H elim (fqu_inv_sort1 â¦ H) -H +#Z #X #H1 #H2 destruct /2 width=1 by and3_intro/ +qed-. + +lemma fqu_inv_zero1_pair: âb,I,G1,G2,K,L2,V,T2. â¦G1, K.â{I}V, #0â¦ â[b] â¦G2, L2, T2â¦ â + â§â§ G1 = G2 & L2 = K & T2 = V. +#b #I #G1 #G2 #K #L2 #V #T2 #H elim (fqu_inv_lref1 â¦ H) -H * +#Z #X #H1 #H2 #H3 #H4 destruct /2 width=1 by and3_intro/ +qed-. + +lemma fqu_inv_lref1_bind: âb,I,G1,G2,K,L2,T2,i. â¦G1, K.â{I}, #(âi)â¦ â[b] â¦G2, L2, T2â¦ â + â§â§ G1 = G2 & L2 = K & T2 = #i. +#b #I #G1 #G2 #K #L2 #T2 #i #H elim (fqu_inv_lref1 â¦ H) -H * +#Z #X #H1 #H2 #H3 #H4 destruct /2 width=1 by and3_intro/ +qed-. + +lemma fqu_inv_gref1_bind: âb,I,G1,G2,K,L2,T2,l. â¦G1, K.â{I}, Â§lâ¦ â[b] â¦G2, L2, T2â¦ â + â§â§ G1 = G2 & L2 = K & T2 = Â§l. +#b #I #G1 #G2 #K #L2 #T2 #l #H elim (fqu_inv_gref1 â¦ H) -H +#Z #H1 #H2 #H3 destruct /2 width=1 by and3_intro/ +qed-. + +(* Basic_2A1: removed theorems 3: + fqu_drop fqu_drop_lt fqu_lref_S_lt +*) diff --git a/matita/matita/contribs/lambdadelta/static_2/s_transition/fqu_length.ma b/matita/matita/contribs/lambdadelta/static_2/s_transition/fqu_length.ma new file mode 100644 index 000000000..2cfea06b8 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/s_transition/fqu_length.ma @@ -0,0 +1,31 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/lenv_length.ma". +include "static_2/s_transition/fqu.ma". + +(* SUPCLOSURE ***************************************************************) + +(* Forward lemmas with length for local environments ) + +fact fqu_fwd_length_lref1_aux: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â + âi. T1 = #i â |L2| < |L1|. +#b #G1 #G2 #L1 #L2 #T1 #T2 #H elim H -G1 -G2 -L1 -L2 -T1 -T2 // [2,3: #p] +#I #G #L #V #T [2: #_ ] #j #H destruct +qed-. + +lemma fqu_fwd_length_lref1: âb,G1,G2,L1,L2,T2,i. â¦G1, L1, #iâ¦ â[b] â¦G2, L2, T2â¦ â + |L2| < |L1|. +/2 width=8 by fqu_fwd_length_lref1_aux/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/s_transition/fqu_tdeq.ma b/matita/matita/contribs/lambdadelta/static_2/s_transition/fqu_tdeq.ma new file mode 100644 index 000000000..7deebbc61 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/s_transition/fqu_tdeq.ma @@ -0,0 +1,36 @@ +(**************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/tdeq.ma". +include "static_2/s_transition/fqu_length.ma". + +(* SUPCLOSURE ***************************************************************) + +(* Inversion lemmas with context-free degree-based equivalence for terms ****) + +fact fqu_inv_tdeq_aux: âh,o,b,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â + G1 = G2 â |L1| = |L2| â T1 â[h, o] T2 â â¥. +#h #o #b #G1 #G2 #L1 #L2 #T1 #T2 * -G1 -G2 -L1 -L2 -T1 -T2 +[1: #I #G #L #V #_ #H elim (succ_inv_refl_sn â¦ H) +|6: #I #G #L #T #U #_ #_ #H elim (succ_inv_refl_sn â¦ H) +] +/2 width=6 by tdeq_inv_pair_xy_y, tdeq_inv_pair_xy_x/ +qed-. + +(* Basic_2A1: uses: fqu_inv_eq *) +lemma fqu_inv_tdeq: âh,o,b,G,L1,L2,T1,T2. â¦G, L1, T1â¦ â[b] â¦G, L2, T2â¦ â + |L1| = |L2| â T1 â[h, o] T2 â â¥. +#h #o #b #G #L1 #L2 #T1 #T2 #H +@(fqu_inv_tdeq_aux â¦ H) // (**) (* full auto fails *) +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/s_transition/fqu_weight.ma b/matita/matita/contribs/lambdadelta/static_2/s_transition/fqu_weight.ma new file mode 100644 index 000000000..365f5c2db --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/s_transition/fqu_weight.ma @@ -0,0 +1,37 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/cl_weight.ma". +include "static_2/relocation/lifts_weight.ma". +include "static_2/s_transition/fqu.ma". + +(* SUPCLOSURE ***************************************************************) + +(* Forward lemmas with weight for closures **********************************) + +lemma fqu_fwd_fw: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â + â¯{G2, L2, T2} < â¯{G1, L1, T1}. +#b #G1 #G2 #L1 #L2 #T1 #T2 #H elim H -G1 -G2 -L1 -L2 -T1 -T2 // +#I #I1 #I2 #G #L #HI12 normalize in â¢ (?%%); -I1 +<(lifts_fwd_tw â¦ HI12) /3 width=1 by monotonic_lt_plus_r, monotonic_lt_plus_l/ +qed-. + +(* Advanced eliminators *) + +lemma fqu_wf_ind: âb. âQ:relation3 â¦. ( + âG1,L1,T1. (âG2,L2,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â Q G2 L2 T2) â + Q G1 L1 T1 + ) â âG1,L1,T1. Q G1 L1 T1. +#b #Q #HQ @(f3_ind â¦ fw) #x #IHx #G1 #L1 #T1 #H destruct /4 width=2 by fqu_fwd_fw/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/s_transition/fquq.ma b/matita/matita/contribs/lambdadelta/static_2/s_transition/fquq.ma new file mode 100644 index 000000000..fc36281aa --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/s_transition/fquq.ma @@ -0,0 +1,46 @@ +(**********************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/relations/suptermopt_6.ma". +include "static_2/notation/relations/suptermopt_7.ma". +include "static_2/s_transition/fqu.ma". + +(* OPTIONAL SUPCLOSURE ******************************************************) + +(* Basic_2A1: was: fquqa ) +( Basic_2A1: includes: fquq_inv_gen ) +definition fquq: bool â tri_relation genv lenv term â + Î»b. tri_RC â¦ (fqu b). + +interpretation + "extended optional structural successor (closure)" + 'SupTermOpt b G1 L1 T1 G2 L2 T2 = (fquq b G1 L1 T1 G2 L2 T2). + +interpretation + "optional structural successor (closure)" + 'SupTermOpt G1 L1 T1 G2 L2 T2 = (fquq true G1 L1 T1 G2 L2 T2). + +( Basic properties *********************************************************) + +(* Basic_2A1: includes: fquqa_refl ) +lemma fquq_refl: âb. tri_reflexive â¦ (fquq b). +// qed. + +lemma fqu_fquq: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[b] â¦G2, L2, T2â¦ â â¦G1, L1, T1â¦ ââ¸®[b] â¦G2, L2, T2â¦. +/2 width=1 by or_introl/ qed. + +( Basic_2A1: removed theorems 8: + fquq_lref_O fquq_pair_sn fquq_bind_dx fquq_flat_dx fquq_drop + fquqa_drop fquq_fquqa fquqa_inv_fquq +*) diff --git a/matita/matita/contribs/lambdadelta/static_2/s_transition/fquq_length.ma b/matita/matita/contribs/lambdadelta/static_2/s_transition/fquq_length.ma new file mode 100644 index 000000000..08a70b7c3 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/s_transition/fquq_length.ma @@ -0,0 +1,26 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/s_transition/fqu_length.ma". +include "static_2/s_transition/fquq.ma". + +(* OPTIONAL SUPCLOSURE ******************************************************) + +(* Forward lemmas with length for local environments ************************) + +lemma fquq_fwd_length_lref1: âb,G1,G2,L1,L2,T2,i. â¦G1, L1, #iâ¦ ââ¸®[b] â¦G2, L2, T2â¦ â + |L2| â¤ |L1|. +#b #G1 #G2 #L1 #L2 #T2 #i #H elim H -H [2: * ] +/3 width=6 by fqu_fwd_length_lref1, lt_to_le/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/s_transition/fquq_weight.ma b/matita/matita/contribs/lambdadelta/static_2/s_transition/fquq_weight.ma new file mode 100644 index 000000000..8a8ef78a7 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/s_transition/fquq_weight.ma @@ -0,0 +1,26 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/s_transition/fqu_weight.ma". +include "static_2/s_transition/fquq.ma". + +(* OPTIONAL SUPCLOSURE ******************************************************) + +(* Forward lemmas with weight for closures **********************************) + +lemma fquq_fwd_fw: âb,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ ââ¸®[b] â¦G2, L2, T2â¦ â + â¯{G2, L2, T2} â¤ â¯{G1, L1, T1}. +#b #G1 #G2 #L1 #L2 #T1 #T2 #H elim H -H [2: * ] +/3 width=2 by fqu_fwd_fw, lt_to_le/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/aaa.ma b/matita/matita/contribs/lambdadelta/static_2/static/aaa.ma new file mode 100644 index 000000000..b7e9ca046 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/aaa.ma @@ -0,0 +1,168 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/relations/atomicarity_4.ma". +include "static_2/syntax/aarity.ma". +include "static_2/syntax/lenv.ma". +include "static_2/syntax/genv.ma". + +(* ATONIC ARITY ASSIGNMENT FOR TERMS ****************************************) + +(* activate genv ) +inductive aaa: relation4 genv lenv term aarity â +| aaa_sort: âG,L,s. aaa G L (âs) (âª) +| aaa_zero: âI,G,L,V,B. aaa G L V B â aaa G (L.â{I}V) (#0) B +| aaa_lref: âI,G,L,A,i. aaa G L (#i) A â aaa G (L.â{I}) (#âi) A +| aaa_abbr: âp,G,L,V,T,B,A. + aaa G L V B â aaa G (L.âV) T A â aaa G L (â{p}V.T) A +| aaa_abst: âp,G,L,V,T,B,A. + aaa G L V B â aaa G (L.âV) T A â aaa G L (â{p}V.T) (â¡B.A) +| aaa_appl: âG,L,V,T,B,A. aaa G L V B â aaa G L T (â¡B.A) â aaa G L (âV.T) A +| aaa_cast: âG,L,V,T,A. aaa G L V A â aaa G L T A â aaa G L (âV.T) A +. + +interpretation "atomic arity assignment (term)" + 'AtomicArity G L T A = (aaa G L T A). + +( Basic inversion lemmas ***************************************************) + +fact aaa_inv_sort_aux: âG,L,T,A. â¦G, Lâ¦ â¢ T â A â âs. T = âs â A = âª. +#G #L #T #A * -G -L -T -A // +[ #I #G #L #V #B #_ #s #H destruct +| #I #G #L #A #i #_ #s #H destruct +| #p #G #L #V #T #B #A #_ #_ #s #H destruct +| #p #G #L #V #T #B #A #_ #_ #s #H destruct +| #G #L #V #T #B #A #_ #_ #s #H destruct +| #G #L #V #T #A #_ #_ #s #H destruct +] +qed-. + +lemma aaa_inv_sort: âG,L,A,s. â¦G, Lâ¦ â¢ âs â A â A = âª. +/2 width=6 by aaa_inv_sort_aux/ qed-. + +fact aaa_inv_zero_aux: âG,L,T,A. â¦G, Lâ¦ â¢ T â A â T = #0 â + ââI,K,V. L = K.â{I}V & â¦G, Kâ¦ â¢ V â A. +#G #L #T #A * -G -L -T -A /2 width=5 by ex2_3_intro/ +[ #G #L #s #H destruct +| #I #G #L #A #i #_ #H destruct +| #p #G #L #V #T #B #A #_ #_ #H destruct +| #p #G #L #V #T #B #A #_ #_ #H destruct +| #G #L #V #T #B #A #_ #_ #H destruct +| #G #L #V #T #A #_ #_ #H destruct +] +qed-. + +lemma aaa_inv_zero: âG,L,A. â¦G, Lâ¦ â¢ #0 â A â + ââI,K,V. L = K.â{I}V & â¦G, Kâ¦ â¢ V â A. +/2 width=3 by aaa_inv_zero_aux/ qed-. + +fact aaa_inv_lref_aux: âG,L,T,A. â¦G, Lâ¦ â¢ T â A â âi. T = #(âi) â + ââI,K. L = K.â{I} & â¦G, Kâ¦ â¢ #i â A. +#G #L #T #A * -G -L -T -A +[ #G #L #s #j #H destruct +| #I #G #L #V #B #_ #j #H destruct +| #I #G #L #A #i #HA #j #H destruct /2 width=4 by ex2_2_intro/ +| #p #G #L #V #T #B #A #_ #_ #j #H destruct +| #p #G #L #V #T #B #A #_ #_ #j #H destruct +| #G #L #V #T #B #A #_ #_ #j #H destruct +| #G #L #V #T #A #_ #_ #j #H destruct +] +qed-. + +lemma aaa_inv_lref: âG,L,A,i. â¦G, Lâ¦ â¢ #âi â A â + ââI,K. L = K.â{I} & â¦G, Kâ¦ â¢ #i â A. +/2 width=3 by aaa_inv_lref_aux/ qed-. + +fact aaa_inv_gref_aux: âG,L,T,A. â¦G, Lâ¦ â¢ T â A â âl. T = Â§l â â¥. +#G #L #T #A * -G -L -T -A +[ #G #L #s #k #H destruct +| #I #G #L #V #B #_ #k #H destruct +| #I #G #L #A #i #_ #k #H destruct +| #p #G #L #V #T #B #A #_ #_ #k #H destruct +| #p #G #L #V #T #B #A #_ #_ #k #H destruct +| #G #L #V #T #B #A #_ #_ #k #H destruct +| #G #L #V #T #A #_ #_ #k #H destruct +] +qed-. + +lemma aaa_inv_gref: âG,L,A,l. â¦G, Lâ¦ â¢ Â§l â A â â¥. +/2 width=7 by aaa_inv_gref_aux/ qed-. + +fact aaa_inv_abbr_aux: âG,L,T,A. â¦G, Lâ¦ â¢ T â A â âp,W,U. T = â{p}W.U â + ââB. â¦G, Lâ¦ â¢ W â B & â¦G, L.âWâ¦ â¢ U â A. +#G #L #T #A * -G -L -T -A +[ #G #L #s #q #W #U #H destruct +| #I #G #L #V #B #_ #q #W #U #H destruct +| #I #G #L #A #i #_ #q #W #U #H destruct +| #p #G #L #V #T #B #A #HV #HT #q #W #U #H destruct /2 width=2 by ex2_intro/ +| #p #G #L #V #T #B #A #_ #_ #q #W #U #H destruct +| #G #L #V #T #B #A #_ #_ #q #W #U #H destruct +| #G #L #V #T #A #_ #_ #q #W #U #H destruct +] +qed-. + +lemma aaa_inv_abbr: âp,G,L,V,T,A. â¦G, Lâ¦ â¢ â{p}V.T â A â + ââB. â¦G, Lâ¦ â¢ V â B & â¦G, L.âVâ¦ â¢ T â A. +/2 width=4 by aaa_inv_abbr_aux/ qed-. + +fact aaa_inv_abst_aux: âG,L,T,A. â¦G, Lâ¦ â¢ T â A â âp,W,U. T = â{p}W.U â + ââB1,B2. â¦G, Lâ¦ â¢ W â B1 & â¦G, L.âWâ¦ â¢ U â B2 & A = â¡B1.B2. +#G #L #T #A * -G -L -T -A +[ #G #L #s #q #W #U #H destruct +| #I #G #L #V #B #_ #q #W #U #H destruct +| #I #G #L #A #i #_ #q #W #U #H destruct +| #p #G #L #V #T #B #A #_ #_ #q #W #U #H destruct +| #p #G #L #V #T #B #A #HV #HT #q #W #U #H destruct /2 width=5 by ex3_2_intro/ +| #G #L #V #T #B #A #_ #_ #q #W #U #H destruct +| #G #L #V #T #A #_ #_ #q #W #U #H destruct +] +qed-. + +lemma aaa_inv_abst: âp,G,L,W,T,A. â¦G, Lâ¦ â¢ â{p}W.T â A â + ââB1,B2. â¦G, Lâ¦ â¢ W â B1 & â¦G, L.âWâ¦ â¢ T â B2 & A = â¡B1.B2. +/2 width=4 by aaa_inv_abst_aux/ qed-. + +fact aaa_inv_appl_aux: âG,L,T,A. â¦G, Lâ¦ â¢ T â A â âW,U. T = âW.U â + ââB. â¦G, Lâ¦ â¢ W â B & â¦G, Lâ¦ â¢ U â â¡B.A. +#G #L #T #A * -G -L -T -A +[ #G #L #s #W #U #H destruct +| #I #G #L #V #B #_ #W #U #H destruct +| #I #G #L #A #i #_ #W #U #H destruct +| #p #G #L #V #T #B #A #_ #_ #W #U #H destruct +| #p #G #L #V #T #B #A #_ #_ #W #U #H destruct +| #G #L #V #T #B #A #HV #HT #W #U #H destruct /2 width=3 by ex2_intro/ +| #G #L #V #T #A #_ #_ #W #U #H destruct +] +qed-. + +lemma aaa_inv_appl: âG,L,V,T,A. â¦G, Lâ¦ â¢ âV.T â A â + ââB. â¦G, Lâ¦ â¢ V â B & â¦G, Lâ¦ â¢ T â â¡B.A. +/2 width=3 by aaa_inv_appl_aux/ qed-. + +fact aaa_inv_cast_aux: âG,L,T,A. â¦G, Lâ¦ â¢ T â A â âW,U. T = âW.U â + â¦G, Lâ¦ â¢ W â A â§ â¦G, Lâ¦ â¢ U â A. +#G #L #T #A * -G -L -T -A +[ #G #L #s #W #U #H destruct +| #I #G #L #V #B #_ #W #U #H destruct +| #I #G #L #A #i #_ #W #U #H destruct +| #p #G #L #V #T #B #A #_ #_ #W #U #H destruct +| #p #G #L #V #T #B #A #_ #_ #W #U #H destruct +| #G #L #V #T #B #A #_ #_ #W #U #H destruct +| #G #L #V #T #A #HV #HT #W #U #H destruct /2 width=1 by conj/ +] +qed-. + +lemma aaa_inv_cast: âG,L,W,T,A. â¦G, Lâ¦ â¢ âW.T â A â + â¦G, Lâ¦ â¢ W â A â§ â¦G, Lâ¦ â¢ T â A. +/2 width=3 by aaa_inv_cast_aux/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/aaa_aaa.ma b/matita/matita/contribs/lambdadelta/static_2/static/aaa_aaa.ma new file mode 100644 index 000000000..15b4fe4e1 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/aaa_aaa.ma @@ -0,0 +1,38 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/aaa.ma". + +(* ATONIC ARITY ASSIGNMENT ON TERMS *****************************************) + +(* Main inversion lemmas ) + +theorem aaa_mono: âG,L,T,A1. â¦G, Lâ¦ â¢ T â A1 â âA2. â¦G, Lâ¦ â¢ T â A2 â A1 = A2. +#G #L #T #A1 #H elim H -G -L -T -A1 +[ #G #L #s #A2 #H >(aaa_inv_sort â¦ H) -H // +| #I1 #G #L #V1 #B #_ #IH #A2 #H + elim (aaa_inv_zero â¦ H) -H #I2 #K2 #V2 #H #HA2 destruct /2 width=1 by/ +| #I1 #G #L #B #i #_ #IH #A2 #H + elim (aaa_inv_lref â¦ H) -H #I2 #K2 #H #HA2 destruct /2 width=1 by/ +| #p #G #L #V #T #B1 #A1 #_ #_ #_ #IH #A2 #H + elim (aaa_inv_abbr â¦ H) -H /2 width=1 by/ +| #p #G #L #V1 #T1 #B1 #A1 #_ #_ #IHB1 #IHA1 #X #H + elim (aaa_inv_abst â¦ H) -H #B2 #A2 #HB2 #HA2 #H destruct /3 width=1 by eq_f2/ +| #G #L #V1 #T1 #B1 #A1 #_ #_ #_ #IHA1 #A2 #H + elim (aaa_inv_appl â¦ H) -H #B2 #_ #HA2 + lapply (IHA1 â¦ HA2) -L #H destruct // +| #G #L #V #T #A1 #_ #_ #_ #IHA1 #A2 #H + elim (aaa_inv_cast â¦ H) -H /2 width=1 by/ +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/aaa_drops.ma b/matita/matita/contribs/lambdadelta/static_2/static/aaa_drops.ma new file mode 100644 index 000000000..1cc311ddf --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/aaa_drops.ma @@ -0,0 +1,123 @@ +(**********************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/drops_drops.ma". +include "static_2/s_computation/fqup_weight.ma". +include "static_2/s_computation/fqup_drops.ma". +include "static_2/static/aaa.ma". + +(* ATONIC ARITY ASSIGNMENT ON TERMS *****************************************) + +(* Advanced properties ******************************************************) + +(* Basic_2A1: was: aaa_lref ) +lemma aaa_lref_drops: âI,G,K,V,B,i,L. â¬[i] L â K.â{I}V â â¦G, Kâ¦ â¢ V â B â â¦G, Lâ¦ â¢ #i â B. +#I #G #K #V #B #i elim i -i +[ #L #H lapply (drops_fwd_isid â¦ H ?) -H // + #H destruct /2 width=1 by aaa_zero/ +| #i #IH #L (lifts_inv_sort1 â¦ HX) -HX // +| #i1 #HG #HL #HT #A #H #b #f #L2 #HL21 #X #HX + elim (aaa_inv_lref_drops â¦ H) -H #J #K1 #V1 #HLK1 #HA + elim (lifts_inv_lref1 â¦ HX) -HX #i2 #Hf #H destruct + lapply (drops_trans â¦ HL21 â¦ HLK1 ??) -HL21 [1,2: // ] #H + elim (drops_split_trans â¦ H) -H [ |: /2 width=6 by after_uni_dx/ ] #Y #HLK2 #HY + lapply (drops_tls_at â¦ Hf â¦ HY) -HY #HY -Hf + elim (drops_inv_skip2 â¦ HY) -HY #Z #K2 #HK21 #HZ #H destruct + elim (liftsb_inv_pair_sn â¦ HZ) -HZ #V2 #HV12 #H destruct + /4 width=12 by aaa_lref_drops, fqup_lref, drops_inv_gen/ +| #l #HG #HL #HT #A #H #b #f #L2 #HL21 #X #HX -b -f -IH + elim (aaa_inv_gref â¦ H) +| #p #V1 #T1 #HG #HL #HT #A #H #b #f #L2 #HL21 #X #HX + [ elim (aaa_inv_abbr â¦ H) -H #B #HB #HA + elim (lifts_inv_bind1 â¦ HX) -HX #V2 #T2 #HV12 #HT12 #H destruct + /5 width=9 by aaa_abbr, drops_skip, ext2_pair/ + | elim (aaa_inv_abst â¦ H) -H #B #A0 #HB #HA #H0 + elim (lifts_inv_bind1 â¦ HX) -HX #V2 #T2 #HV12 #HT12 #H destruct + /5 width=8 by aaa_abst, drops_skip, ext2_pair/ + ] +| * #V1 #T1 #HG #HL #HT #A #H #b #f #L2 #HL21 #X #HX + [ elim (aaa_inv_appl â¦ H) -H #B #HB #HA + elim (lifts_inv_flat1 â¦ HX) -HX #V2 #T2 #HV12 #HT12 #H destruct + /3 width=10 by aaa_appl/ + | elim (aaa_inv_cast â¦ H) -H #H1A #H2A + elim (lifts_inv_flat1 â¦ HX) -HX #V2 #T2 #HV12 #HT12 #H destruct + /3 width=8 by aaa_cast/ + ] +] +qed-. + +(* Inversion lemmas with generic slicing for local environments *************) + +(* Basic_2A1: includes: aaa_inv_lift ) +lemma aaa_inv_lifts: âG,L2,T2,A. â¦G, L2â¦ â¢ T2 â A â âb,f,L1. â¬[b, f] L2 â L1 â + âT1. â¬[f] T1 â T2 â â¦G, L1â¦ â¢ T1 â A. +@(fqup_wf_ind_eq (â)) #G0 #L0 #T0 #IH #G #L2 * +[ #s #HG #HL #HT #A #H #b #f #L1 #HL21 #X #HX -b -IH + lapply (aaa_inv_sort â¦ H) -H #H destruct + >(lifts_inv_sort2 â¦ HX) -HX // +| #i2 #HG #HL #HT #A #H #b #f #L1 #HL21 #X #HX + elim (aaa_inv_lref_drops â¦ H) -H #J #K2 #V2 #HLK2 #HA + elim (lifts_inv_lref2 â¦ HX) -HX #i1 #Hf #H destruct + lapply (drops_split_div â¦ HL21 (ðâ´i1âµ) ???) -HL21 [4: * |: // ] #Y #HLK1 #HY + lapply (drops_conf â¦ HLK2 â¦ HY ??) -HY [1,2: /2 width=6 by after_uni_dx/ ] #HY + lapply (drops_tls_at â¦ Hf â¦ HY) -HY #HY -Hf + elim (drops_inv_skip1 â¦ HY) -HY #Z #K1 #HK21 #HZ #H destruct + elim (liftsb_inv_pair_dx â¦ HZ) -HZ #V1 #HV12 #H destruct + /4 width=12 by aaa_lref_drops, fqup_lref, drops_inv_F/ +| #l #HG #HL #HT #A #H #b #f #L1 #HL21 #X #HX -IH -b -f + elim (aaa_inv_gref â¦ H) +| #p #V2 #T2 #HG #HL #HT #A #H #b #f #L1 #HL21 #X #HX + [ elim (aaa_inv_abbr â¦ H) -H #B #HB #HA + elim (lifts_inv_bind2 â¦ HX) -HX #V1 #T1 #HV12 #HT12 #H destruct + /5 width=9 by aaa_abbr, drops_skip, ext2_pair/ + | elim (aaa_inv_abst â¦ H) -H #B #A0 #HB #HA #H0 + elim (lifts_inv_bind2 â¦ HX) -HX #V1 #T1 #HV12 #HT12 #H destruct + /5 width=8 by aaa_abst, drops_skip, ext2_pair/ + ] +| * #V2 #T2 #HG #HL #HT #A #H #b #f #L1 #HL21 #X #HX + [ elim (aaa_inv_appl â¦ H) -H #B #HB #HA + elim (lifts_inv_flat2 â¦ HX) -HX #V1 #T1 #HV12 #HT12 #H destruct + /3 width=10 by aaa_appl/ + | elim (aaa_inv_cast â¦ H) -H #H1A #H2A + elim (lifts_inv_flat2 â¦ HX) -HX #V1 #T1 #HV12 #HT12 #H destruct + /3 width=8 by aaa_cast/ + ] +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/aaa_fdeq.ma b/matita/matita/contribs/lambdadelta/static_2/static/aaa_fdeq.ma new file mode 100644 index 000000000..4572fda32 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/aaa_fdeq.ma @@ -0,0 +1,25 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/fdeq.ma". +include "static_2/static/aaa_rdeq.ma". + +(* ATONIC ARITY ASSIGNMENT ON TERMS *****************************************) + +(* Properties with degree-based equivalence on referred entries *************) + +lemma aaa_fdeq_conf: âh,o,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[h, o] â¦G2, L2, T2â¦ â + âA. â¦G1, L1â¦ â¢ T1 â A â â¦G2, L2â¦ â¢ T2 â A. +#h #o #G1 #G2 #L1 #L2 #T1 #T2 * -G2 -L2 -T2 +/2 width=7 by aaa_tdeq_conf_rdeq/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/aaa_fqus.ma b/matita/matita/contribs/lambdadelta/static_2/static/aaa_fqus.ma new file mode 100644 index 000000000..f02455f9f --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/aaa_fqus.ma @@ -0,0 +1,63 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/s_computation/fqus_fqup.ma". +include "static_2/static/aaa_drops.ma". + +(* ATONIC ARITY ASSIGNMENT ON TERMS *****************************************) + +(* Properties on supclosure *************************************************) + +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_zero â¦ H) -H + #J #K #V #H #HA destruct /2 width=2 by ex_intro/ +| * [ #p ] * #G #L #V #T #X #H + [ elim (aaa_inv_abbr â¦ H) + | elim (aaa_inv_abst â¦ H) + | elim (aaa_inv_appl â¦ H) + | elim (aaa_inv_cast â¦ H) + ] -H /2 width=2 by ex_intro/ +| #p * #G #L #V #T #X #H + [ elim (aaa_inv_abbr â¦ H) + | elim (aaa_inv_abst â¦ H) + ] -H /2 width=2 by ex_intro/ +| #p #I #G #L #V #T #H destruct +| * #G #L #V #T #X #H + [ elim (aaa_inv_appl â¦ H) + | elim (aaa_inv_cast â¦ H) + ] -H /2 width=2 by ex_intro/ +| /5 width=8 by aaa_inv_lifts, drops_refl, drops_drop, ex_intro/ +] +qed-. + +lemma aaa_fquq_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 -H /2 width=6 by aaa_fqu_conf/ +* #H1 #H2 #H3 destruct /2 width=2 by ex_intro/ +qed-. + +lemma aaa_fqup_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 @(fqup_ind â¦ H) -G2 -L2 -T2 +[2: #G #G2 #L #L2 #T #T2 #_ #H2 #IH1 #A #HA elim (IH1 â¦ HA) -IH1 -A ] +/2 width=6 by aaa_fqu_conf/ +qed-. + +lemma aaa_fqus_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(fqus_inv_fqup â¦ H) -H /2 width=6 by aaa_fqup_conf/ +* #H1 #H2 #H3 destruct /2 width=2 by ex_intro/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/aaa_rdeq.ma b/matita/matita/contribs/lambdadelta/static_2/static/aaa_rdeq.ma new file mode 100644 index 000000000..23760c8bd --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/aaa_rdeq.ma @@ -0,0 +1,45 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/rdeq.ma". +include "static_2/static/aaa.ma". + +(* ATONIC ARITY ASSIGNMENT ON TERMS *****************************************) + +(* Properties with degree-based equivalence on referred entries *) + +lemma aaa_tdeq_conf_rdeq: âh,o,G,L1,T1,A. â¦G, L1â¦ â¢ T1 â A â âT2. T1 â[h, o] T2 â + âL2. L1 â[h, o, T1] L2 â â¦G, L2â¦ â¢ T2 â A. +#h #o #G #L1 #T1 #A #H elim H -G -L1 -T1 -A +[ #G #L1 #s1 #X #H1 elim (tdeq_inv_sort1 â¦ H1) -H1 // +| #I #G #L1 #V1 #B #_ #IH #X #H1 >(tdeq_inv_lref1 â¦ H1) -H1 + #Y #H2 elim (rdeq_inv_zero_pair_sn â¦ H2) -H2 + #L2 #V2 #HL12 #HV12 #H destruct /3 width=1 by aaa_zero/ +| #I #G #L1 #A #i #_ #IH #X #H1 >(tdeq_inv_lref1 â¦ H1) -H1 + #Y #H2 elim (rdeq_inv_lref_bind_sn â¦ H2) -H2 + #J #L2 #HL12 #H destruct /3 width=1 by aaa_lref/ +| #p #G #L1 #V1 #T1 #B #A #_ #_ #IHV #IHT #X #H1 elim (tdeq_inv_pair1 â¦ H1) -H1 + #V2 #T2 #HV12 #HT12 #H #L2 #H2 elim (rdeq_inv_bind â¦ H2) -H2 destruct + /5 width=2 by aaa_abbr, rdeq_bind_repl_dx, ext2_pair/ +| #p #G #L1 #V1 #T1 #B #A #_ #_ #IHV #IHT #X #H1 elim (tdeq_inv_pair1 â¦ H1) -H1 + #V2 #T2 #HV12 #HT12 #H #L2 #H2 elim (rdeq_inv_bind â¦ H2) -H2 destruct + /5 width=2 by aaa_abst, rdeq_bind_repl_dx, ext2_pair/ +| #G #L1 #V1 #T1 #B #A #_ #_ #IHV #IHT #X #H1 elim (tdeq_inv_pair1 â¦ H1) -H1 + #V2 #T2 #HV12 #HT12 #H #L2 #H2 elim (rdeq_inv_flat â¦ H2) -H2 destruct + /3 width=3 by aaa_appl/ +| #G #L1 #V1 #T1 #A #_ #_ #IHV #IHT #X #H1 elim (tdeq_inv_pair1 â¦ H1) -H1 + #V2 #T2 #HV12 #HT12 #H #L2 #H2 elim (rdeq_inv_flat â¦ H2) -H2 destruct + /3 width=1 by aaa_cast/ +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/fdeq.ma b/matita/matita/contribs/lambdadelta/static_2/static/fdeq.ma new file mode 100644 index 000000000..25427895c --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/fdeq.ma @@ -0,0 +1,52 @@ +(**************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/relations/stareqsn_8.ma". +include "static_2/syntax/genv.ma". +include "static_2/static/rdeq.ma". + +(* DEGREE-BASED EQUIVALENCE FOR CLOSURES ON REFERRED ENTRIES ****************) + +inductive fdeq (h) (o) (G) (L1) (T1): relation3 genv lenv term â +| fdeq_intro_sn: âL2,T2. L1 â[h, o, T1] L2 â T1 â[h, o] T2 â + fdeq h o G L1 T1 G L2 T2 +. + +interpretation + "degree-based equivalence on referred entries (closure)" + 'StarEqSn h o G1 L1 T1 G2 L2 T2 = (fdeq h o G1 L1 T1 G2 L2 T2). + +(* Basic_properties *********************************************************) + +lemma fdeq_intro_dx (h) (o) (G): âL1,L2,T2. L1 â[h, o, T2] L2 â + âT1. T1 â[h, o] T2 â â¦G, L1, T1â¦ â[h, o] â¦G, L2, T2â¦. +/3 width=3 by fdeq_intro_sn, tdeq_rdeq_div/ qed. + +(* Basic inversion lemmas ***************************************************) + +lemma fdeq_inv_gen_sn: âh,o,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[h, o] â¦G2, L2, T2â¦ â + â§â§ G1 = G2 & L1 â[h, o, T1] L2 & T1 â[h, o] T2. +#h #o #G1 #G2 #L1 #L2 #T1 #T2 * -G2 -L2 -T2 /2 width=1 by and3_intro/ +qed-. + +lemma fdeq_inv_gen_dx: âh,o,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[h, o] â¦G2, L2, T2â¦ â + â§â§ G1 = G2 & L1 â[h, o, T2] L2 & T1 â[h, o] T2. +#h #o #G1 #G2 #L1 #L2 #T1 #T2 * -G2 -L2 -T2 +/3 width=3 by tdeq_rdeq_conf, and3_intro/ +qed-. + +(* Basic_2A1: removed theorems 6: + fleq_refl fleq_sym fleq_inv_gen + fleq_trans fleq_canc_sn fleq_canc_dx +*) diff --git a/matita/matita/contribs/lambdadelta/static_2/static/fdeq_fdeq.ma b/matita/matita/contribs/lambdadelta/static_2/static/fdeq_fdeq.ma new file mode 100644 index 000000000..729185985 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/fdeq_fdeq.ma @@ -0,0 +1,52 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/rdeq_rdeq.ma". +include "static_2/static/fdeq.ma". + +(* DEGREE-BASED EQUIVALENCE FOR CLOSURES ON REFERRED ENTRIES ****************) + +(* Advanced properties ******************************************************) + +lemma fdeq_sym: âh,o. tri_symmetric â¦ (fdeq h o). +#h #o #G1 #G2 #L1 #L2 #T1 #T2 * -G1 -L1 -T1 +/3 width=1 by fdeq_intro_dx, rdeq_sym, tdeq_sym/ +qed-. + +(* Main properties **********************************************************) + +theorem fdeq_trans: âh,o. tri_transitive â¦ (fdeq h o). +#h #o #G1 #G #L1 #L #T1 #T * -G -L -T +#L #T #HL1 #HT1 #G2 #L2 #T2 * -G2 -L2 -T2 +/4 width=5 by fdeq_intro_sn, rdeq_trans, tdeq_rdeq_div, tdeq_trans/ +qed-. + +theorem fdeq_canc_sn: âh,o,G,G1,G2,L,L1,L2,T,T1,T2. + â¦G, L, Tâ¦ â[h, o] â¦G1, L1, T1â¦â â¦G, L, Tâ¦ â[h, o] â¦G2, L2, T2â¦ â â¦G1, L1, T1â¦ â[h, o] â¦G2, L2, T2â¦. +/3 width=5 by fdeq_trans, fdeq_sym/ qed-. + +theorem fdeq_canc_dx: âh,o,G1,G2,G,L1,L2,L,T1,T2,T. + â¦G1, L1, T1â¦ â[h, o] â¦G, L, Tâ¦ â â¦G2, L2, T2â¦ â[h, o] â¦G, L, Tâ¦ â â¦G1, L1, T1â¦ â[h, o] â¦G2, L2, T2â¦. +/3 width=5 by fdeq_trans, fdeq_sym/ qed-. + +(* Main inversion lemmas with degree-based equivalence on terms *) + +theorem fdeq_tdneq_repl_dx: âh,o,G1,G2,L1,L2,T1,T2. â¦G1, L1, T1â¦ â[h, o] â¦G2, L2, T2â¦ â + âU1,U2. â¦G1, L1, U1â¦ â[h, o] â¦G2, L2, U2â¦ â + (T2 â[h, o] U2 â â¥) â (T1 â[h, o] U1 â â¥). +#h #o #G1 #G2 #L1 #L2 #T1 #T2 #HT #U1 #U2 #HU #HnTU2 #HTU1 +elim (fdeq_inv_gen_sn â¦ HT) -HT #_ #_ #HT +elim (fdeq_inv_gen_sn â¦ HU) -HU #_ #_ #HU +/3 width=5 by tdeq_repl/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/fdeq_fqup.ma b/matita/matita/contribs/lambdadelta/static_2/static/fdeq_fqup.ma new file mode 100644 index 000000000..6a4f49e57 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/fdeq_fqup.ma @@ -0,0 +1,29 @@ +(**************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/rdeq_fqup.ma". +include "static_2/static/fdeq.ma". + +(* DEGREE-BASED EQUIVALENCE FOR CLOSURES ON REFERRED ENTRIES ****************) + +(* Properties with degree-based equivalence for terms ***********************) + +lemma tdeq_fdeq: âh,o,T1,T2. T1 â[h, o] T2 â + âG,L. â¦G, L, T1â¦ â[h, o] â¦G, L, T2â¦. +/2 width=1 by fdeq_intro_sn/ qed. + +(* Advanced properties ) + +lemma fdeq_refl: âh,o. tri_reflexive â¦ (fdeq h o). +/2 width=1 by fdeq_intro_sn/ qed. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/fdeq_fqus.ma b/matita/matita/contribs/lambdadelta/static_2/static/fdeq_fqus.ma new file mode 100644 index 000000000..4274cd40f --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/fdeq_fqus.ma @@ -0,0 +1,31 @@ +(********************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/rdeq_fqus.ma". +include "static_2/static/fdeq.ma". + +(* DEGREE-BASED EQUIVALENCE FOR CLOSURES ON REFERRED ENTRIES ****************) + +(* Properties with star-iterated structural successor for closures **********) + +lemma fdeq_fqus_trans: âh,o,b,G1,G,L1,L,T1,T. â¦G1, L1, T1â¦ â[h, o] â¦G, L, Tâ¦ â + âG2,L2,T2. â¦G, L, Tâ¦ â[b] â¦G2, L2, T2â¦ â + ââG,L0,T0. â¦G1, L1, T1â¦ â[b] â¦G, L0, T0â¦ & â¦G, L0, T0â¦ â[h, o] â¦G2, L2, T2â¦. +#h #o #b #G1 #G #L1 #L #T1 #T #H1 #G2 #L2 #T2 #H2 +elim(fdeq_inv_gen_dx â¦ H1) -H1 #HG #HL1 #HT1 destruct +elim (rdeq_fqus_trans â¦ H2 â¦ HL1) -L #L #T0 #H2 #HT02 #HL2 +elim (tdeq_fqus_trans â¦ H2 â¦ HT1) -T #L0 #T #H2 #HT0 #HL0 +lapply (tdeq_rdeq_conf â¦ HT02 â¦ HL0) -HL0 #HL0 +/4 width=7 by fdeq_intro_dx, rdeq_trans, tdeq_trans, ex2_3_intro/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/fdeq_req.ma b/matita/matita/contribs/lambdadelta/static_2/static/fdeq_req.ma new file mode 100644 index 000000000..0c0d9c3bc --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/fdeq_req.ma @@ -0,0 +1,27 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/rdeq_req.ma". +include "static_2/static/fdeq.ma". + +(* DEGREE-BASED EQUIVALENCE FOR CLOSURES ON REFERRED ENTRIES ****************) + +(* Properties with syntactic equivalence on referred entries ) + +lemma req_rdeq_trans: âh,o,L1,L,T1. L1 â¡[T1] L â + âG1,G2,L2,T2. â¦G1, L, T1â¦ â[h, o] â¦G2, L2, T2â¦ â â¦G1, L1, T1â¦ â[h, o] â¦G2, L2, T2â¦. +#h #o #L1 #L #T1 #HL1 #G1 #G2 #L2 #T2 #H +elim (fdeq_inv_gen_sn â¦ H) -H #H #HL2 #T12 destruct +/3 width=3 by fdeq_intro_sn, req_rdeq_trans/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/frees.ma b/matita/matita/contribs/lambdadelta/static_2/static/frees.ma new file mode 100644 index 000000000..054003f83 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/frees.ma @@ -0,0 +1,226 @@ +(**********************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/relocation/rtmap_sor.ma". +include "static_2/notation/relations/freestar_3.ma". +include "static_2/syntax/lenv.ma". + +(* CONTEXT-SENSITIVE FREE VARIABLES *****************************************) + +inductive frees: relation3 lenv term rtmap â +| frees_sort: âf,L,s. ðâ¦fâ¦ â frees L (âs) f +| frees_atom: âf,i. ðâ¦fâ¦ â frees (â) (#i) (â«¯[i]âf) +| frees_pair: âf,I,L,V. frees L V f â + frees (L.â{I}V) (#0) (âf) +| frees_unit: âf,I,L. ðâ¦fâ¦ â frees (L.â¤{I}) (#0) (âf) +| frees_lref: âf,I,L,i. frees L (#i) f â + frees (L.â{I}) (#âi) (â«¯f) +| frees_gref: âf,L,l. ðâ¦fâ¦ â frees L (Â§l) f +| frees_bind: âf1,f2,f,p,I,L,V,T. frees L V f1 â frees (L.â{I}V) T f2 â + f1 â â«±f2 â f â frees L (â{p,I}V.T) f +| frees_flat: âf1,f2,f,I,L,V,T. frees L V f1 â frees L T f2 â + f1 â f2 â f â frees L (â{I}V.T) f +. + +interpretation + "context-sensitive free variables (term)" + 'FreeStar L T f = (frees L T f). + +( Basic inversion lemmas ***************************************************) + +fact frees_inv_sort_aux: âf,L,X. L â¢ ðâ¦Xâ¦ â f â âx. X = âx â ðâ¦fâ¦. +#L #X #f #H elim H -f -L -X // +[ #f #i #_ #x #H destruct +| #f #_ #L #V #_ #_ #x #H destruct +| #f #_ #L #_ #x #H destruct +| #f #_ #L #i #_ #_ #x #H destruct +| #f1 #f2 #f #p #I #L #V #T #_ #_ #_ #_ #_ #x #H destruct +| #f1 #f2 #f #I #L #V #T #_ #_ #_ #_ #_ #x #H destruct +] +qed-. + +lemma frees_inv_sort: âf,L,s. L â¢ ðâ¦âsâ¦ â f â ðâ¦fâ¦. +/2 width=5 by frees_inv_sort_aux/ qed-. + +fact frees_inv_atom_aux: âf,L,X. L â¢ ðâ¦Xâ¦ â f â âi. L = â â X = #i â + ââg. ðâ¦gâ¦ & f = â«¯[i]âg. +#f #L #X #H elim H -f -L -X +[ #f #L #s #_ #j #_ #H destruct +| #f #i #Hf #j #_ #H destruct /2 width=3 by ex2_intro/ +| #f #I #L #V #_ #_ #j #H destruct +| #f #I #L #_ #j #H destruct +| #f #I #L #i #_ #_ #j #H destruct +| #f #L #l #_ #j #_ #H destruct +| #f1 #f2 #f #p #I #L #V #T #_ #_ #_ #_ #_ #j #_ #H destruct +| #f1 #f2 #f #I #L #V #T #_ #_ #_ #_ #_ #j #_ #H destruct +] +qed-. + +lemma frees_inv_atom: âf,i. â â¢ ðâ¦#iâ¦ â f â ââg. ðâ¦gâ¦ & f = â«¯[i]âg. +/2 width=5 by frees_inv_atom_aux/ qed-. + +fact frees_inv_pair_aux: âf,L,X. L â¢ ðâ¦Xâ¦ â f â âI,K,V. L = K.â{I}V â X = #0 â + ââg. K â¢ ðâ¦Vâ¦ â g & f = âg. +#f #L #X * -f -L -X +[ #f #L #s #_ #Z #Y #X #_ #H destruct +| #f #i #_ #Z #Y #X #H destruct +| #f #I #L #V #Hf #Z #Y #X #H #_ destruct /2 width=3 by ex2_intro/ +| #f #I #L #_ #Z #Y #X #H destruct +| #f #I #L #i #_ #Z #Y #X #_ #H destruct +| #f #L #l #_ #Z #Y #X #_ #H destruct +| #f1 #f2 #f #p #I #L #V #T #_ #_ #_ #Z #Y #X #_ #H destruct +| #f1 #f2 #f #I #L #V #T #_ #_ #_ #Z #Y #X #_ #H destruct +] +qed-. + +lemma frees_inv_pair: âf,I,K,V. K.â{I}V â¢ ðâ¦#0â¦ â f â ââg. K â¢ ðâ¦Vâ¦ â g & f = âg. +/2 width=6 by frees_inv_pair_aux/ qed-. + +fact frees_inv_unit_aux: âf,L,X. L â¢ ðâ¦Xâ¦ â f â âI,K. L = K.â¤{I} â X = #0 â + ââg. ðâ¦gâ¦ & f = âg. +#f #L #X -f -L -X +[ #f #L #s #_ #Z #Y #_ #H destruct +| #f #i #_ #Z #Y #H destruct +| #f #I #L #V #_ #Z #Y #H destruct +| #f #I #L #Hf #Z #Y #H destruct /2 width=3 by ex2_intro/ +| #f #I #L #i #_ #Z #Y #_ #H destruct +| #f #L #l #_ #Z #Y #_ #H destruct +| #f1 #f2 #f #p #I #L #V #T #_ #_ #_ #Z #Y #_ #H destruct +| #f1 #f2 #f #I #L #V #T #_ #_ #_ #Z #Y #_ #H destruct +] +qed-. + +lemma frees_inv_unit: âf,I,K. K.â¤{I} â¢ ðâ¦#0â¦ â f â ââg. ðâ¦gâ¦ & f = âg. +/2 width=7 by frees_inv_unit_aux/ qed-. + +fact frees_inv_lref_aux: âf,L,X. L â¢ ðâ¦Xâ¦ â f â âI,K,j. L = K.â{I} â X = #(âj) â + ââg. K â¢ ðâ¦#jâ¦ â g & f = â«¯g. +#f #L #X -f -L -X +[ #f #L #s #_ #Z #Y #j #_ #H destruct +| #f #i #_ #Z #Y #j #H destruct +| #f #I #L #V #_ #Z #Y #j #_ #H destruct +| #f #I #L #_ #Z #Y #j #_ #H destruct +| #f #I #L #i #Hf #Z #Y #j #H1 #H2 destruct /2 width=3 by ex2_intro/ +| #f #L #l #_ #Z #Y #j #_ #H destruct +| #f1 #f2 #f #p #I #L #V #T #_ #_ #_ #Z #Y #j #_ #H destruct +| #f1 #f2 #f #I #L #V #T #_ #_ #_ #Z #Y #j #_ #H destruct +] +qed-. + +lemma frees_inv_lref: âf,I,K,i. K.â{I} â¢ ðâ¦#(âi)â¦ â f â + ââg. K â¢ ðâ¦#iâ¦ â g & f = â«¯g. +/2 width=6 by frees_inv_lref_aux/ qed-. + +fact frees_inv_gref_aux: âf,L,X. L â¢ ðâ¦Xâ¦ â f â âx. X = Â§x â ðâ¦fâ¦. +#f #L #X #H elim H -f -L -X // +[ #f #i #_ #x #H destruct +| #f #_ #L #V #_ #_ #x #H destruct +| #f #_ #L #_ #x #H destruct +| #f #_ #L #i #_ #_ #x #H destruct +| #f1 #f2 #f #p #I #L #V #T #_ #_ #_ #_ #_ #x #H destruct +| #f1 #f2 #f #I #L #V #T #_ #_ #_ #_ #_ #x #H destruct +] +qed-. + +lemma frees_inv_gref: âf,L,l. L â¢ ðâ¦Â§lâ¦ â f â ðâ¦fâ¦. +/2 width=5 by frees_inv_gref_aux/ qed-. + +fact frees_inv_bind_aux: âf,L,X. L â¢ ðâ¦Xâ¦ â f â âp,I,V,T. X = â{p,I}V.T â + ââf1,f2. L â¢ ðâ¦Vâ¦ â f1 & L.â{I}V â¢ ðâ¦Tâ¦ â f2 & f1 â â«±f2 â f. +#f #L #X -f -L -X +[ #f #L #s #_ #q #J #W #U #H destruct +| #f #i #_ #q #J #W #U #H destruct +| #f #I #L #V #_ #q #J #W #U #H destruct +| #f #I #L #_ #q #J #W #U #H destruct +| #f #I #L #i #_ #q #J #W #U #H destruct +| #f #L #l #_ #q #J #W #U #H destruct +| #f1 #f2 #f #p #I #L #V #T #HV #HT #Hf #q #J #W #U #H destruct /2 width=5 by ex3_2_intro/ +| #f1 #f2 #f #I #L #V #T #_ #_ #_ #q #J #W #U #H destruct +] +qed-. + +lemma frees_inv_bind: âf,p,I,L,V,T. L â¢ ðâ¦â{p,I}V.Tâ¦ â f â + ââf1,f2. L â¢ ðâ¦Vâ¦ â f1 & L.â{I}V â¢ ðâ¦Tâ¦ â f2 & f1 â â«±f2 â f. +/2 width=4 by frees_inv_bind_aux/ qed-. + +fact frees_inv_flat_aux: âf,L,X. L â¢ ðâ¦Xâ¦ â f â âI,V,T. X = â{I}V.T â + ââf1,f2. L â¢ ðâ¦Vâ¦ â f1 & L â¢ ðâ¦Tâ¦ â f2 & f1 â f2 â f. +#f #L #X * -f -L -X +[ #f #L #s #_ #J #W #U #H destruct +| #f #i #_ #J #W #U #H destruct +| #f #I #L #V #_ #J #W #U #H destruct +| #f #I #L #_ #J #W #U #H destruct +| #f #I #L #i #_ #J #W #U #H destruct +| #f #L #l #_ #J #W #U #H destruct +| #f1 #f2 #f #p #I #L #V #T #_ #_ #_ #J #W #U #H destruct +| #f1 #f2 #f #I #L #V #T #HV #HT #Hf #J #W #U #H destruct /2 width=5 by ex3_2_intro/ +] +qed-. + +lemma frees_inv_flat: âf,I,L,V,T. L â¢ ðâ¦â{I}V.Tâ¦ â f â + ââf1,f2. L â¢ ðâ¦Vâ¦ â f1 & L â¢ ðâ¦Tâ¦ â f2 & f1 â f2 â f. +/2 width=4 by frees_inv_flat_aux/ qed-. + +( Basic properties ********************************************************) + +lemma frees_eq_repl_back: âL,T. eq_repl_back â¦ (Î»f. L â¢ ðâ¦Tâ¦ â f). +#L #T #f1 #H elim H -f1 -L -T +[ /3 width=3 by frees_sort, isid_eq_repl_back/ +| #f1 #i #Hf1 #g2 #H + elim (eq_inv_pushs_sn â¦ H) -H #g #Hg #H destruct + elim (eq_inv_nx â¦ Hg) -Hg + /3 width=3 by frees_atom, isid_eq_repl_back/ +| #f1 #I #L #V #_ #IH #g2 #H + elim (eq_inv_nx â¦ H) -H + /3 width=3 by frees_pair/ +| #f1 #I #L #Hf1 #g2 #H + elim (eq_inv_nx â¦ H) -H + /3 width=3 by frees_unit, isid_eq_repl_back/ +| #f1 #I #L #i #_ #IH #g2 #H + elim (eq_inv_px â¦ H) -H /3 width=3 by frees_lref/ +| /3 width=3 by frees_gref, isid_eq_repl_back/ +| /3 width=7 by frees_bind, sor_eq_repl_back3/ +| /3 width=7 by frees_flat, sor_eq_repl_back3/ +] +qed-. + +lemma frees_eq_repl_fwd: âL,T. eq_repl_fwd â¦ (Î»f. L â¢ ðâ¦Tâ¦ â f). +#L #T @eq_repl_sym /2 width=3 by frees_eq_repl_back/ +qed-. + +lemma frees_lref_push: âf,i. â â¢ ðâ¦#iâ¦ â f â â â¢ ðâ¦#âiâ¦ â â«¯f. +#f #i #H +elim (frees_inv_atom â¦ H) -H #g #Hg #H destruct +/2 width=1 by frees_atom/ +qed. + +(* Forward lemmas with test for finite colength *****************************) + +lemma frees_fwd_isfin: âf,L,T. L â¢ ðâ¦Tâ¦ â f â ðâ¦fâ¦. +#f #L #T #H elim H -f -L -T +/4 width=5 by sor_isfin, isfin_isid, isfin_tl, isfin_pushs, isfin_push, isfin_next/ +qed-. + +( Basic_2A1: removed theorems 30: + frees_eq frees_be frees_inv + frees_inv_sort frees_inv_gref frees_inv_lref frees_inv_lref_free + frees_inv_lref_skip frees_inv_lref_ge frees_inv_lref_lt + frees_inv_bind frees_inv_flat frees_inv_bind_O + frees_lref_eq frees_lref_be frees_weak + frees_bind_sn frees_bind_dx frees_flat_sn frees_flat_dx + frees_lift_ge frees_inv_lift_be frees_inv_lift_ge + lreq_frees_trans frees_lreq_conf + llor_atom llor_skip llor_total + llor_tail_frees llor_tail_cofrees +*) diff --git a/matita/matita/contribs/lambdadelta/static_2/static/frees_append.ma b/matita/matita/contribs/lambdadelta/static_2/static/frees_append.ma new file mode 100644 index 000000000..ce8d34808 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/frees_append.ma @@ -0,0 +1,59 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/append.ma". +include "static_2/static/frees.ma". + +(* CONTEXT-SENSITIVE FREE VARIABLES *****************************************) + +(* Properties with append for local environments ****************************) + +lemma frees_append_void: âf,K,T. K â¢ ðâ¦Tâ¦ â f â â§.K â¢ ðâ¦Tâ¦ â f. +#f #K #T #H elim H -f -K -T +[ /2 width=1 by frees_sort/ +| #f * /3 width=1 by frees_atom, frees_unit, frees_lref/ +| /2 width=1 by frees_pair/ +| /2 width=1 by frees_unit/ +| /2 width=1 by frees_lref/ +| /2 width=1 by frees_gref/ +| /3 width=5 by frees_bind/ +| /3 width=5 by frees_flat/ +] +qed. + +(* Inversion lemmas with append for local environments **********************) + +fact frees_inv_append_void_aux: âf,L,T. L â¢ ðâ¦Tâ¦ â f â + âK. L = â§.K â K â¢ ðâ¦Tâ¦ â f. +#f #L #T #H elim H -f -L -T +[ /2 width=1 by frees_sort/ +| #f #i #_ #K #H + elim (append_inv_atom3_sn â¦ H) -H #H1 #H2 destruct +| #f #I #L #V #_ #IH #K #H + elim (append_inv_bind3_sn â¦ H) -H * [ | #Y ] #H1 #H2 destruct + /3 width=1 by frees_pair/ +| #f #I #L #Hf #K #H + elim (append_inv_bind3_sn â¦ H) -H * [ | #Y ] #H1 #H2 destruct + /2 width=1 by frees_atom, frees_unit/ +| #f #I #L #i #Hf #IH #K #H + elim (append_inv_bind3_sn â¦ H) -H * [ | #Y ] #H1 #H2 destruct + /3 width=1 by frees_lref, frees_lref_push/ +| /2 width=1 by frees_gref/ +| /3 width=5 by frees_bind/ +| /3 width=5 by frees_flat/ +] +qed-. + +lemma frees_inv_append_void: âf,K,T. â§.K â¢ ðâ¦Tâ¦ â f â K â¢ ðâ¦Tâ¦ â f. +/2 width=3 by frees_inv_append_void_aux/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/frees_drops.ma b/matita/matita/contribs/lambdadelta/static_2/static/frees_drops.ma new file mode 100644 index 000000000..3c6466086 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/frees_drops.ma @@ -0,0 +1,245 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/relocation/nstream_coafter.ma". +include "static_2/relocation/drops_drops.ma". +include "static_2/static/frees_fqup.ma". + +(* CONTEXT-SENSITIVE FREE VARIABLES *****************************************) + +(* Advanced properties ******************************************************) + +lemma frees_atom_drops: âb,L,i. â¬[b, ðâ´iâµ] L â â â + âf. ðâ¦fâ¦ â L â¢ ðâ¦#iâ¦ â â«¯[i]âf. +#b #L elim L -L /2 width=1 by frees_atom/ +#L #I #IH +[ #H lapply (drops_fwd_isid â¦ H ?) -H // #H destruct +| /4 width=3 by frees_lref, drops_inv_drop1/ +] +qed. + +lemma frees_pair_drops: âf,K,V. K â¢ ðâ¦Vâ¦ â f â + âi,I,L. â¬[i] L â K.â{I}V â L â¢ ðâ¦#iâ¦ â â«¯[i] âf. +#f #K #V #Hf #i elim i -i +[ #I #L #H lapply (drops_fwd_isid â¦ H ?) -H /2 width=1 by frees_pair/ +| #i #IH #I #L #H elim (drops_inv_succ â¦ H) -H /3 width=2 by frees_lref/ +] +qed. + +lemma frees_unit_drops: âf. ðâ¦fâ¦ â âI,K,i,L. â¬[i] L â K.â¤{I} â + L â¢ ðâ¦#iâ¦ â â«¯[i] âf. +#f #Hf #I #K #i elim i -i +[ #L #H lapply (drops_fwd_isid â¦ H ?) -H /2 width=1 by frees_unit/ +| #i #IH #Y #H elim (drops_inv_succ â¦ H) -H + #J #L #HLK #H destruct /3 width=1 by frees_lref/ +] +qed. +( +lemma frees_sort_pushs: âf,K,s. K â¢ ðâ¦âsâ¦ â f â + âi,L. â¬[i] L â K â L â¢ ðâ¦âsâ¦ â â«¯[i] f. +#f #K #s #Hf #i elim i -i +[ #L #H lapply (drops_fwd_isid â¦ H ?) -H // +| #i #IH #L #H elim (drops_inv_succ â¦ H) -H /3 width=1 by frees_sort/ +] +qed. +) +lemma frees_lref_pushs: âf,K,j. K â¢ ðâ¦#jâ¦ â f â + âi,L. â¬[i] L â K â L â¢ ðâ¦#(i+j)â¦ â â«¯[i] f. +#f #K #j #Hf #i elim i -i +[ #L #H lapply (drops_fwd_isid â¦ H ?) -H // +| #i #IH #L #H elim (drops_inv_succ â¦ H) -H + #I #Y #HYK #H destruct /3 width=1 by frees_lref/ +] +qed. +( +lemma frees_gref_pushs: âf,K,l. K â¢ ðâ¦Â§lâ¦ â f â + âi,L. â¬[i] L â K â L â¢ ðâ¦Â§lâ¦ â â«¯[i] f. +#f #K #l #Hf #i elim i -i +[ #L #H lapply (drops_fwd_isid â¦ H ?) -H // +| #i #IH #L #H elim (drops_inv_succ â¦ H) -H /3 width=1 by frees_gref/ +] +qed. +) +( Advanced inversion lemmas ************************************************) + +lemma frees_inv_lref_drops: âL,i,f. L â¢ ðâ¦#iâ¦ â f â + â¨â¨ ââg. â¬[â», ðâ´iâµ] L â â & ðâ¦gâ¦ & f = â«¯[i] âg + | ââg,I,K,V. K â¢ ðâ¦Vâ¦ â g & + â¬[i] L â K.â{I}V & f = â«¯[i] âg + | ââg,I,K. â¬[i] L â K.â¤{I} & ðâ¦gâ¦ & f = â«¯[i] âg. +#L elim L -L +[ #i #g | #L #I #IH * [ #g cases I -I [ #I | #I #V ] -IH | #i #g ] ] #H +[ elim (frees_inv_atom â¦ H) -H #f #Hf #H destruct + /3 width=3 by or3_intro0, ex3_intro/ +| elim (frees_inv_unit â¦ H) -H #f #Hf #H destruct + /4 width=3 by drops_refl, or3_intro2, ex3_3_intro/ +| elim (frees_inv_pair â¦ H) -H #f #Hf #H destruct + /4 width=7 by drops_refl, or3_intro1, ex3_4_intro/ +| elim (frees_inv_lref â¦ H) -H #f #Hf #H destruct + elim (IH â¦ Hf) -IH -Hf * + [ /4 width=3 by drops_drop, or3_intro0, ex3_intro/ + | /4 width=7 by drops_drop, or3_intro1, ex3_4_intro/ + | /4 width=3 by drops_drop, or3_intro2, ex3_3_intro/ + ] +] +qed-. + +(* Properties with generic slicing for local environments *******************) + +lemma frees_lifts: âb,f1,K,T. K â¢ ðâ¦Tâ¦ â f1 â + âf,L. â¬[b, f] L â K â âU. â¬[f] T â U â + âf2. f ~â f1 â f2 â L â¢ ðâ¦Uâ¦ â f2. +#b #f1 #K #T #H lapply (frees_fwd_isfin â¦ H) elim H -f1 -K -T +[ #f1 #K #s #Hf1 #_ #f #L #HLK #U #H2 #f2 #H3 + lapply (coafter_isid_inv_dx â¦ H3 â¦ Hf1) -f1 #Hf2 + >(lifts_inv_sort1 â¦ H2) -U /2 width=1 by frees_sort/ +| #f1 #i #Hf1 #_ #f #L #H1 #U #H2 #f2 #H3 + elim (lifts_inv_lref1 â¦ H2) -H2 #j #Hij #H destruct + elim (coafter_fwd_xnx_pushs â¦ Hij H3) -H3 #g2 #Hg2 #H2 destruct + lapply (coafter_isid_inv_dx â¦ Hg2 â¦ Hf1) -f1 #Hf2 + elim (drops_inv_atom2 â¦ H1) -H1 #n #g #H1 #Hf + elim (after_at_fwd â¦ Hij â¦ Hf) -f #x #_ #Hj -g -i + lapply (at_inv_uni â¦ Hj) -Hj #H destruct + /3 width=8 by frees_atom_drops, drops_trans/ +| #f1 #I #K #V #_ #IH #Hf1 #f #L #H1 #U #H2 #f2 #H3 + lapply (isfin_inv_next â¦ Hf1 ??) -Hf1 [3: |: // ] #Hf1 + lapply (lifts_inv_lref1 â¦ H2) -H2 #j #Hf #H destruct + elim (drops_split_trans_bind2 â¦ H1) -H1 [ |: // ] #Z #Y #HLY #HYK #H + elim (liftsb_inv_pair_sn â¦ H) -H #W #HVW #H destruct + elim (coafter_fwd_xnx_pushs â¦ Hf H3) -H3 #g2 #H3 #H2 destruct + lapply (IH â¦ HYK â¦ HVW â¦ H3) -IH -H3 -HYK -HVW // + /2 width=5 by frees_pair_drops/ +| #f1 #I #K #Hf1 #_ #f #L #H1 #U #H2 #f2 #H3 + lapply (lifts_inv_lref1 â¦ H2) -H2 #j #Hf #H destruct + elim (coafter_fwd_xnx_pushs â¦ Hf H3) -H3 #g2 #H3 #H2 destruct + lapply (coafter_isid_inv_dx â¦ H3 â¦ Hf1) -f1 #Hg2 + elim (drops_split_trans_bind2 â¦ H1 â¦ Hf) -H1 -Hf #Z #Y #HLY #_ #H + lapply (liftsb_inv_unit_sn â¦ H) -H #H destruct + /2 width=3 by frees_unit_drops/ +| #f1 #I #K #i #_ #IH #Hf1 #f #L #H1 #U #H2 #f2 #H3 + lapply (isfin_inv_push â¦ Hf1 ??) -Hf1 [3: |: // ] #Hf1 + lapply (lifts_inv_lref1 â¦ H2) -H2 #x #Hf #H destruct + elim (at_inv_nxx â¦ Hf) -Hf [ |: // ] #j #Hf #H destruct + elim (drops_split_trans_bind2 â¦ H1) -H1 [ |: // ] #Z #Y #HLY #HYK #_ + elim (coafter_fwd_xpx_pushs â¦ 0 â¦ H3) [ |: // ] #g2 #H3 #H2 destruct + lapply (drops_isuni_fwd_drop2 â¦ HLY) -HLY // #HLY + lapply (IH â¦ HYK â¦ H3) -IH -H3 -HYK [4: |: /2 width=2 by lifts_lref/ ] + >plus_S1 /2 width=3 by frees_lref_pushs/ (**) (* full auto fails ) +| #f1 #K #l #Hf1 #_ #f #L #HLK #U #H2 #f2 #H3 + lapply (coafter_isid_inv_dx â¦ H3 â¦ Hf1) -f1 #Hf2 + >(lifts_inv_gref1 â¦ H2) -U /2 width=1 by frees_gref/ +| #f1V #f1T #f1 #p #I #K #V #T #_ #_ #H1f1 #IHV #IHT #H2f1 #f #L #H1 #Y #H2 #f2 #H3 + elim (sor_inv_isfin3 â¦ H1f1) // #Hf1V #H + lapply (isfin_inv_tl â¦ H) -H + elim (lifts_inv_bind1 â¦ H2) -H2 #W #U #HVW #HTU #H destruct + elim (coafter_sor â¦ H3 â¦ H1f1) /2 width=5 by coafter_isfin2_fwd/ -H3 -H1f1 #f2V #f2T #Hf2V #H + elim (coafter_inv_tl1 â¦ H) -H + /5 width=5 by frees_bind, drops_skip, ext2_pair/ +| #f1V #f1T #f1 #I #K #V #T #_ #_ #H1f1 #IHV #IHT #H2f1 #f #L #H1 #Y #H2 #f2 #H3 + elim (sor_inv_isfin3 â¦ H1f1) // + elim (lifts_inv_flat1 â¦ H2) -H2 #W #U #HVW #HTU #H destruct + elim (coafter_sor â¦ H3 â¦ H1f1) + /3 width=5 by coafter_isfin2_fwd, frees_flat/ +] +qed-. + +lemma frees_lifts_SO: âb,L,K. â¬[b, ðâ´1âµ] L â K â âT,U. â¬[1] T â U â + âf. K â¢ ðâ¦Tâ¦ â f â L â¢ ð*â¦Uâ¦ â â«¯f. +#b #L #K #HLK #T #U #HTU #f #Hf +@(frees_lifts b â¦ Hf â¦ HTU) // (**) (* auto fails ) +qed. + +( Forward lemmas with generic slicing for local environments ***************) + +lemma frees_fwd_coafter: âb,f2,L,U. L â¢ ðâ¦Uâ¦ â f2 â + âf,K. â¬[b, f] L â K â âT. â¬[f] T â U â + âf1. K â¢ ðâ¦Tâ¦ â f1 â f ~â f1 â f2. +/4 width=11 by frees_lifts, frees_mono, coafter_eq_repl_back0/ qed-. + +(* Inversion lemmas with generic slicing for local environments *************) + +lemma frees_inv_lifts_ex: âb,f2,L,U. L â¢ ðâ¦Uâ¦ â f2 â + âf,K. â¬[b, f] L â K â âT. â¬[f] T â U â + ââf1. f ~â f1 â f2 & K â¢ ðâ¦Tâ¦ â f1. +#b #f2 #L #U #Hf2 #f #K #HLK #T elim (frees_total K T) +/3 width=9 by frees_fwd_coafter, ex2_intro/ +qed-. + +lemma frees_inv_lifts_SO: âb,f,L,U. L â¢ ðâ¦Uâ¦ â f â + âK. â¬[b, ðâ´1âµ] L â K â âT. â¬[1] T â U â + K â¢ ðâ¦Tâ¦ â â«±f. +#b #f #L #U #H #K #HLK #T #HTU elim(frees_inv_lifts_ex â¦ H â¦ HLK â¦ HTU) -b -L -U +#f1 #Hf #Hf1 elim (coafter_inv_nxx â¦ Hf) -Hf +/3 width=5 by frees_eq_repl_back, coafter_isid_inv_sn/ +qed-. + +lemma frees_inv_lifts: âb,f2,L,U. L â¢ ðâ¦Uâ¦ â f2 â + âf,K. â¬[b, f] L â K â âT. â¬[f] T â U â + âf1. f ~â f1 â f2 â K â¢ ðâ¦Tâ¦ â f1. +#b #f2 #L #U #H #f #K #HLK #T #HTU #f1 #Hf2 elim (frees_inv_lifts_ex â¦ H â¦ HLK â¦ HTU) -b -L -U +/3 width=7 by frees_eq_repl_back, coafter_inj/ +qed-. + +(* Note: this is used by rex_conf and might be modified ) +lemma frees_inv_drops_next: âf1,L1,T1. L1 â¢ ðâ¦T1â¦ â f1 â + âI2,L2,V2,n. â¬[n] L1 â L2.â{I2}V2 â + âg1. âg1 = â«±[n] f1 â + ââg2. L2 â¢ ðâ¦V2â¦ â g2 & g2 â g1. +#f1 #L1 #T1 #H elim H -f1 -L1 -T1 +[ #f1 #L1 #s #Hf1 #I2 #L2 #V2 #n #_ #g1 #H1 -I2 -L1 -s + lapply (isid_tls n â¦ Hf1) -Hf1
(injective_next â¦ Hgf1) -g1 + /2 width=3 by ex2_intro/ + | -Hf1 #n #HL12 lapply (drops_inv_drop1 â¦ HL12) -HL12 + #HL12 #g1 tls_xn #H2 elim (IHT1 â¦ H2) -IHT1 -H2 + /3 width=6 by drops_drop, sor_inv_sle_dx_trans, ex2_intro/ + ] +| #fV1 #fT1 #f1 #I1 #L1 #V1 #T1 #_ #_ #Hf1 #IHV1 #IHT1 #I2 #L2 #V2 #n #HL12 #g1 #Hgf1 + lapply (sor_tls â¦ Hf1 n) -Hf1 (lifts_inv_sort1 â¦ H0) -H0 + lapply (acr_gcr â¦ H1RP H2RP (âª)) #HAtom + lapply (s4 â¦ HAtom G L2 (âº)) /2 width=1 by/ +| #i #HG #HL #HT #A #HA #b #f #L0 #HL01 #X0 #H0 #L2 #HL20 destruct + elim (aaa_inv_lref_drops â¦ HA) -HA #I #K1 #V1 #HLK1 #HKV1 + elim (lifts_inv_lref1 â¦ H0) -H0 #j #Hf #H destruct + lapply (acr_gcr â¦ H1RP H2RP A) #HA + lapply (drops_trans â¦ HL01 â¦ HLK1 ??) -HL01 [3: |: // ] #H + elim (drops_split_trans â¦ H) -H [ |: /2 width=6 by after_uni_dx/ ] #Y #HLK0 #HY + lapply (drops_tls_at â¦ Hf â¦ HY) -Hf -HY #HY + elim (drops_inv_skip2 â¦ HY) -HY #Z #K0 #HK01 #HZ #H destruct + elim (liftsb_inv_pair_sn â¦ HZ) -HZ #V0 #HV10 #H destruct + elim (lifts_total V0 (ðâ´âjâµ)) #V #HV0 + elim (lsubc_drops_trans_isuni â¦ HL20 â¦ HLK0) -HL20 -HLK0 // #Y #HLK2 #H + elim (lsubc_inv_bind2 â¦ H) -H + [ #K2 #HK20 #H destruct + lapply (drops_isuni_fwd_drop2 â¦ HLK2) // #HLK2b + lapply (s5 â¦ HA ? G ? ? (âº) â¦ HV0 ?) -HA + /4 width=11 by acr_lifts, fqup_lref, drops_inv_gen/ + | #K2 #V2 #W2 #B #HKV2 #HK2V0 #HKV0B #_ #H1 #H2 destruct -IH -HLK1 + lapply (drops_isuni_fwd_drop2 â¦ HLK2) // #HLK2b + lapply (aaa_lifts â¦ HKV1 â¦ HK01 â¦ HV10) -HKV1 -HK01 -HV10 #HKV0A + lapply (aaa_mono â¦ HKV0B â¦ HKV0A) #H destruct -HKV0B -HKV0A + elim (lifts_total V2 (ðâ´âjâµ)) #V3 #HV23 + lapply (s5 â¦ HA â¦ G â¦ (âº) â¦ (âW2.V2) (âV.V3) ????) + [3: |: /2 width=9 by drops_inv_gen, lifts_flat/ ] -HLK2 + lapply (s7 â¦ HA G L2 (âº)) -HA /3 width=7 by acr_lifts/ + ] +| #l #HG #HL #HT #A #HA #b #f #L0 #HL01 #X0 #H0 #L2 #HL20 destruct -IH + elim (aaa_inv_gref â¦ HA) +| #V #T #HG #HL #HT #A #HA #b #f #L0 #HL01 #X0 #H0 #L2 #HL20 destruct + elim (aaa_inv_abbr â¦ HA) -HA #B #HV #HT + elim (lifts_inv_bind1 â¦ H0) -H0 #V0 #T0 #HV0 #HT0 #H destruct + lapply (acr_gcr â¦ H1RP H2RP A) #HA + lapply (acr_gcr â¦ H1RP H2RP B) #HB + lapply (s1 â¦ HB) -HB #HB + lapply (s6 â¦ HA G L2 (âº) (âº)) /5 width=10 by lsubc_bind, liftsv_nil, drops_skip, ext2_pair/ +| #W #T #HG #HL #HT #Z0 #HA #b #f #L0 #HL01 #X0 #H0 #L2 #HL20 destruct + elim (aaa_inv_abst â¦ HA) -HA #B #A #HW #HT #H destruct + elim (lifts_inv_bind1 â¦ H0) -H0 #W0 #T0 #HW0 #HT0 #H destruct + @(acr_abst â¦ H1RP H2RP) /2 width=10 by/ + #b3 #f3 #L3 #V3 #W3 #T3 #HL32 #HW03 #HT03 #H1B #H2B + elim (drops_lsubc_trans â¦ H1RP â¦ HL32 â¦ HL20) -L2 #L2 #HL32 #HL20 + lapply (aaa_lifts â¦ HW â¦ (f3âf) L2 â¦ W3 ?) -HW + [4: |: /2 width=8 by drops_trans, lifts_trans/ ] #HW3 + @(IH â¦ ((â«¯f3)ââ«¯f) â¦ (L2. âW3)) -IH + /4 width=12 by lsubc_beta, drops_trans, drops_skip, lifts_trans, ext2_pair/ +| #V #T #HG #HL #HT #A #HA #b #f #L0 #HL01 #X0 #H0 #L2 #HL20 destruct + elim (aaa_inv_appl â¦ HA) -HA #B #HV #HT + elim (lifts_inv_flat1 â¦ H0) -H0 #V0 #T0 #HV0 #HT0 #H destruct + lapply (IH â¦ HT â¦ HL01 â¦ HT0 â¦ HL20) -HT -HT0 + /3 width=10 by drops_refl, lifts_refl/ +| #W #T #HG #HL #HT #A #HA #b #f #L0 #HL01 #X0 #H0 #L2 #HL20 destruct + elim (aaa_inv_cast â¦ HA) -HA #HW #HT + elim (lifts_inv_flat1 â¦ H0) -H0 #W0 #T0 #HW0 #HT0 #H destruct + lapply (acr_gcr â¦ H1RP H2RP A) #HA + lapply (s7 â¦ HA G L2 (âº)) /3 width=10 by/ +] +qed. + +(* Basic_1: was: sc3_arity *) +lemma acr_aaa: âRR,RS,RP. gcp RR RS RP â gcr RR RS RP RP â + âG,L,T,A. â¦G, Lâ¦ â¢ T â A â â¦G, L, Tâ¦ Ïµ[RP] ãAã. +/3 width=9 by drops_refl, lifts_refl, acr_aaa_csubc_lifts/ qed. + +lemma gcr_aaa: âRR,RS,RP. gcp RR RS RP â gcr RR RS RP RP â + âG,L,T,A. â¦G, Lâ¦ â¢ T â A â RP G L T. +#RR #RS #RP #H1RP #H2RP #G #L #T #A #HT +lapply (acr_gcr â¦ H1RP H2RP A) #HA +@(s1 â¦ HA) /2 width=4 by acr_aaa/ +qed. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/gcp_cr.ma b/matita/matita/contribs/lambdadelta/static_2/static/gcp_cr.ma new file mode 100644 index 000000000..5a5d9ee22 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/gcp_cr.ma @@ -0,0 +1,177 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/relations/ineint_5.ma". +include "static_2/syntax/aarity.ma". +include "static_2/relocation/lifts_simple.ma". +include "static_2/relocation/lifts_lifts_vector.ma". +include "static_2/relocation/drops_drops.ma". +include "static_2/static/gcp.ma". + +(* GENERIC COMPUTATION PROPERTIES *******************************************) + +(* Note: this is Girard's CR1 ) +definition S1 â Î»RP,C:candidate. + âG,L,T. C G L T â RP G L T. + +( Note: this is Tait's iii, or Girard's CR4 ) +definition S2 â Î»RR:relation4 genv lenv term term. Î»RS:relation term. Î»RP,C:candidate. + âG,L,Vs. all â¦ (RP G L) Vs â + âT. ðâ¦Tâ¦ â NF â¦ (RR G L) RS T â C G L (â¶Vs.T). + +( Note: this generalizes Tait's ii ) +definition S3 â Î»C:candidate. + âa,G,L,Vs,V,T,W. + C G L (â¶Vs.â{a}âW.V.T) â C G L (â¶Vs.âV.â{a}W.T). + +definition S4 â Î»RP,C:candidate. + âG,L,Vs. all â¦ (RP G L) Vs â âs. C G L (â¶Vs.âs). + +definition S5 â Î»C:candidate. âI,G,L,K,Vs,V1,V2,i. + C G L (â¶Vs.V2) â â¬[âi] V1 â V2 â + â¬[i] L â K.â{I}V1 â C G L (â¶Vs.#i). + +definition S6 â Î»RP,C:candidate. + âG,L,V1b,V2b. â¬[1] V1b â V2b â + âa,V,T. C G (L.âV) (â¶V2b.T) â RP G L V â C G L (â¶V1b.â{a}V.T). + +definition S7 â Î»C:candidate. + âG,L,Vs,T,W. C G L (â¶Vs.T) â C G L (â¶Vs.W) â C G L (â¶Vs.âW.T). + +(* requirements for the generic reducibility candidate ) +record gcr (RR:relation4 genv lenv term term) (RS:relation term) (RP,C:candidate) : Prop â +{ s1: S1 RP C; + s2: S2 RR RS RP C; + s3: S3 C; + s4: S4 RP C; + s5: S5 C; + s6: S6 RP C; + s7: S7 C +}. + +( the functional construction for candidates ) +definition cfun: candidate â candidate â candidate â + Î»C1,C2,G,K,T. âf,L,W,U. + â¬[â», f] L â K â â¬[f] T â U â C1 G L W â C2 G L (âW.U). + +( the reducibility candidate associated to an atomic arity ) +rec definition acr (RP:candidate) (A:aarity) on A: candidate â +match A with +[ AAtom â RP +| APair B A â cfun (acr RP B) (acr RP A) +]. + +interpretation + "reducibility candidate of an atomic arity (abstract)" + 'InEInt RP G L T A = (acr RP A G L T). + +( Basic properties *********************************************************) + +(* Note: this requires â»-slicing in cfun since b is unknown in d_liftable_1 ) +( Note: this requires multiple relocation ) +( Basic 1: includes: sc3_lift ) +( Basic 2A1: includes: gcr_lift ) +( Basic 2A1: note: gcr_lift should be acr_lift ) +( Basic_1: was: sc3_lift1 ) +( Basic 2A1: was: gcr_lifts ) +( Basic 2A1: note: gcr_lifts should be acr_lifts ) +lemma acr_lifts: âRR,RS,RP. gcp RR RS RP â âA,G. d_liftable1 (acr RP A G). +#RR #RS #RP #H #A #G elim A -A +[ /2 width=7 by cp2/ +| #B #A #HB #HA #K #T #HKT #b #f #L #HLK #U #HTU #f0 #L0 #W #U0 #HL0 #HU0 #HW + lapply (drops_trans â¦ HL0 â¦ HLK ??) [3:|: // ] -L #HL0K + lapply (lifts_trans â¦ HTU â¦ HU0 ??) [3:|*: // ] -U #HTU0 + /2 width=3 by/ (**) (* full auto fails ) +] +qed-. + +( Basic_1: was: + sc3_sn3 sc3_abst sc3_appl sc3_abbr sc3_bind sc3_cast +) +lemma acr_gcr: âRR,RS,RP. gcp RR RS RP â gcr RR RS RP RP â + âA. gcr RR RS RP (acr RP A). +#RR #RS #RP #H1RP #H2RP #A elim A -A // +#B #A #IHB #IHA @mk_gcr +[ #G #L #T #H + elim (cp1 â¦ H1RP G L) #s #HK + lapply (s2 â¦ IHB G L (âº) â¦ HK) // #HB + lapply (H (ðð) L (âs) T ? ? ?) -H + /3 width=6 by s1, cp3, drops_refl, lifts_refl/ +| #G #L #Vs #HVs #T #H1T #H2T #f #L0 #V0 #X #HL0 #H #HB + elim (lifts_inv_applv1 â¦ H) -H #V0s #T0 #HV0s #HT0 #H destruct + lapply (s1 â¦ IHB â¦ HB) #HV0 + @(s2 â¦ IHA â¦ (V0â¨®V0s)) /3 width=13 by cp0, gcp2_all, lifts_simple_dx, conj/ +| #p #G #L #Vs #U #T #W #HA #f #L0 #V0 #X #HL0 #H #HB + elim (lifts_inv_applv1 â¦ H) -H #V0s #X0 #HV0s #H0 #H destruct + elim (lifts_inv_flat1 â¦ H0) -H0 #U0 #X #HU0 #HX #H destruct + elim (lifts_inv_bind1 â¦ HX) -HX #W0 #T0 #HW0 #HT0 #H destruct + @(s3 â¦ IHA â¦ (V0â¨®V0s)) /5 width=6 by lifts_applv, lifts_flat, lifts_bind/ +| #G #L #Vs #HVs #s #f #L0 #V0 #X #HL0 #H #HB + elim (lifts_inv_applv1 â¦ H) -H #V0s #X0 #HV0s #H0 #H destruct + >(lifts_inv_sort1 â¦ H0) -X0 + lapply (s1 â¦ IHB â¦ HB) #HV0 + @(s4 â¦ IHA â¦ (V0â¨®V0s)) /3 width=7 by gcp2_all, conj/ +| #I #G #L #K #Vs #V1 #V2 #i #HA #HV12 #HLK #f #L0 #V0 #X #HL0 #H #HB + elim (lifts_inv_applv1 â¦ H) -H #V0s #X0 #HV0s #H0 #H destruct + elim (lifts_inv_lref1 â¦ H0) -H0 #j #Hf #H destruct + lapply (drops_trans â¦ HL0 â¦ HLK ??) [3: |: // ] -HLK #H + elim (drops_split_trans â¦ H) -H [ |: /2 width=6 by after_uni_dx/ ] #Y #HLK0 #HY + lapply (drops_tls_at â¦ Hf â¦ HY) -HY #HY + elim (drops_inv_skip2 â¦ HY) -HY #Z #K0 #HK0 #HZ #H destruct + elim (liftsb_inv_pair_sn â¦ HZ) -HZ #W1 #HVW1 #H destruct + elim (lifts_total W1 (ðâ´âjâµ)) #W2 #HW12 + lapply (lifts_trans â¦ HVW1 â¦ HW12 ??) -HVW1 [3: |: // ] #H + lapply (lifts_conf â¦ HV12 â¦ H f ?) -V1 [ /2 width=3 by after_uni_succ_sn/ ] #HVW2 + @(s5 â¦ IHA â¦ (V0â¨®V0s) â¦ HW12) /3 width=4 by drops_inv_gen, lifts_applv/ +| #G #L #V1s #V2s #HV12s #p #V #T #HA #HV #f #L0 #V10 #X #HL0 #H #HB + elim (lifts_inv_applv1 â¦ H) -H #V10s #X0 #HV10s #H0 #H destruct + elim (lifts_inv_bind1 â¦ H0) -H0 #V0 #T0 #HV0 #HT0 #H destruct + elim (lifts_total V10 (ðâ´1âµ)) #V20 #HV120 + elim (liftsv_total (ðâ´1âµ) V10s) #V20s #HV120s + @(s6 â¦ IHA â¦ (V10â¨®V10s) (V20â¨®V20s)) /3 width=7 by cp2, liftsv_cons/ + @(HA â¦ (â«¯f)) /3 width=2 by drops_skip, ext2_pair/ + [ @lifts_applv // + lapply (liftsv_trans â¦ HV10s â¦ HV120s ??) -V10s [3: |: // ] #H + elim (liftsv_split_trans â¦ H (ðâ´1âµ) (â«¯f)) /2 width=1 by after_uni_one_sn/ #V10s #HV10s #HV120s + >(liftsv_mono â¦ HV12s â¦ HV10s) -V1s // + | @(acr_lifts â¦ H1RP â¦ HB â¦ HV120) /3 width=2 by drops_refl, drops_drop/ + ] +| #G #L #Vs #T #W #HA #HW #f #L0 #V0 #X #HL0 #H #HB + elim (lifts_inv_applv1 â¦ H) -H #V0s #X0 #HV0s #H0 #H destruct + elim (lifts_inv_flat1 â¦ H0) -H0 #W0 #T0 #HW0 #HT0 #H destruct + @(s7 â¦ IHA â¦ (V0â¨®V0s)) /3 width=5 by lifts_applv/ +] +qed. + +lemma acr_abst: âRR,RS,RP. gcp RR RS RP â gcr RR RS RP RP â + âp,G,L,W,T,A,B. â¦G, L, Wâ¦ Ïµ[RP] ãBã â ( + âb,f,L0,V0,W0,T0. â¬[b, f] L0 â L â â¬[f] W â W0 â â¬[â«¯f] T â T0 â + â¦G, L0, V0â¦ Ïµ[RP] ãBã â â¦G, L0, W0â¦ Ïµ[RP] ãBã â â¦G, L0.ââW0.V0, T0â¦ Ïµ[RP] ãAã + ) â + â¦G, L, â{p}W.Tâ¦ Ïµ[RP] ãâ¡B.Aã. +#RR #RS #RP #H1RP #H2RP #p #G #L #W #T #A #B #HW #HA #f #L0 #V0 #X #HL0 #H #HB +lapply (acr_gcr â¦ H1RP H2RP A) #HCA +lapply (acr_gcr â¦ H1RP H2RP B) #HCB +elim (lifts_inv_bind1 â¦ H) -H #W0 #T0 #HW0 #HT0 #H destruct +lapply (acr_lifts â¦ H1RP â¦ HW â¦ HL0 â¦ HW0) -HW #HW0 +lapply (s3 â¦ HCA â¦ p G L0 (âº)) #H @H -H +lapply (s6 â¦ HCA G L0 (âº) (âº) ?) // #H @H -H +[ @(HA â¦ HL0) // +| lapply (s1 â¦ HCB) -HCB #HCB + lapply (s7 â¦ H2RP G L0 (âº)) /3 width=1 by/ +] +qed. + +(* Basic_1: removed theorems 2: sc3_arity_gen sc3_repl ) +( Basic_1: removed local theorems 1: sc3_sn3_abst *) diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsuba.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsuba.ma new file mode 100644 index 000000000..7277086ac --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsuba.ma @@ -0,0 +1,93 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/relations/lrsubeqa_3.ma". +include "static_2/static/aaa.ma". + +(* RESTRICTED REFINEMENT FOR ATOMIC ARITY ASSIGNMENT ************************) + +inductive lsuba (G:genv): relation lenv â +| lsuba_atom: lsuba G (â) (â) +| lsuba_bind: âI,L1,L2. lsuba G L1 L2 â lsuba G (L1.â{I}) (L2.â{I}) +| lsuba_beta: âL1,L2,W,V,A. â¦G, L1â¦ â¢ âW.V â A â â¦G, L2â¦ â¢ W â A â + lsuba G L1 L2 â lsuba G (L1.ââW.V) (L2.âW) +. + +interpretation + "local environment refinement (atomic arity assignment)" + 'LRSubEqA G L1 L2 = (lsuba G L1 L2). + +(* Basic inversion lemmas ***************************************************) + +fact lsuba_inv_atom1_aux: âG,L1,L2. G â¢ L1 â«â L2 â L1 = â â L2 = â. +#G #L1 #L2 * -L1 -L2 +[ // +| #I #L1 #L2 #_ #H destruct +| #L1 #L2 #W #V #A #_ #_ #_ #H destruct +] +qed-. + +lemma lsuba_inv_atom1: âG,L2. G â¢ â â«â L2 â L2 = â. +/2 width=4 by lsuba_inv_atom1_aux/ qed-. + +fact lsuba_inv_bind1_aux: âG,L1,L2. G â¢ L1 â«â L2 â âI,K1. L1 = K1.â{I} â + (ââK2. G â¢ K1 â«â K2 & L2 = K2.â{I}) â¨ + ââK2,W,V,A. â¦G, K1â¦ â¢ âW.V â A & â¦G, K2â¦ â¢ W â A & + G â¢ K1 â«â K2 & I = BPair Abbr (âW.V) & L2 = K2.âW. +#G #L1 #L2 * -L1 -L2 +[ #J #K1 #H destruct +| #I #L1 #L2 #HL12 #J #K1 #H destruct /3 width=3 by ex2_intro, or_introl/ +| #L1 #L2 #W #V #A #HV #HW #HL12 #J #K1 #H destruct /3 width=9 by ex5_4_intro, or_intror/ +] +qed-. + +lemma lsuba_inv_bind1: âI,G,K1,L2. G â¢ K1.â{I} â«â L2 â + (ââK2. G â¢ K1 â«â K2 & L2 = K2.â{I}) â¨ + ââK2,W,V,A. â¦G, K1â¦ â¢ âW.V â A & â¦G, K2â¦ â¢ W â A & G â¢ K1 â«â K2 & + I = BPair Abbr (âW.V) & L2 = K2.âW. +/2 width=3 by lsuba_inv_bind1_aux/ qed-. + +fact lsuba_inv_atom2_aux: âG,L1,L2. G â¢ L1 â«â L2 â L2 = â â L1 = â. +#G #L1 #L2 * -L1 -L2 +[ // +| #I #L1 #L2 #_ #H destruct +| #L1 #L2 #W #V #A #_ #_ #_ #H destruct +] +qed-. + +lemma lsubc_inv_atom2: âG,L1. G â¢ L1 â«â â â L1 = â. +/2 width=4 by lsuba_inv_atom2_aux/ qed-. + +fact lsuba_inv_bind2_aux: âG,L1,L2. G â¢ L1 â«â L2 â âI,K2. L2 = K2.â{I} â + (ââK1. G â¢ K1 â«â K2 & L1 = K1.â{I}) â¨ + ââK1,V,W, A. â¦G, K1â¦ â¢ âW.V â A & â¦G, K2â¦ â¢ W â A & + G â¢ K1 â«â K2 & I = BPair Abst W & L1 = K1.ââW.V. +#G #L1 #L2 * -L1 -L2 +[ #J #K2 #H destruct +| #I #L1 #L2 #HL12 #J #K2 #H destruct /3 width=3 by ex2_intro, or_introl/ +| #L1 #L2 #W #V #A #HV #HW #HL12 #J #K2 #H destruct /3 width=9 by ex5_4_intro, or_intror/ +] +qed-. + +lemma lsuba_inv_bind2: âI,G,L1,K2. G â¢ L1 â«â K2.â{I} â + (ââK1. G â¢ K1 â«â K2 & L1 = K1.â{I}) â¨ + ââK1,V,W,A. â¦G, K1â¦ â¢ âW.V â A & â¦G, K2â¦ â¢ W â A & G â¢ K1 â«â K2 & + I = BPair Abst W & L1 = K1.ââW.V. +/2 width=3 by lsuba_inv_bind2_aux/ qed-. + +(* Basic properties *) + +lemma lsuba_refl: âG,L. G â¢ L â«â L. +#G #L elim L -L /2 width=1 by lsuba_atom, lsuba_bind/ +qed. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsuba_aaa.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsuba_aaa.ma new file mode 100644 index 000000000..d03aecd11 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsuba_aaa.ma @@ -0,0 +1,54 @@ +(******************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/aaa_aaa.ma". +include "static_2/static/lsuba.ma". + +(* RESTRICTED REFINEMENT FOR ATOMIC ARITY ASSIGNMENT ************************) + +(* Properties with atomic arity assignment **********************************) + +lemma lsuba_aaa_conf: âG,L1,V,A. â¦G, L1â¦ â¢ V â A â + âL2. G â¢ L1 â«â L2 â â¦G, L2â¦ â¢ V â A. +#G #L1 #V #A #H elim H -G -L1 -V -A +[ // +| #I #G #L1 #V #A #HA #IH #L2 #H + elim (lsuba_inv_bind1 â¦ H) -H * /3 width=1 by aaa_zero/ + #L0 #W0 #V0 #A0 #HV0 #HW0 #HL10 #H1 #H2 destruct + lapply (aaa_mono â¦ HV0 â¦ HA) #H destruct -V0 -L1 /2 width=1 by aaa_zero/ +| #I #G #K1 #A #i #_ #IH #L2 #H + elim (lsuba_inv_bind1 â¦ H) -H * /3 width=1 by aaa_lref/ +| /4 width=2 by lsuba_bind, aaa_abbr/ +| /4 width=1 by lsuba_bind, aaa_abst/ +| /3 width=3 by aaa_appl/ +| /3 width=1 by aaa_cast/ +] +qed-. + +lemma lsuba_aaa_trans: âG,L2,V,A. â¦G, L2â¦ â¢ V â A â + âL1. G â¢ L1 â«â L2 â â¦G, L1â¦ â¢ V â A. +#G #L2 #V #A #H elim H -G -L2 -V -A +[ // +| #I #G #L2 #V #A #HA #IH #L1 #H + elim (lsuba_inv_bind2 â¦ H) -H * /3 width=1 by aaa_zero/ + #L0 #V0 #W0 #A0 #HV0 #HW0 #HL02 #H1 #H2 destruct + lapply (aaa_mono â¦ HW0 â¦ HA) #H destruct -L2 /2 width=1 by aaa_zero/ +| #I #G #K2 #A #i #_ #IH #L1 #H + elim (lsuba_inv_bind2 â¦ H) -H * /3 width=1 by aaa_lref/ +| /4 width=2 by lsuba_bind, aaa_abbr/ +| /4 width=1 by lsuba_bind, aaa_abst/ +| /3 width=3 by aaa_appl/ +| /3 width=1 by aaa_cast/ +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsuba_drops.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsuba_drops.ma new file mode 100644 index 000000000..bfec752e7 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsuba_drops.ma @@ -0,0 +1,68 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/drops.ma". +include "static_2/static/lsuba.ma". + +(* RESTRICTED REFINEMENT FOR ATOMIC ARITY ASSIGNMENT ************************) + +(* Properties with generic slicing for local environments *******************) + +(* Note: the premise ðâ¦fâ¦ cannot be removed ) +( Basic_2A1: includes: lsuba_drop_O1_conf ) +lemma lsuba_drops_conf_isuni: âG,L1,L2. G â¢ L1 â«â L2 â + âb,f,K1. ðâ¦fâ¦ â â¬[b, f] L1 â K1 â + ââK2. G â¢ K1 â«â K2 & â¬[b, f] L2 â K2. +#G #L1 #L2 #H elim H -L1 -L2 +[ /2 width=3 by ex2_intro/ +| #I #L1 #L2 #HL12 #IH #b #f #K1 #Hf #H + elim (drops_inv_bind1_isuni â¦ Hf H) -Hf -H + [ #Hf #H destruct -IH + /3 width=3 by lsuba_bind, drops_refl, ex2_intro/ + | #g #Hg #HLK1 #H destruct -HL12 + elim (IH â¦ Hg HLK1) -L1 -Hg /3 width=3 by drops_drop, ex2_intro/ + ] +| #L1 #L2 #W #V #A #HV #HW #HL12 #IH #b #f #K1 #Hf #H + elim (drops_inv_bind1_isuni â¦ Hf H) -Hf -H * + [ #Hf #H destruct -IH + /3 width=3 by drops_refl, lsuba_beta, ex2_intro/ + | #g #Hg #HLK1 #H destruct -HL12 + elim (IH â¦ Hg HLK1) -L1 -Hg /3 width=3 by drops_drop, ex2_intro/ + ] +] +qed-. + +(* Note: the premise ðâ¦fâ¦ cannot be removed ) +( Basic_2A1: includes: lsuba_drop_O1_trans ) +lemma lsuba_drops_trans_isuni: âG,L1,L2. G â¢ L1 â«â L2 â + âb,f,K2. ðâ¦fâ¦ â â¬[b, f] L2 â K2 â + ââK1. G â¢ K1 â«â K2 & â¬[b, f] L1 â K1. +#G #L1 #L2 #H elim H -L1 -L2 +[ /2 width=3 by ex2_intro/ +| #I #L1 #L2 #HL12 #IH #b #f #K2 #Hf #H + elim (drops_inv_bind1_isuni â¦ Hf H) -Hf -H + [ #Hf #H destruct -IH + /3 width=3 by lsuba_bind, drops_refl, ex2_intro/ + | #g #Hg #HLK2 #H destruct -HL12 + elim (IH â¦ Hg HLK2) -L2 -Hg /3 width=3 by drops_drop, ex2_intro/ + ] +| #L1 #L2 #W #V #A #HV #HW #HL12 #IH #b #f #K2 #Hf #H + elim (drops_inv_bind1_isuni â¦ Hf H) -Hf -H * + [ #Hf #H destruct -IH + /3 width=3 by drops_refl, lsuba_beta, ex2_intro/ + | #g #Hg #HLK2 #H destruct -HL12 + elim (IH â¦ Hg HLK2) -L2 -Hg /3 width=3 by drops_drop, ex2_intro/ + ] +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsuba_lsuba.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsuba_lsuba.ma new file mode 100644 index 000000000..fd353c365 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsuba_lsuba.ma @@ -0,0 +1,36 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/lsuba_aaa.ma". + +(* RESTRICTED REFINEMENT FOR ATOMIC ARITY ASSIGNMENT ************************) + +(* Main properties **********************************************************) + +theorem lsuba_trans: âG. Transitive â¦ (lsuba G). +#G #L1 #L #H elim H -L1 -L +[ #X #H >(lsuba_inv_atom1 â¦ H) -H // +| #I #L1 #L #HL1 #IHL1 #Y #H + elim (lsuba_inv_bind1 â¦ H) -H * #L2 + [ #HL2 #H destruct /3 width=1 by lsuba_bind/ + | #W #V #A #HV #HW #HL2 #H1 #H2 destruct + /3 width=3 by lsuba_beta, lsuba_aaa_trans/ + ] +| #L1 #L #W #V #A #HV #HW #HL1 #IHL1 #Y #H + elim (lsuba_inv_bind1 â¦ H) -H * #L2 + [ #HL2 #H destruct /3 width=5 by lsuba_beta, lsuba_aaa_conf/ + | #W0 #V0 #A0 #_ #_ #_ #H destruct + ] +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsuba_lsubr.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsuba_lsubr.ma new file mode 100644 index 000000000..2be1bbe40 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsuba_lsubr.ma @@ -0,0 +1,24 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/lsubr.ma". +include "static_2/static/lsuba.ma". + +(* RESTRICTED REFINEMENT FOR ATOMIC ARITY ASSIGNMENT ************************) + +(* Forward lemmas with restricted refinement for local environments *) + +lemma lsuba_fwd_lsubr: âG,L1,L2. G â¢ L1 â«â L2 â L1 â« L2. +#G #L1 #L2 #H elim H -L1 -L2 /2 width=1 by lsubr_bind, lsubr_beta/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsubc.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsubc.ma new file mode 100644 index 000000000..d7d1c565a --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsubc.ma @@ -0,0 +1,109 @@ +(******************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/relations/lrsubeqc_4.ma". +include "static_2/static/aaa.ma". +include "static_2/static/gcp_cr.ma". + +(* LOCAL ENVIRONMENT REFINEMENT FOR GENERIC REDUCIBILITY ********************) + +inductive lsubc (RP) (G): relation lenv â +| lsubc_atom: lsubc RP G (â) (â) +| lsubc_bind: âI,L1,L2. lsubc RP G L1 L2 â lsubc RP G (L1.â{I}) (L2.â{I}) +| lsubc_beta: âL1,L2,V,W,A. â¦G, L1, Vâ¦ Ïµ[RP] ãAã â â¦G, L1, Wâ¦ Ïµ[RP] ãAã â â¦G, L2â¦ â¢ W â A â + lsubc RP G L1 L2 â lsubc RP G (L1. ââW.V) (L2.âW) +. + +interpretation + "local environment refinement (generic reducibility)" + 'LRSubEqC RP G L1 L2 = (lsubc RP G L1 L2). + +(* Basic inversion lemmas ***************************************************) + +fact lsubc_inv_atom1_aux: âRP,G,L1,L2. G â¢ L1 â«[RP] L2 â L1 = â â L2 = â. +#RP #G #L1 #L2 * -L1 -L2 +[ // +| #I #L1 #L2 #_ #H destruct +| #L1 #L2 #V #W #A #_ #_ #_ #_ #H destruct +] +qed-. + +(* Basic_1: was just: csubc_gen_sort_r ) +lemma lsubc_inv_atom1: âRP,G,L2. G â¢ â â«[RP] L2 â L2 = â. +/2 width=5 by lsubc_inv_atom1_aux/ qed-. + +fact lsubc_inv_bind1_aux: âRP,G,L1,L2. G â¢ L1 â«[RP] L2 â âI,K1. L1 = K1.â{I} â + (ââK2. G â¢ K1 â«[RP] K2 & L2 = K2.â{I}) â¨ + ââK2,V,W,A. â¦G, K1, Vâ¦ Ïµ[RP] ãAã & â¦G, K1, Wâ¦ Ïµ[RP] ãAã & â¦G, K2â¦ â¢ W â A & + G â¢ K1 â«[RP] K2 & + L2 = K2. âW & I = BPair Abbr (âW.V). +#RP #G #L1 #L2 -L1 -L2 +[ #I #K1 #H destruct +| #J #L1 #L2 #HL12 #I #K1 #H destruct /3 width=3 by ex2_intro, or_introl/ +| #L1 #L2 #V1 #W2 #A #HV1 #H1W2 #H2W2 #HL12 #I #K1 #H destruct + /3 width=10 by ex6_4_intro, or_intror/ +] +qed-. + +(* Basic_1: was: csubc_gen_head_r ) +lemma lsubc_inv_bind1: âRP,I,G,K1,L2. G â¢ K1.â{I} â«[RP] L2 â + (ââK2. G â¢ K1 â«[RP] K2 & L2 = K2.â{I}) â¨ + ââK2,V,W,A. â¦G, K1, Vâ¦ Ïµ[RP] ãAã & â¦G, K1, Wâ¦ Ïµ[RP] ãAã & â¦G, K2â¦ â¢ W â A & + G â¢ K1 â«[RP] K2 & + L2 = K2.âW & I = BPair Abbr (âW.V). +/2 width=3 by lsubc_inv_bind1_aux/ qed-. + +fact lsubc_inv_atom2_aux: âRP,G,L1,L2. G â¢ L1 â«[RP] L2 â L2 = â â L1 = â. +#RP #G #L1 #L2 -L1 -L2 +[ // +| #I #L1 #L2 #_ #H destruct +| #L1 #L2 #V #W #A #_ #_ #_ #_ #H destruct +] +qed-. + +(* Basic_1: was just: csubc_gen_sort_l ) +lemma lsubc_inv_atom2: âRP,G,L1. G â¢ L1 â«[RP] â â L1 = â. +/2 width=5 by lsubc_inv_atom2_aux/ qed-. + +fact lsubc_inv_bind2_aux: âRP,G,L1,L2. G â¢ L1 â«[RP] L2 â âI,K2. L2 = K2.â{I} â + (ââK1. G â¢ K1 â«[RP] K2 & L1 = K1. â{I}) â¨ + ââK1,V,W,A. â¦G, K1, Vâ¦ Ïµ[RP] ãAã & â¦G, K1, Wâ¦ Ïµ[RP] ãAã & â¦G, K2â¦ â¢ W â A & + G â¢ K1 â«[RP] K2 & + L1 = K1.ââW.V & I = BPair Abst W. +#RP #G #L1 #L2 -L1 -L2 +[ #I #K2 #H destruct +| #J #L1 #L2 #HL12 #I #K2 #H destruct /3 width=3 by ex2_intro, or_introl/ +| #L1 #L2 #V1 #W2 #A #HV1 #H1W2 #H2W2 #HL12 #I #K2 #H destruct + /3 width=10 by ex6_4_intro, or_intror/ +] +qed-. + +(* Basic_1: was just: csubc_gen_head_l ) +lemma lsubc_inv_bind2: âRP,I,G,L1,K2. G â¢ L1 â«[RP] K2.â{I} â + (ââK1. G â¢ K1 â«[RP] K2 & L1 = K1.â{I}) â¨ + ââK1,V,W,A. â¦G, K1, Vâ¦ Ïµ[RP] ãAã & â¦G, K1, Wâ¦ Ïµ[RP] ãAã & â¦G, K2â¦ â¢ W â A & + G â¢ K1 â«[RP] K2 & + L1 = K1.ââW.V & I = BPair Abst W. +/2 width=3 by lsubc_inv_bind2_aux/ qed-. + +( Basic properties *********************************************************) + +(* Basic_1: was just: csubc_refl ) +lemma lsubc_refl: âRP,G,L. G â¢ L â«[RP] L. +#RP #G #L elim L -L /2 width=1 by lsubc_bind/ +qed. + +( Basic_1: removed theorems 3: + csubc_clear_conf csubc_getl_conf csubc_csuba +*) diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsubc_drops.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsubc_drops.ma new file mode 100644 index 000000000..9fe4888bf --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsubc_drops.ma @@ -0,0 +1,70 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/aaa_drops.ma". +include "static_2/static/lsubc.ma". + +(* LOCAL ENVIRONMENT REFINEMENT FOR GENERIC REDUCIBILITY ********************) + +(* Properties with generic slicing ******************************************) + +(* Note: the premise ðâ¦fâ¦ cannot be removed ) +( Basic_1: includes: csubc_drop_conf_O ) +( Basic_2A1: includes: lsubc_drop_O1_trans ) +lemma lsubc_drops_trans_isuni: âRP,G,L1,L2. G â¢ L1 â«[RP] L2 â + âb,f,K2. ðâ¦fâ¦ â â¬[b, f] L2 â K2 â + ââK1. â¬[b, f] L1 â K1 & G â¢ K1 â«[RP] K2. +#RP #G #L1 #L2 #H elim H -L1 -L2 +[ /2 width=3 by ex2_intro/ +| #I #L1 #L2 #HL12 #IH #b #f #K2 #Hf #H + elim (drops_inv_bind1_isuni â¦ Hf H) -Hf -H + [ #Hf #H destruct -IH + /3 width=3 by lsubc_bind, drops_refl, ex2_intro/ + | #g #Hg #HLK2 #H destruct -HL12 + elim (IH â¦ Hg HLK2) -L2 -Hg /3 width=3 by drops_drop, ex2_intro/ + ] +| #L1 #L2 #V #W #A #HV #H1W #H2W #HL12 #IH #b #f #K2 #Hf #H + elim (drops_inv_bind1_isuni â¦ Hf H) -Hf -H * + [ #Hf #H destruct -IH + /3 width=8 by drops_refl, lsubc_beta, ex2_intro/ + | #g #Hg #HLK2 #H destruct -HL12 + elim (IH â¦ Hg HLK2) -L2 -Hg /3 width=3 by drops_drop, ex2_intro/ + ] +] +qed-. + +(* Basic_1: was: csubc_drop1_conf_rev ) +( Basic_1: includes: csubc_drop_conf_rev ) +( Basic_2A1: includes: drop_lsubc_trans ) +lemma drops_lsubc_trans: âRR,RS,RP. gcp RR RS RP â + âb,f,G,L1,K1. â¬[b, f] L1 â K1 â âK2. G â¢ K1 â«[RP] K2 â + ââL2. G â¢ L1 â«[RP] L2 & â¬[b, f] L2 â K2. +#RR #RS #RP #HR #b #f #G #L1 #K1 #H elim H -f -L1 -K1 +[ #f #Hf #Y #H lapply (lsubc_inv_atom1 â¦ H) -H + #H destruct /4 width=3 by lsubc_atom, drops_atom, ex2_intro/ +| #f #I #L1 #K1 #_ #IH #K2 #HK12 elim (IH â¦ HK12) -K1 + /3 width=5 by lsubc_bind, drops_drop, ex2_intro/ +| #f #Z #I #L1 #K1 #HLK1 #HZ #IH #Y #H elim (lsubc_inv_bind1 â¦ H) -H + [ #K2 #HK12 #H destruct -HLK1 + elim (IH â¦ HK12) -K1 /3 width=5 by lsubc_bind, drops_skip, ex2_intro/ + | #K2 #V2 #W2 #A #HV2 #H1W2 #H2W2 #HK12 #H1 #H2 destruct + elim (liftsb_inv_pair_sn â¦ HZ) -HZ #V1 #HV21 #H destruct + elim (lifts_inv_flat1 â¦ HV21) -HV21 #W3 #V3 #HW23 #HV3 #H destruct + elim (IH â¦ HK12) -IH -HK12 #K #HL1K #HK2 + lapply (acr_lifts â¦ HR â¦ HV2 â¦ HLK1 â¦ HV3) -HV2 + lapply (acr_lifts â¦ HR â¦ H1W2 â¦ HLK1 â¦ HW23) -H1W2 + /4 width=10 by lsubc_beta, aaa_lifts, drops_skip, ext2_pair, ex2_intro/ + ] +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsubc_lsuba.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsubc_lsuba.ma new file mode 100644 index 000000000..3c6c0a1c9 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsubc_lsuba.ma @@ -0,0 +1,26 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/lsuba.ma". +include "static_2/static/gcp_aaa.ma". + +(* LOCAL ENVIRONMENT REFINEMENT FOR GENERIC REDUCIBILITY ********************) + +(* Properties with lenv refinement for atomic arity assignment ) + +lemma lsuba_lsubc: âRR,RS,RP. gcp RR RS RP â gcr RR RS RP RP â + âG,L1,L2. G â¢ L1 â«â L2 â G â¢ L1 â«[RP] L2. +#RR #RS #RP #H1RP #H2RP #G #L1 #L2 #H elim H -L1 -L2 /2 width=1 by lsubc_bind/ +#L1 #L2 #W #V #A #H elim (aaa_inv_cast â¦ H) -H /3 width=4 by acr_aaa, lsubc_beta/ +qed. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsubc_lsubr.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsubc_lsubr.ma new file mode 100644 index 000000000..b6a3a6f43 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsubc_lsubr.ma @@ -0,0 +1,24 @@ +(************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/lsubr.ma". +include "static_2/static/lsubc.ma". + +(* LOCAL ENVIRONMENT REFINEMENT FOR GENERIC REDUCIBILITY ********************) + +(* Forward lemmas with restricted refinement for local environments *) + +lemma lsubc_fwd_lsubr: âRP,G,L1,L2. G â¢ L1 â«[RP] L2 â L1 â« L2. +#RP #G #L1 #L2 #H elim H -L1 -L2 /2 width=1 by lsubr_bind, lsubr_beta/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsubf.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsubf.ma new file mode 100644 index 000000000..3c69f7f52 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsubf.ma @@ -0,0 +1,358 @@ +(******************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/relations/lrsubeqf_4.ma". +include "ground_2/relocation/nstream_sor.ma". +include "static_2/static/frees.ma". + +(* RESTRICTED REFINEMENT FOR CONTEXT-SENSITIVE FREE VARIABLES ***************) + +inductive lsubf: relation4 lenv rtmap lenv rtmap â +| lsubf_atom: âf1,f2. f1 â¡ f2 â lsubf (â) f1 (â) f2 +| lsubf_push: âf1,f2,I1,I2,L1,L2. lsubf L1 (f1) L2 (f2) â + lsubf (L1.â{I1}) (â«¯f1) (L2.â{I2}) (â«¯f2) +| lsubf_bind: âf1,f2,I,L1,L2. lsubf L1 f1 L2 f2 â + lsubf (L1.â{I}) (âf1) (L2.â{I}) (âf2) +| lsubf_beta: âf,f0,f1,f2,L1,L2,W,V. L1 â¢ ðâ¦Vâ¦ â f â f0 â f â f1 â + lsubf L1 f0 L2 f2 â lsubf (L1.ââW.V) (âf1) (L2.âW) (âf2) +| lsubf_unit: âf,f0,f1,f2,I1,I2,L1,L2,V. L1 â¢ ðâ¦Vâ¦ â f â f0 â f â f1 â + lsubf L1 f0 L2 f2 â lsubf (L1.â{I1}V) (âf1) (L2.â¤{I2}) (âf2) +. + +interpretation + "local environment refinement (context-sensitive free variables)" + 'LRSubEqF L1 f1 L2 f2 = (lsubf L1 f1 L2 f2). + +(* Basic inversion lemmas ***************************************************) + +fact lsubf_inv_atom1_aux: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â L1 = â â + f1 â¡ f2 â§ L2 = â. +#f1 #f2 #L1 #L2 * -f1 -f2 -L1 -L2 +[ /2 width=1 by conj/ +| #f1 #f2 #I1 #I2 #L1 #L2 #_ #H destruct +| #f1 #f2 #I #L1 #L2 #_ #H destruct +| #f #f0 #f1 #f2 #L1 #L2 #W #V #_ #_ #_ #H destruct +| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #_ #_ #_ #H destruct +] +qed-. + +lemma lsubf_inv_atom1: âf1,f2,L2. â¦â, f1â¦ â«ð* â¦L2, f2â¦ â f1 â¡ f2 â§ L2 = â. +/2 width=3 by lsubf_inv_atom1_aux/ qed-. + +fact lsubf_inv_push1_aux: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â + âg1,I1,K1. f1 = â«¯g1 â L1 = K1.â{I1} â + ââg2,I2,K2. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f2 = â«¯g2 & L2 = K2.â{I2}. +#f1 #f2 #L1 #L2 * -f1 -f2 -L1 -L2 +[ #f1 #f2 #_ #g1 #J1 #K1 #_ #H destruct +| #f1 #f2 #I1 #I2 #L1 #L2 #H12 #g1 #J1 #K1 #H1 #H2 destruct + <(injective_push â¦ H1) -g1 /2 width=6 by ex3_3_intro/ +| #f1 #f2 #I #L1 #L2 #_ #g1 #J1 #K1 #H elim (discr_next_push â¦ H) +| #f #f0 #f1 #f2 #L1 #L2 #W #V #_ #_ #_ #g1 #J1 #K1 #H elim (discr_next_push â¦ H) +| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #_ #_ #_ #g1 #J1 #K1 #H elim (discr_next_push â¦ H) +] +qed-. + +lemma lsubf_inv_push1: âg1,f2,I1,K1,L2. â¦K1.â{I1}, â«¯g1â¦ â«ð* â¦L2, f2â¦ â + ââg2,I2,K2. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f2 = â«¯g2 & L2 = K2.â{I2}. +/2 width=6 by lsubf_inv_push1_aux/ qed-. + +fact lsubf_inv_pair1_aux: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â + âg1,I,K1,X. f1 = âg1 â L1 = K1.â{I}X â + â¨â¨ ââg2,K2. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f2 = âg2 & L2 = K2.â{I}X + | ââg,g0,g2,K2,W,V. â¦K1, g0â¦ â«ð* â¦K2, g2â¦ & + K1 â¢ ðâ¦Vâ¦ â g & g0 â g â g1 & f2 = âg2 & + I = Abbr & X = âW.V & L2 = K2.âW + | ââg,g0,g2,J,K2. â¦K1, g0â¦ â«ð â¦K2, g2â¦ & + K1 â¢ ðâ¦Xâ¦ â g & g0 â g â g1 & f2 = âg2 & + L2 = K2.â¤{J}. +#f1 #f2 #L1 #L2 -f1 -f2 -L1 -L2 +[ #f1 #f2 #_ #g1 #J #K1 #X #_ #H destruct +| #f1 #f2 #I1 #I2 #L1 #L2 #H12 #g1 #J #K1 #X #H elim (discr_push_next â¦ H) +| #f1 #f2 #I #L1 #L2 #H12 #g1 #J #K1 #X #H1 #H2 destruct + <(injective_next â¦ H1) -g1 /3 width=5 by or3_intro0, ex3_2_intro/ +| #f #f0 #f1 #f2 #L1 #L2 #W #V #Hf #Hf1 #H12 #g1 #J #K1 #X #H1 #H2 destruct + <(injective_next â¦ H1) -g1 /3 width=12 by or3_intro1, ex7_6_intro/ +| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #Hf #Hf1 #H12 #g1 #J #K1 #X #H1 #H2 destruct + <(injective_next â¦ H1) -g1 /3 width=10 by or3_intro2, ex5_5_intro/ +] +qed-. + +lemma lsubf_inv_pair1: âg1,f2,I,K1,L2,X. â¦K1.â{I}X, âg1â¦ â«ð* â¦L2, f2â¦ â + â¨â¨ ââg2,K2. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f2 = âg2 & L2 = K2.â{I}X + | ââg,g0,g2,K2,W,V. â¦K1, g0â¦ â«ð* â¦K2, g2â¦ & + K1 â¢ ðâ¦Vâ¦ â g & g0 â g â g1 & f2 = âg2 & + I = Abbr & X = âW.V & L2 = K2.âW + | ââg,g0,g2,J,K2. â¦K1, g0â¦ â«ð â¦K2, g2â¦ & + K1 â¢ ðâ¦Xâ¦ â g & g0 â g â g1 & f2 = âg2 & + L2 = K2.â¤{J}. +/2 width=5 by lsubf_inv_pair1_aux/ qed-. + +fact lsubf_inv_unit1_aux: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð â¦L2, f2â¦ â + âg1,I,K1. f1 = âg1 â L1 = K1.â¤{I} â + ââg2,K2. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f2 = âg2 & L2 = K2.â¤{I}. +#f1 #f2 #L1 #L2 * -f1 -f2 -L1 -L2 +[ #f1 #f2 #_ #g1 #J #K1 #_ #H destruct +| #f1 #f2 #I1 #I2 #L1 #L2 #H12 #g1 #J #K1 #H elim (discr_push_next â¦ H) +| #f1 #f2 #I #L1 #L2 #H12 #g1 #J #K1 #H1 #H2 destruct + <(injective_next â¦ H1) -g1 /2 width=5 by ex3_2_intro/ +| #f #f0 #f1 #f2 #L1 #L2 #W #V #_ #_ #_ #g1 #J #K1 #_ #H destruct +| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #_ #_ #_ #g1 #J #K1 #_ #H destruct +] +qed-. + +lemma lsubf_inv_unit1: âg1,f2,I,K1,L2. â¦K1.â¤{I}, âg1â¦ â«ð* â¦L2, f2â¦ â + ââg2,K2. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f2 = âg2 & L2 = K2.â¤{I}. +/2 width=5 by lsubf_inv_unit1_aux/ qed-. + +fact lsubf_inv_atom2_aux: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â L2 = â â + f1 â¡ f2 â§ L1 = â. +#f1 #f2 #L1 #L2 * -f1 -f2 -L1 -L2 +[ /2 width=1 by conj/ +| #f1 #f2 #I1 #I2 #L1 #L2 #_ #H destruct +| #f1 #f2 #I #L1 #L2 #_ #H destruct +| #f #f0 #f1 #f2 #L1 #L2 #W #V #_ #_ #_ #H destruct +| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #_ #_ #_ #H destruct +] +qed-. + +lemma lsubf_inv_atom2: âf1,f2,L1. â¦L1, f1â¦ â«ð* â¦â, f2â¦ â f1 â¡ f2 â§ L1 = â. +/2 width=3 by lsubf_inv_atom2_aux/ qed-. + +fact lsubf_inv_push2_aux: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â + âg2,I2,K2. f2 = â«¯g2 â L2 = K2.â{I2} â + ââg1,I1,K1. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f1 = â«¯g1 & L1 = K1.â{I1}. +#f1 #f2 #L1 #L2 * -f1 -f2 -L1 -L2 +[ #f1 #f2 #_ #g2 #J2 #K2 #_ #H destruct +| #f1 #f2 #I1 #I2 #L1 #L2 #H12 #g2 #J2 #K2 #H1 #H2 destruct + <(injective_push â¦ H1) -g2 /2 width=6 by ex3_3_intro/ +| #f1 #f2 #I #L1 #L2 #_ #g2 #J2 #K2 #H elim (discr_next_push â¦ H) +| #f #f0 #f1 #f2 #L1 #L2 #W #V #_ #_ #_ #g2 #J2 #K2 #H elim (discr_next_push â¦ H) +| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #_ #_ #_ #g2 #J2 #K2 #H elim (discr_next_push â¦ H) +] +qed-. + +lemma lsubf_inv_push2: âf1,g2,I2,L1,K2. â¦L1, f1â¦ â«ð* â¦K2.â{I2}, â«¯g2â¦ â + ââg1,I1,K1. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f1 = â«¯g1 & L1 = K1.â{I1}. +/2 width=6 by lsubf_inv_push2_aux/ qed-. + +fact lsubf_inv_pair2_aux: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â + âg2,I,K2,W. f2 = âg2 â L2 = K2.â{I}W â + â¨â¨ ââg1,K1. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f1 = âg1 & L1 = K1.â{I}W + | ââg,g0,g1,K1,V. â¦K1, g0â¦ â«ð* â¦K2, g2â¦ & + K1 â¢ ðâ¦Vâ¦ â g & g0 â g â g1 & f1 = âg1 & + I = Abst & L1 = K1.ââW.V. +#f1 #f2 #L1 #L2 -f1 -f2 -L1 -L2 +[ #f1 #f2 #_ #g2 #J #K2 #X #_ #H destruct +| #f1 #f2 #I1 #I2 #L1 #L2 #H12 #g2 #J #K2 #X #H elim (discr_push_next â¦ H) +| #f1 #f2 #I #L1 #L2 #H12 #g2 #J #K2 #X #H1 #H2 destruct + <(injective_next â¦ H1) -g2 /3 width=5 by ex3_2_intro, or_introl/ +| #f #f0 #f1 #f2 #L1 #L2 #W #V #Hf #Hf1 #H12 #g2 #J #K2 #X #H1 #H2 destruct + <(injective_next â¦ H1) -g2 /3 width=10 by ex6_5_intro, or_intror/ +| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #_ #_ #_ #g2 #J #K2 #X #_ #H destruct +] +qed-. + +lemma lsubf_inv_pair2: âf1,g2,I,L1,K2,W. â¦L1, f1â¦ â«ð* â¦K2.â{I}W, âg2â¦ â + â¨â¨ ââg1,K1. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f1 = âg1 & L1 = K1.â{I}W + | ââg,g0,g1,K1,V. â¦K1, g0â¦ â«ð* â¦K2, g2â¦ & + K1 â¢ ðâ¦Vâ¦ â g & g0 â g â g1 & f1 = âg1 & + I = Abst & L1 = K1.ââW.V. +/2 width=5 by lsubf_inv_pair2_aux/ qed-. + +fact lsubf_inv_unit2_aux: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð â¦L2, f2â¦ â + âg2,I,K2. f2 = âg2 â L2 = K2.â¤{I} â + â¨â¨ ââg1,K1. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f1 = âg1 & L1 = K1.â¤{I} + | ââg,g0,g1,J,K1,V. â¦K1, g0â¦ â«ð* â¦K2, g2â¦ & + K1 â¢ ðâ¦Vâ¦ â g & g0 â g â g1 & f1 = âg1 & + L1 = K1.â{J}V. +#f1 #f2 #L1 #L2 -f1 -f2 -L1 -L2 +[ #f1 #f2 #_ #g2 #J #K2 #_ #H destruct +| #f1 #f2 #I1 #I2 #L1 #L2 #H12 #g2 #J #K2 #H elim (discr_push_next â¦ H) +| #f1 #f2 #I #L1 #L2 #H12 #g2 #J #K2 #H1 #H2 destruct + <(injective_next â¦ H1) -g2 /3 width=5 by ex3_2_intro, or_introl/ +| #f #f0 #f1 #f2 #L1 #L2 #W #V #_ #_ #_ #g2 #J #K2 #_ #H destruct +| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #Hf #Hf1 #H12 #g2 #J #K2 #H1 #H2 destruct + <(injective_next â¦ H1) -g2 /3 width=11 by ex5_6_intro, or_intror/ +] +qed-. + +lemma lsubf_inv_unit2: âf1,g2,I,L1,K2. â¦L1, f1â¦ â«ð* â¦K2.â¤{I}, âg2â¦ â + â¨â¨ ââg1,K1. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f1 = âg1 & L1 = K1.â¤{I} + | ââg,g0,g1,J,K1,V. â¦K1, g0â¦ â«ð* â¦K2, g2â¦ & + K1 â¢ ðâ¦Vâ¦ â g & g0 â g â g1 & f1 = âg1 & + L1 = K1.â{J}V. +/2 width=5 by lsubf_inv_unit2_aux/ qed-. + +( Advanced inversion lemmas ************************************************) + +lemma lsubf_inv_atom: âf1,f2. â¦â, f1â¦ â«ð* â¦â, f2â¦ â f1 â¡ f2. +#f1 #f2 #H elim (lsubf_inv_atom1 â¦ H) -H // +qed-. + +lemma lsubf_inv_push_sn: âg1,f2,I1,I2,K1,K2. â¦K1.â{I1}, â«¯g1â¦ â«ð* â¦K2.â{I2}, f2â¦ â + ââg2. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f2 = â«¯g2. +#g1 #f2 #I #K1 #K2 #X #H elim (lsubf_inv_push1 â¦ H) -H +#g2 #I #Y #H0 #H2 #H destruct /2 width=3 by ex2_intro/ +qed-. + +lemma lsubf_inv_bind_sn: âg1,f2,I,K1,K2. â¦K1.â{I}, âg1â¦ â«ð* â¦K2.â{I}, f2â¦ â + ââg2. â¦K1, g1â¦ â«ð* â¦K2, g2â¦ & f2 = âg2. +#g1 #f2 * #I [2: #X ] #K1 #K2 #H +[ elim (lsubf_inv_pair1 â¦ H) -H * + [ #z2 #Y2 #H2 #H #H0 destruct /2 width=3 by ex2_intro/ + | #z #z0 #z2 #Y2 #W #V #_ #_ #_ #_ #H0 #_ #H destruct + | #z #z0 #z2 #Z2 #Y2 #_ #_ #_ #_ #H destruct + ] +| elim (lsubf_inv_unit1 â¦ H) -H + #z2 #Y2 #H2 #H #H0 destruct /2 width=3 by ex2_intro/ +] +qed-. + +lemma lsubf_inv_beta_sn: âg1,f2,K1,K2,V,W. â¦K1.ââW.V, âg1â¦ â«ð* â¦K2.âW, f2â¦ â + ââg,g0,g2. â¦K1, g0â¦ â«ð* â¦K2, g2â¦ & K1 â¢ ðâ¦Vâ¦ â g & g0 â g â g1 & f2 = âg2. +#g1 #f2 #K1 #K2 #V #W #H elim (lsubf_inv_pair1 â¦ H) -H +[ #z2 #Y2 #_ #_ #H destruct +| #z #z0 #z2 #Y2 #X0 #X #H02 #Hz #Hg1 #H #_ #H0 #H1 destruct + /2 width=7 by ex4_3_intro/ +| #z #z0 #z2 #Z2 #Y2 #_ #_ #_ #_ #H destruct +] +qed-. + +lemma lsubf_inv_unit_sn: âg1,f2,I,J,K1,K2,V. â¦K1.â{I}V, âg1â¦ â«ð* â¦K2.â¤{J}, f2â¦ â + ââg,g0,g2. â¦K1, g0â¦ â«ð* â¦K2, g2â¦ & K1 â¢ ðâ¦Vâ¦ â g & g0 â g â g1 & f2 = âg2. +#g1 #f2 #I #J #K1 #K2 #V #H elim (lsubf_inv_pair1 â¦ H) -H +[ #z2 #Y2 #_ #_ #H destruct +| #z #z0 #z2 #Y2 #X0 #X #_ #_ #_ #_ #_ #_ #H destruct +| #z #z0 #z2 #Z2 #Y2 #H02 #Hz #Hg1 #H0 #H1 destruct + /2 width=7 by ex4_3_intro/ +] +qed-. + +lemma lsubf_inv_refl: âL,f1,f2. â¦L,f1â¦ â«ð* â¦L,f2â¦ â f1 â¡ f2. +#L elim L -L /2 width=1 by lsubf_inv_atom/ +#L #I #IH #f1 #f2 #H12 +elim (pn_split f1) * #g1 #H destruct +[ elim (lsubf_inv_push_sn â¦ H12) | elim (lsubf_inv_bind_sn â¦ H12) ] -H12 +#g2 #H12 #H destruct /3 width=5 by eq_next, eq_push/ +qed-. + +(* Basic forward lemmas *****************************************************) + +lemma lsubf_fwd_bind_tl: âf1,f2,I,L1,L2. + â¦L1.â{I}, f1â¦ â«ð* â¦L2.â{I}, f2â¦ â â¦L1, â«±f1â¦ â«ð* â¦L2, â«±f2â¦. +#f1 #f2 #I #L1 #L2 #H +elim (pn_split f1) * #g1 #H0 destruct +[ elim (lsubf_inv_push_sn â¦ H) | elim (lsubf_inv_bind_sn â¦ H) ] -H +#g2 #H12 #H destruct // +qed-. + +lemma lsubf_fwd_isid_dx: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â ðâ¦f2â¦ â ðâ¦f1â¦. +#f1 #f2 #L1 #L2 #H elim H -f1 -f2 -L1 -L2 +[ /2 width=3 by isid_eq_repl_fwd/ +| /4 width=3 by isid_inv_push, isid_push/ +| #f1 #f2 #I #L1 #L2 #_ #_ #H elim (isid_inv_next â¦ H) -H // +| #f #f0 #f1 #f2 #L1 #L2 #W #V #_ #_ #_ #_ #H elim (isid_inv_next â¦ H) -H // +| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #_ #_ #_ #_ #H elim (isid_inv_next â¦ H) -H // +] +qed-. + +lemma lsubf_fwd_isid_sn: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â ðâ¦f1â¦ â ðâ¦f2â¦. +#f1 #f2 #L1 #L2 #H elim H -f1 -f2 -L1 -L2 +[ /2 width=3 by isid_eq_repl_back/ +| /4 width=3 by isid_inv_push, isid_push/ +| #f1 #f2 #I #L1 #L2 #_ #_ #H elim (isid_inv_next â¦ H) -H // +| #f #f0 #f1 #f2 #L1 #L2 #W #V #_ #_ #_ #_ #H elim (isid_inv_next â¦ H) -H // +| #f #f0 #f1 #f2 #I1 #I2 #L1 #L2 #V #_ #_ #_ #_ #H elim (isid_inv_next â¦ H) -H // +] +qed-. + +lemma lsubf_fwd_sle: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â f2 â f1. +#f1 #f2 #L1 #L2 #H elim H -f1 -f2 -L1 -L2 +/3 width=5 by sor_inv_sle_sn_trans, sle_next, sle_push, sle_refl_eq, eq_sym/ +qed-. + +(* Basic properties *********************************************************) + +axiom lsubf_eq_repl_back1: âf2,L1,L2. eq_repl_back â¦ (Î»f1. â¦L1, f1â¦ â«ð* â¦L2, f2â¦). + +lemma lsubf_eq_repl_fwd1: âf2,L1,L2. eq_repl_fwd â¦ (Î»f1. â¦L1, f1â¦ â«ð* â¦L2, f2â¦). +#f2 #L1 #L2 @eq_repl_sym /2 width=3 by lsubf_eq_repl_back1/ +qed-. + +axiom lsubf_eq_repl_back2: âf1,L1,L2. eq_repl_back â¦ (Î»f2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦). + +lemma lsubf_eq_repl_fwd2: âf1,L1,L2. eq_repl_fwd â¦ (Î»f2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦). +#f1 #L1 #L2 @eq_repl_sym /2 width=3 by lsubf_eq_repl_back2/ +qed-. + +lemma lsubf_refl: bi_reflexive â¦ lsubf. +#L elim L -L /2 width=1 by lsubf_atom, eq_refl/ +#L #I #IH #f elim (pn_split f) * #g #H destruct +/2 width=1 by lsubf_push, lsubf_bind/ +qed. + +lemma lsubf_refl_eq: âf1,f2,L. f1 â¡ f2 â â¦L, f1â¦ â«ð* â¦L, f2â¦. +/2 width=3 by lsubf_eq_repl_back2/ qed. + +lemma lsubf_bind_tl_dx: âg1,f2,I,L1,L2. â¦L1, g1â¦ â«ð* â¦L2, â«±f2â¦ â + ââf1. â¦L1.â{I}, f1â¦ â«ð* â¦L2.â{I}, f2â¦ & g1 = â«±f1. +#g1 #f2 #I #L1 #L2 #H +elim (pn_split f2) * #g2 #H2 destruct +@ex2_intro [1,2,4,5: /2 width=2 by lsubf_push, lsubf_bind/ ] // (**) (* constructor needed ) +qed-. + +lemma lsubf_beta_tl_dx: âf,f0,g1,L1,V. L1 â¢ ðâ¦Vâ¦ â f â f0 â f â g1 â + âf2,L2,W. â¦L1, f0â¦ â«ð* â¦L2, â«±f2â¦ â + ââf1. â¦L1.ââW.V, f1â¦ â«ð* â¦L2.âW, f2â¦ & â«±f1 â g1. +#f #f0 #g1 #L1 #V #Hf #Hg1 #f2 +elim (pn_split f2) * #x2 #H2 #L2 #W #HL12 destruct +[ /3 width=4 by lsubf_push, sor_inv_sle_sn, ex2_intro/ +| @(ex2_intro â¦ (âg1)) /2 width=5 by lsubf_beta/ (**) (* full auto fails ) +] +qed-. + +( Note: this might be moved ) +lemma lsubf_inv_sor_dx: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð â¦L2, f2â¦ â + âf2l,f2r. f2lâf2r â f2 â + ââf1l,f1r. â¦L1, f1lâ¦ â«ð* â¦L2, f2lâ¦ & â¦L1, f1râ¦ â«ð* â¦L2, f2râ¦ & f1lâf1r â f1. +#f1 #f2 #L1 #L2 #H elim H -f1 -f2 -L1 -L2 +[ /3 width=7 by sor_eq_repl_fwd3, ex3_2_intro/ +| #g1 #g2 #I1 #I2 #L1 #L2 #_ #IH #f2l #f2r #H + elim (sor_inv_xxp â¦ H) -H [|: // ] #g2l #g2r #Hg2 #Hl #Hr destruct + elim (IH â¦ Hg2) -g2 /3 width=11 by lsubf_push, sor_pp, ex3_2_intro/ +| #g1 #g2 #I #L1 #L2 #_ #IH #f2l #f2r #H + elim (sor_inv_xxn â¦ H) -H [1,3,4: |: // ] #g2l #g2r #Hg2 #Hl #Hr destruct + elim (IH â¦ Hg2) -g2 /3 width=11 by lsubf_push, lsubf_bind, sor_np, sor_pn, sor_nn, ex3_2_intro/ +| #g #g0 #g1 #g2 #L1 #L2 #W #V #Hg #Hg1 #_ #IH #f2l #f2r #H + elim (sor_inv_xxn â¦ H) -H [1,3,4: |: // ] #g2l #g2r #Hg2 #Hl #Hr destruct + elim (IH â¦ Hg2) -g2 #g1l #g1r #Hl #Hr #Hg0 + [ lapply (sor_comm_23 â¦ Hg0 Hg1 ?) -g0 [3: |: // ] #Hg1 + /3 width=11 by lsubf_push, lsubf_beta, sor_np, ex3_2_intro/ + | lapply (sor_assoc_dx â¦ Hg1 â¦ Hg0 ??) -g0 [3: |: // ] #Hg1 + /3 width=11 by lsubf_push, lsubf_beta, sor_pn, ex3_2_intro/ + | lapply (sor_distr_dx â¦ Hg0 â¦ Hg1) -g0 [5: |: // ] #Hg1 + /3 width=11 by lsubf_beta, sor_nn, ex3_2_intro/ + ] +| #g #g0 #g1 #g2 #I1 #I2 #L1 #L2 #V #Hg #Hg1 #_ #IH #f2l #f2r #H + elim (sor_inv_xxn â¦ H) -H [1,3,4: * |: // ] #g2l #g2r #Hg2 #Hl #Hr destruct + elim (IH â¦ Hg2) -g2 #g1l #g1r #Hl #Hr #Hg0 + [ lapply (sor_comm_23 â¦ Hg0 Hg1 ?) -g0 [3: |: // ] #Hg1 + /3 width=11 by lsubf_push, lsubf_unit, sor_np, ex3_2_intro/ + | lapply (sor_assoc_dx â¦ Hg1 â¦ Hg0 ??) -g0 [3: |: // ] #Hg1 + /3 width=11 by lsubf_push, lsubf_unit, sor_pn, ex3_2_intro/ + | lapply (sor_distr_dx â¦ Hg0 â¦ Hg1) -g0 [5: |: // ] #Hg1 + /3 width=11 by lsubf_unit, sor_nn, ex3_2_intro/ + ] +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsubf_frees.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsubf_frees.ma new file mode 100644 index 000000000..7a39036b5 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsubf_frees.ma @@ -0,0 +1,51 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/lsubf.ma". + +(* RESTRICTED REFINEMENT FOR CONTEXT-SENSITIVE FREE VARIABLES ***************) + +(* Properties with context-sensitive free variables *************************) + +lemma lsubf_frees_trans: âf2,L2,T. L2 â¢ ðâ¦Tâ¦ â f2 â + âf1,L1. â¦L1, f1â¦ â«ð â¦L2, f2â¦ â L1 â¢ ðâ¦Tâ¦ â f1. +#f2 #L2 #T #H elim H -f2 -L2 -T +[ /3 width=5 by lsubf_fwd_isid_dx, frees_sort/ +| #f2 #i #Hf2 #g1 #Y1 #H + elim (lsubf_inv_atom2 â¦ H) -H #Hg1 #H destruct + elim (eq_inv_pushs_dx â¦ Hg1) -Hg1 #g #Hg #H destruct + elim (eq_inv_xn â¦ Hg) -Hg + /3 width=3 by frees_atom, isid_eq_repl_fwd/ +| #f2 #I #K2 #W #_ #IH #g1 #Y1 #H elim (lsubf_inv_pair2 â¦ H) -H + [ #f1 #K1 #H12 #H1 #H2 destruct /3 width=1 by frees_pair/ + | #f #f0 #f1 #K1 #V #H12 #Hf #Hf1 #H1 #H2 #H3 destruct + /4 width=5 by frees_pair, frees_flat/ + ] +| #f2 #I #L2 #Hf2 #g1 #Y1 #H elim (lsubf_inv_unit2 â¦ H) -H * + [ #f1 #L1 #H12 #H1 #H2 destruct + /3 width=5 by lsubf_fwd_isid_dx, frees_unit/ + | #f #f0 #f1 #J #L1 #V #H12 #Hf #Hf1 #H1 #H2 destruct + /5 width=9 by lsubf_fwd_isid_dx, frees_eq_repl_back, frees_pair, sor_isid_inv_sn/ + ] +| #f2 #I #L2 #i #_ #IH #g1 #L1 #H elim (lsubf_inv_push2 â¦ H) -H + /3 width=1 by frees_lref/ +| /3 width=5 by lsubf_fwd_isid_dx, frees_gref/ +| #f2V #f2T #f2 #p #I #L2 #V #T #_ #_ #Hf2 #IHV #IHT #f1 #L1 #H12 + elim (lsubf_inv_sor_dx â¦ H12 â¦ Hf2) -f2 #f1V #g1T #HV #HT #Hf1 + elim (lsubf_bind_tl_dx â¦ (BPair I V) â¦ HT) -HT #f1T #HT #H destruct + /3 width=5 by frees_bind/ +| #f2V #f2T #f2 #I #L2 #V #T #_ #_ #Hf2 #IHV #IHT #f1 #L1 #H12 + elim (lsubf_inv_sor_dx â¦ H12 â¦ Hf2) -f2 /3 width=5 by frees_flat/ +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsubf_lsubf.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsubf_lsubf.ma new file mode 100644 index 000000000..79f33abda --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsubf_lsubf.ma @@ -0,0 +1,83 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/frees_frees.ma". +include "static_2/static/lsubf.ma". + +(* RESTRICTED REFINEMENT FOR CONTEXT-SENSITIVE FREE VARIABLES ***************) + +(* Main properties **********************************************************) + +theorem lsubf_sor: âK,L,g1,f1. â¦K, g1â¦ â«ð* â¦L, f1â¦ â + âg2,f2. â¦K, g2â¦ â«ð* â¦L, f2â¦ â + âg. g1 â g2 â g â âf. f1 â f2 â f â â¦K, gâ¦ â«ð* â¦L, fâ¦. +#K elim K -K +[ #L #g1 #f1 #H1 #g2 #f2 #H2 #g #Hg #f #Hf + elim (lsubf_inv_atom1 â¦ H1) -H1 #H1 #H destruct + lapply (lsubf_inv_atom â¦ H2) -H2 #H2 + /5 width=4 by lsubf_atom, sor_mono, sor_eq_repl_back2, sor_eq_repl_back1/ +| #K #J #IH #L #g1 #f1 #H1 #g2 #f2 #H2 #g #Hg #f #Hf + elim (pn_split g1) * #y1 #H destruct + elim (pn_split g2) * #y2 #H destruct + [ elim (sor_inv_ppx â¦ Hg) -Hg [|: // ] #y #Hy #H destruct + elim (lsubf_inv_push1 â¦ H1) -H1 #x1 #Z1 #Y1 #H1 #H #H0 destruct + elim (lsubf_inv_push_sn â¦ H2) -H2 #x2 #H2 #H destruct + elim (sor_inv_ppx â¦ Hf) -Hf [|: // ] #x #Hx #H destruct + /3 width=8 by lsubf_push/ + | elim (sor_inv_pnx â¦ Hg) -Hg [|: // ] #y #Hy #H destruct + elim (lsubf_inv_push1 â¦ H1) -H1 #x1 #Z1 #Y1 #H1 #H #H0 destruct + generalize in match H2; -H2 cases J -J #J [| #V ] #H2 + [ elim (lsubf_inv_unit1 â¦ H2) -H2 #x2 #Y2 #H2 #H #H0 destruct + | elim (lsubf_inv_pair1 â¦ H2) -H2 + [ #x2 #Z2 #H2 #H #H0 destruct + | #y3 #y4 #x2 #Y2 #W #U #H2 #Hy3 #Hy2 #H #H0 #H3 #H4 destruct + | #y3 #y4 #x2 #Z2 #Y2 #H2 #Hy3 #Hy2 #H #H0 destruct + ] + ] + elim (sor_inv_pnx â¦ Hf) -Hf [1,6,11,16:|: // ] #x #Hx #H destruct + /3 width=12 by lsubf_unit, lsubf_beta, lsubf_bind, sor_assoc_sn/ + | elim (sor_inv_npx â¦ Hg) -Hg [|: // ] #y #Hy #H destruct + elim (lsubf_inv_push1 â¦ H2) -H2 #x2 #Z2 #Y2 #H2 #H #H0 destruct + generalize in match H1; -H1 cases J -J #J [| #V ] #H1 + [ elim (lsubf_inv_unit1 â¦ H1) -H1 #x1 #Y1 #H1 #H #H0 destruct + | elim (lsubf_inv_pair1 â¦ H1) -H1 * + [ #x1 #Z1 #H1 #H #H0 destruct + | #y3 #y4 #x1 #Y1 #W #U #H1 #Hy3 #Hy1 #H #H0 #H3 #H4 destruct + | #y3 #y4 #x1 #Z1 #Y1 #H1 #Hy3 #Hy1 #H #H0 destruct + ] + ] + elim (sor_inv_npx â¦ Hf) -Hf [1,6,11,16:|: // ] #x #Hx #H destruct + /3 width=12 by lsubf_unit, lsubf_beta, lsubf_bind, sor_comm_23/ + | elim (sor_inv_nnx â¦ Hg) -Hg [|: // ] #y #Hy #H destruct + generalize in match H2; generalize in match H1; -H1 -H2 cases J -J #J [| #V ] #H1 #H2 + [ elim (lsubf_inv_unit1 â¦ H1) -H1 #x1 #Y1 #H1 #H #H0 destruct + elim (lsubf_inv_bind_sn â¦ H2) -H2 #x2 #H2 #H destruct + | elim (lsubf_inv_pair1 â¦ H1) -H1 * + [ #x1 #Z1 #H1 #H #H0 destruct + elim (lsubf_inv_bind_sn â¦ H2) -H2 #x2 #H2 #H destruct + | #y3 #y4 #x1 #Y1 #W #U #H1 #Hy3 #Hy1 #H #H0 #H3 #H4 destruct + elim (lsubf_inv_beta_sn â¦ H2) -H2 #z3 #z4 #x2 #H2 #Hz3 #Hy2 #H destruct + lapply (frees_mono â¦ Hz3 â¦ Hy3) -Hz3 #H3 + lapply (sor_eq_repl_back2 â¦ Hy2 â¦ H3) -z3 #Hy2 + | #y3 #y4 #x1 #Z1 #Y1 #H1 #Hy3 #Hy1 #H #H0 destruct + elim (lsubf_inv_unit_sn â¦ H2) -H2 #z3 #z4 #x2 #H2 #Hz3 #Hy2 #H destruct + lapply (frees_mono â¦ Hz3 â¦ Hy3) -Hz3 #H3 + lapply (sor_eq_repl_back2 â¦ Hy2 â¦ H3) -z3 #Hy2 + ] + ] + elim (sor_inv_nnx â¦ Hf) -Hf [1,6,11,16:|*: // ] #x #Hx #H destruct + /3 width=12 by lsubf_unit, lsubf_beta, lsubf_bind, sor_coll_dx/ + ] +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsubf_lsubr.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsubf_lsubr.ma new file mode 100644 index 000000000..a021ca5a4 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsubf_lsubr.ma @@ -0,0 +1,85 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/lsubr.ma". +include "static_2/static/lsubf_lsubf.ma". + +(* RESTRICTED REFINEMENT FOR CONTEXT-SENSITIVE FREE VARIABLES ***************) + +(* Forward lemmas with restricted refinement for local environments *********) + +lemma lsubf_fwd_lsubr_isdiv: âf1,f2,L1,L2. â¦L1, f1â¦ â«ð* â¦L2, f2â¦ â + ðâ¦f1â¦ â ðâ¦f2â¦ â L1 â« L2. +#f1 #f2 #L1 #L2 #H elim H -f1 -f2 -L1 -L2 +/4 width=3 by lsubr_bind, isdiv_inv_next/ +[ #f1 #f2 #I1 #I2 #L1 #L2 #_ #_ #H + elim (isdiv_inv_push â¦ H) // +| /5 width=5 by lsubf_fwd_sle, lsubr_beta, sle_inv_isdiv_sn, isdiv_inv_next/ +| /5 width=5 by lsubf_fwd_sle, lsubr_unit, sle_inv_isdiv_sn, isdiv_inv_next/ +] +qed-. + +(* Properties with restricted refinement for local environments *************) + +lemma lsubr_lsubf_isid: âL1,L2. L1 â« L2 â + âf1,f2. ðâ¦f1â¦ â ðâ¦f2â¦ â â¦L1, f1â¦ â«ð* â¦L2, f2â¦. +#L1 #L2 #H elim H -L1 -L2 +[ /3 width=1 by lsubf_atom, isid_inv_eq_repl/ +| #I #L1 #L2 | #L1 #L2 #V #W | #I1 #I2 #L1 #L2 #V +] +#_ #IH #f1 #f2 #Hf1 #Hf2 +elim (isid_inv_gen â¦ Hf1) -Hf1 #g1 #Hg1 #H destruct +elim (isid_inv_gen â¦ Hf2) -Hf2 #g2 #Hg2 #H destruct +/3 width=1 by lsubf_push/ +qed. + +lemma lsubr_lsubf: âf2,L2,T. L2 â¢ ðâ¦Tâ¦ â f2 â âL1. L1 â« L2 â + âf1. L1 â¢ ðâ¦Tâ¦ â f1 â â¦L1, f1â¦ â«ð* â¦L2, f2â¦. +#f2 #L2 #T #H elim H -f2 -L2 -T +[ #f2 #L2 #s #Hf2 #L1 #HL12 #f1 #Hf1 + lapply (frees_inv_sort â¦ Hf1) -Hf1 /2 width=1 by lsubr_lsubf_isid/ +| #f2 #i #Hf2 #Y1 #HY1 + >(lsubr_inv_atom2 â¦ HY1) -Y1 #g1 #Hg1 + elim (frees_inv_atom â¦ Hg1) -Hg1 #f1 #Hf1 #H destruct + /5 width=5 by lsubf_atom, isid_inv_eq_repl, pushs_eq_repl, eq_next/ +| #f2 #Z #L2 #W #_ #IH #Y1 #HY1 #g1 #Hg1 elim (lsubr_inv_pair2 â¦ HY1) -HY1 * + [ #L1 #HL12 #H destruct + elim (frees_inv_pair â¦ Hg1) -Hg1 #f1 #Hf1 #H destruct + /3 width=1 by lsubf_bind/ + | #L1 #V #HL12 #H1 #H2 destruct + elim (frees_inv_pair â¦ Hg1) -Hg1 #f1 #Hf1 #H destruct + elim (frees_inv_flat â¦ Hf1) -Hf1 /3 width=5 by lsubf_beta/ + ] +| #f2 #I2 #L2 #Hf2 #Y1 #HY1 #g1 #Hg1 elim (lsubr_inv_unit2 â¦ HY1) -HY1 * + [ #L1 #HL12 #H destruct + elim (frees_inv_unit â¦ Hg1) -Hg1 #f1 #Hf1 #H destruct + /3 width=1 by lsubf_bind, lsubr_lsubf_isid/ + | #I #L1 #V #HL12 #H destruct + elim (frees_inv_pair â¦ Hg1) -Hg1 #f1 #Hf1 #H destruct + /3 width=5 by lsubf_unit, sor_isid_sn, lsubr_lsubf_isid/ + ] +| #f2 #I2 #L2 #i #_ #IH #Y1 #HY1 #g1 #Hg1 + elim (lsubr_fwd_bind2 â¦ HY1) -HY1 #I1 #L1 #HL12 #H destruct + elim (frees_inv_lref â¦ Hg1) -Hg1 #f1 #Hf1 #H destruct + /3 width=1 by lsubf_push/ +| #f2 #L2 #l #Hf2 #L1 #HL12 #f1 #Hf1 + lapply (frees_inv_gref â¦ Hf1) -Hf1 /2 width=1 by lsubr_lsubf_isid/ +| #f2V #f2T #f2 #p #I #L2 #V #T #_ #_ #Hf2 #IHV #IHT #L1 #HL12 #f1 #Hf1 + elim (frees_inv_bind â¦ Hf1) -Hf1 #f1V #f1T #Hf1V #Hf1T #Hf1 + /5 width=8 by lsubf_sor, lsubf_fwd_bind_tl, lsubr_bind/ +| #f2V #f2T #f2 #I #L2 #V #T #_ #_ #Hf2 #IHV #IHT #L1 #HL12 #f1 #Hf1 + elim (frees_inv_flat â¦ Hf1) -Hf1 #f1V #f1T #Hf1V #Hf1T #Hf1 + /3 width=8 by lsubf_sor/ +] +qed. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsubr.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsubr.ma new file mode 100644 index 000000000..5ec8a33f1 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsubr.ma @@ -0,0 +1,176 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/relations/lrsubeqc_2.ma". +include "static_2/syntax/lenv.ma". + +(* RESTRICTED REFINEMENT FOR LOCAL ENVIRONMENTS *****************************) + +(* Basic_2A1: just tpr_cpr and tprs_cprs require the extended lsubr_atom ) +( Basic_2A1: includes: lsubr_pair ) +inductive lsubr: relation lenv â +| lsubr_atom: lsubr (â) (â) +| lsubr_bind: âI,L1,L2. lsubr L1 L2 â lsubr (L1.â{I}) (L2.â{I}) +| lsubr_beta: âL1,L2,V,W. lsubr L1 L2 â lsubr (L1.ââW.V) (L2.âW) +| lsubr_unit: âI1,I2,L1,L2,V. lsubr L1 L2 â lsubr (L1.â{I1}V) (L2.â¤{I2}) +. + +interpretation + "restricted refinement (local environment)" + 'LRSubEqC L1 L2 = (lsubr L1 L2). + +( Basic properties *********************************************************) + +lemma lsubr_refl: âL. L â« L. +#L elim L -L /2 width=1 by lsubr_atom, lsubr_bind/ +qed. + +(* Basic inversion lemmas ***************************************************) + +fact lsubr_inv_atom1_aux: âL1,L2. L1 â« L2 â L1 = â â L2 = â. +#L1 #L2 * -L1 -L2 // +[ #I #L1 #L2 #_ #H destruct +| #L1 #L2 #V #W #_ #H destruct +| #I1 #I2 #L1 #L2 #V #_ #H destruct +] +qed-. + +lemma lsubr_inv_atom1: âL2. â â« L2 â L2 = â. +/2 width=3 by lsubr_inv_atom1_aux/ qed-. + +fact lsubr_inv_bind1_aux: âL1,L2. L1 â« L2 â âI,K1. L1 = K1.â{I} â + â¨â¨ ââK2. K1 â« K2 & L2 = K2.â{I} + | ââK2,V,W. K1 â« K2 & L2 = K2.âW & + I = BPair Abbr (âW.V) + | ââJ1,J2,K2,V. K1 â« K2 & L2 = K2.â¤{J2} & + I = BPair J1 V. +#L1 #L2 * -L1 -L2 +[ #J #K1 #H destruct +| #I #L1 #L2 #HL12 #J #K1 #H destruct /3 width=3 by or3_intro0, ex2_intro/ +| #L1 #L2 #V #W #HL12 #J #K1 #H destruct /3 width=6 by or3_intro1, ex3_3_intro/ +| #I1 #I2 #L1 #L2 #V #HL12 #J #K1 #H destruct /3 width=4 by or3_intro2, ex3_4_intro/ +] +qed-. + +(* Basic_2A1: uses: lsubr_inv_pair1 ) +lemma lsubr_inv_bind1: âI,K1,L2. K1.â{I} â« L2 â + â¨â¨ ââK2. K1 â« K2 & L2 = K2.â{I} + | ââK2,V,W. K1 â« K2 & L2 = K2.âW & + I = BPair Abbr (âW.V) + | ââJ1,J2,K2,V. K1 â« K2 & L2 = K2.â¤{J2} & + I = BPair J1 V. +/2 width=3 by lsubr_inv_bind1_aux/ qed-. + +fact lsubr_inv_atom2_aux: âL1,L2. L1 â« L2 â L2 = â â L1 = â. +#L1 #L2 -L1 -L2 // +[ #I #L1 #L2 #_ #H destruct +| #L1 #L2 #V #W #_ #H destruct +| #I1 #I2 #L1 #L2 #V #_ #H destruct +] +qed-. + +lemma lsubr_inv_atom2: âL1. L1 â« â â L1 = â. +/2 width=3 by lsubr_inv_atom2_aux/ qed-. + +fact lsubr_inv_bind2_aux: âL1,L2. L1 â« L2 â âI,K2. L2 = K2.â{I} â + â¨â¨ ââK1. K1 â« K2 & L1 = K1.â{I} + | ââK1,W,V. K1 â« K2 & L1 = K1.ââW.V & I = BPair Abst W + | ââJ1,J2,K1,V. K1 â« K2 & L1 = K1.â{J1}V & I = BUnit J2. +#L1 #L2 * -L1 -L2 +[ #J #K2 #H destruct +| #I #L1 #L2 #HL12 #J #K2 #H destruct /3 width=3 by ex2_intro, or3_intro0/ +| #L1 #L2 #V1 #V2 #HL12 #J #K2 #H destruct /3 width=6 by ex3_3_intro, or3_intro1/ +| #I1 #I2 #L1 #L2 #V #HL12 #J #K2 #H destruct /3 width=5 by ex3_4_intro, or3_intro2/ +] +qed-. + +lemma lsubr_inv_bind2: âI,L1,K2. L1 â« K2.â{I} â + â¨â¨ ââK1. K1 â« K2 & L1 = K1.â{I} + | ââK1,W,V. K1 â« K2 & L1 = K1.ââW.V & I = BPair Abst W + | ââJ1,J2,K1,V. K1 â« K2 & L1 = K1.â{J1}V & I = BUnit J2. +/2 width=3 by lsubr_inv_bind2_aux/ qed-. + +(* Advanced inversion lemmas ************************************************) + +lemma lsubr_inv_abst1: âK1,L2,W. K1.âW â« L2 â + â¨â¨ ââK2. K1 â« K2 & L2 = K2.âW + | ââI2,K2. K1 â« K2 & L2 = K2.â¤{I2}. +#K1 #L2 #W #H elim (lsubr_inv_bind1 â¦ H) -H * +/3 width=4 by ex2_2_intro, ex2_intro, or_introl, or_intror/ +#K2 #V2 #W2 #_ #_ #H destruct +qed-. + +lemma lsubr_inv_unit1: âI,K1,L2. K1.â¤{I} â« L2 â + ââK2. K1 â« K2 & L2 = K2.â¤{I}. +#I #K1 #L2 #H elim (lsubr_inv_bind1 â¦ H) -H * +[ #K2 #HK12 #H destruct /2 width=3 by ex2_intro/ +| #K2 #V #W #_ #_ #H destruct +| #I1 #I2 #K2 #V #_ #_ #H destruct +] +qed-. + +lemma lsubr_inv_pair2: âI,L1,K2,W. L1 â« K2.â{I}W â + â¨â¨ ââK1. K1 â« K2 & L1 = K1.â{I}W + | ââK1,V. K1 â« K2 & L1 = K1.ââW.V & I = Abst. +#I #L1 #K2 #W #H elim (lsubr_inv_bind2 â¦ H) -H * +[ /3 width=3 by ex2_intro, or_introl/ +| #K2 #X #V #HK12 #H1 #H2 destruct /3 width=4 by ex3_2_intro, or_intror/ +| #I1 #I1 #K2 #V #_ #_ #H destruct +] +qed-. + +lemma lsubr_inv_abbr2: âL1,K2,V. L1 â« K2.âV â + ââK1. K1 â« K2 & L1 = K1.âV. +#L1 #K2 #V #H elim (lsubr_inv_pair2 â¦ H) -H * +[ /2 width=3 by ex2_intro/ +| #K1 #X #_ #_ #H destruct +] +qed-. + +lemma lsubr_inv_abst2: âL1,K2,W. L1 â« K2.âW â + â¨â¨ ââK1. K1 â« K2 & L1 = K1.âW + | ââK1,V. K1 â« K2 & L1 = K1.ââW.V. +#L1 #K2 #W #H elim (lsubr_inv_pair2 â¦ H) -H * +/3 width=4 by ex2_2_intro, ex2_intro, or_introl, or_intror/ +qed-. + +lemma lsubr_inv_unit2: âI,L1,K2. L1 â« K2.â¤{I} â + â¨â¨ ââK1. K1 â« K2 & L1 = K1.â¤{I} + | ââJ,K1,V. K1 â« K2 & L1 = K1.â{J}V. +#I #L1 #K2 #H elim (lsubr_inv_bind2 â¦ H) -H * +[ /3 width=3 by ex2_intro, or_introl/ +| #K1 #W #V #_ #_ #H destruct +| #I1 #I2 #K1 #V #HK12 #H1 #H2 destruct /3 width=5 by ex2_3_intro, or_intror/ +] +qed-. + +(* Basic forward lemmas *****************************************************) + +lemma lsubr_fwd_bind1: âI1,K1,L2. K1.â{I1} â« L2 â + ââI2,K2. K1 â« K2 & L2 = K2.â{I2}. +#I1 #K1 #L2 #H elim (lsubr_inv_bind1 â¦ H) -H * +[ #K2 #HK12 #H destruct /3 width=4 by ex2_2_intro/ +| #K2 #W1 #V1 #HK12 #H1 #H2 destruct /3 width=4 by ex2_2_intro/ +| #I1 #I2 #K2 #V1 #HK12 #H1 #H2 destruct /3 width=4 by ex2_2_intro/ +] +qed-. + +lemma lsubr_fwd_bind2: âI2,L1,K2. L1 â« K2.â{I2} â + ââI1,K1. K1 â« K2 & L1 = K1.â{I1}. +#I2 #L1 #K2 #H elim (lsubr_inv_bind2 â¦ H) -H * +[ #K1 #HK12 #H destruct /3 width=4 by ex2_2_intro/ +| #K1 #W1 #V1 #HK12 #H1 #H2 destruct /3 width=4 by ex2_2_intro/ +| #I1 #I2 #K1 #V1 #HK12 #H1 #H2 destruct /3 width=4 by ex2_2_intro/ +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsubr_drops.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsubr_drops.ma new file mode 100644 index 000000000..9257f34dc --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsubr_drops.ma @@ -0,0 +1,52 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/drops.ma". +include "static_2/static/lsubr.ma". + +(* RESTRICTED REFINEMENT FOR LOCAL ENVIRONMENTS *****************************) + +(* Forward lemmas with generic slicing for local environments ***************) + +(* Basic_2A1: includes: lsubr_fwd_drop2_pair ) +lemma lsubr_fwd_drops2_bind: âL1,L2. L1 â« L2 â + âb,f,I,K2. ðâ¦fâ¦ â â¬[b, f] L2 â K2.â{I} â + â¨â¨ ââK1. K1 â« K2 & â¬[b, f] L1 â K1.â{I} + | ââK1,W,V. K1 â« K2 & â¬[b, f] L1 â K1.ââW.V & I = BPair Abst W + | ââJ1,J2,K1,V. K1 â« K2 & â¬[b, f] L1 â K1.â{J1}V & I = BUnit J2. +#L1 #L2 #H elim H -L1 -L2 +[ #b #f #I #K2 #_ #H + elim (drops_inv_atom1 â¦ H) -H #H destruct +| #J #L1 #L2 | #L1 #L2 #V #W | #I1 #I2 #L1 #L2 #V1 +] +#HL12 #IH #b #f #I #K2 #Hf #H +elim (drops_inv_bind1_isuni â¦ Hf H) -Hf -H +[1,3,5: #Hf #H destruct -IH + /4 width=6 by drops_refl, or3_intro0, or3_intro1, or3_intro2, ex3_4_intro, ex3_3_intro, ex2_intro/ +|2,4,6: #g #Hg #HLK2 #H destruct -HL12 + elim (IH â¦ Hg HLK2) -IH -Hg -HLK2 * + /4 width=6 by drops_drop, or3_intro0, or3_intro1, or3_intro2, ex3_4_intro, ex3_3_intro, ex2_intro/ +] +qed-. + +(* Basic_2A1: includes: lsubr_fwd_drop2_abbr ) +lemma lsubr_fwd_drops2_abbr: âL1,L2. L1 â« L2 â + âb,f,K2,V. ðâ¦fâ¦ â â¬[b, f] L2 â K2.âV â + ââK1. K1 â« K2 & â¬[b, f] L1 â K1.âV. +#L1 #L2 #HL12 #b #f #K2 #V #Hf #HLK2 +elim (lsubr_fwd_drops2_bind â¦ HL12 â¦ Hf HLK2) -L2 -Hf // +[ #K1 #W #V #_ #_ #H destruct +| #I1 #I2 #K1 #V #_ #_ #H destruct +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsubr_length.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsubr_length.ma new file mode 100644 index 000000000..0e11e293d --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsubr_length.ma @@ -0,0 +1,24 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/lenv_length.ma". +include "static_2/static/lsubr.ma". + +(* RESTRICTED REFINEMENT FOR LOCAL ENVIRONMENTS *****************************) + +(* Forward lemmas with length for local environments ) + +lemma lsubr_fwd_length: âL1,L2. L1 â« L2 â |L2| = |L1|. +#L1 #L2 #H elim H -L1 -L2 normalize // +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsubr_lsubr.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsubr_lsubr.ma new file mode 100644 index 000000000..3bf83b81e --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsubr_lsubr.ma @@ -0,0 +1,32 @@ +(**************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/lsubr.ma". + +(* RESTRICTED REFINEMENT FOR LOCAL ENVIRONMENTS *****************************) + +(* Main properties **********************************************************) + +theorem lsubr_trans: Transitive â¦ lsubr. +#L1 #L #H elim H -L1 -L // +[ #I #L1 #L #_ #IH #X #H elim (lsubr_inv_bind1 â¦ H) -H * + [ #L2 #HL2 #H | #L2 #V #W #HL2 #H1 #H2 | #I1 #I2 #L2 #V #Hl2 #H1 #H2 ] + destruct /3 width=1 by lsubr_bind, lsubr_beta, lsubr_unit/ +| #L1 #L #V #W #_ #IH #X #H elim (lsubr_inv_abst1 â¦ H) -H * + [ #L2 #HL2 #H | #I #L2 #HL2 #H ] + destruct /3 width=1 by lsubr_beta, lsubr_unit/ +| #I1 #I2 #L1 #L #V #_ #IH #X #H elim (lsubr_inv_unit1 â¦ H) -H + /4 width=1 by lsubr_unit/ +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/rdeq.ma b/matita/matita/contribs/lambdadelta/static_2/static/rdeq.ma new file mode 100644 index 000000000..f2de0dfe6 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/rdeq.ma @@ -0,0 +1,194 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/relations/stareqsn_5.ma". +include "static_2/syntax/tdeq_ext.ma". +include "static_2/static/rex.ma". + +(* DEGREE-BASED EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES ******) + +definition rdeq (h) (o): relation3 term lenv lenv â + rex (cdeq h o). + +interpretation + "degree-based equivalence on referred entries (local environment)" + 'StarEqSn h o T L1 L2 = (rdeq h o T L1 L2). + +interpretation + "degree-based ranged equivalence (local environment)" + 'StarEqSn h o f L1 L2 = (sex (cdeq_ext h o) cfull f L1 L2). + +(* Basic properties ***********************************************************) + +lemma frees_tdeq_conf_rdeq (h) (o): âf,L1,T1. L1 â¢ ðâ¦T1â¦ â f â âT2. T1 â[h, o] T2 â + âL2. L1 â[h, o, f] L2 â L2 â¢ ðâ¦T2â¦ â f. +#h #o #f #L1 #T1 #H elim H -f -L1 -T1 +[ #f #L1 #s1 #Hf #X #H1 #L2 #_ + elim (tdeq_inv_sort1 â¦ H1) -H1 #s2 #d #_ #_ #H destruct + /2 width=3 by frees_sort/ +| #f #i #Hf #X #H1 + >(tdeq_inv_lref1 â¦ H1) -X #Y #H2 + >(sex_inv_atom1 â¦ H2) -Y + /2 width=1 by frees_atom/ +| #f #I #L1 #V1 #_ #IH #X #H1 + >(tdeq_inv_lref1 â¦ H1) -X #Y #H2 + elim (sex_inv_next1 â¦ H2) -H2 #Z #L2 #HL12 #HZ #H destruct + elim (ext2_inv_pair_sn â¦ HZ) -HZ #V2 #HV12 #H destruct + /3 width=1 by frees_pair/ +| #f #I #L1 #Hf #X #H1 + >(tdeq_inv_lref1 â¦ H1) -X #Y #H2 + elim (sex_inv_next1 â¦ H2) -H2 #Z #L2 #_ #HZ #H destruct + >(ext2_inv_unit_sn â¦ HZ) -Z /2 width=1 by frees_unit/ +| #f #I #L1 #i #_ #IH #X #H1 + >(tdeq_inv_lref1 â¦ H1) -X #Y #H2 + elim (sex_inv_push1 â¦ H2) -H2 #J #L2 #HL12 #_ #H destruct + /3 width=1 by frees_lref/ +| #f #L1 #l #Hf #X #H1 #L2 #_ + >(tdeq_inv_gref1 â¦ H1) -X /2 width=1 by frees_gref/ +| #f1V #f1T #f1 #p #I #L1 #V1 #T1 #_ #_ #Hf1 #IHV #IHT #X #H1 + elim (tdeq_inv_pair1 â¦ H1) -H1 #V2 #T2 #HV12 #HT12 #H1 #L2 #HL12 destruct + /6 width=5 by frees_bind, sex_inv_tl, ext2_pair, sle_sex_trans, sor_inv_sle_dx, sor_inv_sle_sn/ +| #f1V #f1T #f1 #I #L1 #V1 #T1 #_ #_ #Hf1 #IHV #IHT #X #H1 + elim (tdeq_inv_pair1 â¦ H1) -H1 #V2 #T2 #HV12 #HT12 #H1 #L2 #HL12 destruct + /5 width=5 by frees_flat, sle_sex_trans, sor_inv_sle_dx, sor_inv_sle_sn/ +] +qed-. + +lemma frees_tdeq_conf (h) (o): âf,L,T1. L â¢ ðâ¦T1â¦ â f â + âT2. T1 â[h, o] T2 â L â¢ ðâ¦T2â¦ â f. +/4 width=7 by frees_tdeq_conf_rdeq, sex_refl, ext2_refl/ qed-. + +lemma frees_rdeq_conf (h) (o): âf,L1,T. L1 â¢ ðâ¦Tâ¦ â f â + âL2. L1 â[h, o, f] L2 â L2 â¢ ðâ¦Tâ¦ â f. +/2 width=7 by frees_tdeq_conf_rdeq, tdeq_refl/ qed-. + +lemma tdeq_rex_conf (R) (h) (o): s_r_confluent1 â¦ (cdeq h o) (rex R). +#R #h #o #L1 #T1 #T2 #HT12 #L2 * +/3 width=5 by frees_tdeq_conf, ex2_intro/ +qed-. + +lemma tdeq_rex_div (R) (h) (o): âT1,T2. T1 â[h, o] T2 â + âL1,L2. L1 âª¤[R, T2] L2 â L1 âª¤[R, T1] L2. +/3 width=5 by tdeq_rex_conf, tdeq_sym/ qed-. + +lemma tdeq_rdeq_conf (h) (o): s_r_confluent1 â¦ (cdeq h o) (rdeq h o). +/2 width=5 by tdeq_rex_conf/ qed-. + +lemma tdeq_rdeq_div (h) (o): âT1,T2. T1 â[h, o] T2 â + âL1,L2. L1 â[h, o, T2] L2 â L1 â[h, o, T1] L2. +/2 width=5 by tdeq_rex_div/ qed-. + +lemma rdeq_atom (h) (o): âI. â â[h, o, âª{I}] â. +/2 width=1 by rex_atom/ qed. + +lemma rdeq_sort (h) (o): âI1,I2,L1,L2,s. + L1 â[h, o, âs] L2 â L1.â{I1} â[h, o, âs] L2.â{I2}. +/2 width=1 by rex_sort/ qed. + +lemma rdeq_pair (h) (o): âI,L1,L2,V1,V2. L1 â[h, o, V1] L2 â V1 â[h, o] V2 â + L1.â{I}V1 â[h, o, #0] L2.â{I}V2. +/2 width=1 by rex_pair/ qed. +(* +lemma rdeq_unit (h) (o): âf,I,L1,L2. ðâ¦fâ¦ â L1 âª¤[cdeq_ext h o, cfull, f] L2 â + L1.â¤{I} â[h, o, #0] L2.â¤{I}. +/2 width=3 by rex_unit/ qed. +) +lemma rdeq_lref (h) (o): âI1,I2,L1,L2,i. + L1 â[h, o, #i] L2 â L1.â{I1} â[h, o, #âi] L2.â{I2}. +/2 width=1 by rex_lref/ qed. + +lemma rdeq_gref (h) (o): âI1,I2,L1,L2,l. + L1 â[h, o, Â§l] L2 â L1.â{I1} â[h, o, Â§l] L2.â{I2}. +/2 width=1 by rex_gref/ qed. + +lemma rdeq_bind_repl_dx (h) (o): âI,I1,L1,L2.âT:term. + L1.â{I} â[h, o, T] L2.â{I1} â + âI2. I â[h, o] I2 â + L1.â{I} â[h, o, T] L2.â{I2}. +/2 width=2 by rex_bind_repl_dx/ qed-. + +( Basic inversion lemmas ***************************************************) + +lemma rdeq_inv_atom_sn (h) (o): âY2. âT:term. â â[h, o, T] Y2 â Y2 = â. +/2 width=3 by rex_inv_atom_sn/ qed-. + +lemma rdeq_inv_atom_dx (h) (o): âY1. âT:term. Y1 â[h, o, T] â â Y1 = â. +/2 width=3 by rex_inv_atom_dx/ qed-. +(* +lemma rdeq_inv_zero (h) (o): âY1,Y2. Y1 â[h, o, #0] Y2 â + â¨â¨ â§â§ Y1 = â & Y2 = â + | ââI,L1,L2,V1,V2. L1 â[h, o, V1] L2 & V1 â[h, o] V2 & + Y1 = L1.â{I}V1 & Y2 = L2.â{I}V2 + | ââf,I,L1,L2. ðâ¦fâ¦ & L1 âª¤[cdeq_ext h o, cfull, f] L2 & + Y1 = L1.â¤{I} & Y2 = L2.â¤{I}. +#h #o #Y1 #Y2 #H elim (rex_inv_zero â¦ H) -H * +/3 width=9 by or3_intro0, or3_intro1, or3_intro2, ex4_5_intro, ex4_4_intro, conj/ +qed-. +) +lemma rdeq_inv_lref (h) (o): âY1,Y2,i. Y1 â[h, o, #âi] Y2 â + â¨â¨ â§â§ Y1 = â & Y2 = â + | ââI1,I2,L1,L2. L1 â[h, o, #i] L2 & + Y1 = L1.â{I1} & Y2 = L2.â{I2}. +/2 width=1 by rex_inv_lref/ qed-. + +( Basic_2A1: uses: lleq_inv_bind lleq_inv_bind_O ) +lemma rdeq_inv_bind (h) (o): âp,I,L1,L2,V,T. L1 â[h, o, â{p,I}V.T] L2 â + â§â§ L1 â[h, o, V] L2 & L1.â{I}V â[h, o, T] L2.â{I}V. +/2 width=2 by rex_inv_bind/ qed-. + +( Basic_2A1: uses: lleq_inv_flat ) +lemma rdeq_inv_flat (h) (o): âI,L1,L2,V,T. L1 â[h, o, â{I}V.T] L2 â + â§â§ L1 â[h, o, V] L2 & L1 â[h, o, T] L2. +/2 width=2 by rex_inv_flat/ qed-. + +( Advanced inversion lemmas ************************************************) + +lemma rdeq_inv_zero_pair_sn (h) (o): âI,Y2,L1,V1. L1.â{I}V1 â[h, o, #0] Y2 â + ââL2,V2. L1 â[h, o, V1] L2 & V1 â[h, o] V2 & Y2 = L2.â{I}V2. +/2 width=1 by rex_inv_zero_pair_sn/ qed-. + +lemma rdeq_inv_zero_pair_dx (h) (o): âI,Y1,L2,V2. Y1 â[h, o, #0] L2.â{I}V2 â + ââL1,V1. L1 â[h, o, V1] L2 & V1 â[h, o] V2 & Y1 = L1.â{I}V1. +/2 width=1 by rex_inv_zero_pair_dx/ qed-. + +lemma rdeq_inv_lref_bind_sn (h) (o): âI1,Y2,L1,i. L1.â{I1} â[h, o, #âi] Y2 â + ââI2,L2. L1 â[h, o, #i] L2 & Y2 = L2.â{I2}. +/2 width=2 by rex_inv_lref_bind_sn/ qed-. + +lemma rdeq_inv_lref_bind_dx (h) (o): âI2,Y1,L2,i. Y1 â[h, o, #âi] L2.â{I2} â + ââI1,L1. L1 â[h, o, #i] L2 & Y1 = L1.â{I1}. +/2 width=2 by rex_inv_lref_bind_dx/ qed-. + +(* Basic forward lemmas *****************************************************) + +lemma rdeq_fwd_zero_pair (h) (o): âI,K1,K2,V1,V2. + K1.â{I}V1 â[h, o, #0] K2.â{I}V2 â K1 â[h, o, V1] K2. +/2 width=3 by rex_fwd_zero_pair/ qed-. + +(* Basic_2A1: uses: lleq_fwd_bind_sn lleq_fwd_flat_sn ) +lemma rdeq_fwd_pair_sn (h) (o): âI,L1,L2,V,T. L1 â[h, o, â¡{I}V.T] L2 â L1 â[h, o, V] L2. +/2 width=3 by rex_fwd_pair_sn/ qed-. + +( Basic_2A1: uses: lleq_fwd_bind_dx lleq_fwd_bind_O_dx ) +lemma rdeq_fwd_bind_dx (h) (o): âp,I,L1,L2,V,T. + L1 â[h, o, â{p,I}V.T] L2 â L1.â{I}V â[h, o, T] L2.â{I}V. +/2 width=2 by rex_fwd_bind_dx/ qed-. + +( Basic_2A1: uses: lleq_fwd_flat_dx *) +lemma rdeq_fwd_flat_dx (h) (o): âI,L1,L2,V,T. L1 â[h, o, â{I}V.T] L2 â L1 â[h, o, T] L2. +/2 width=3 by rex_fwd_flat_dx/ qed-. + +lemma rdeq_fwd_dx (h) (o): âI2,L1,K2. âT:term. L1 â[h, o, T] K2.â{I2} â + ââI1,K1. L1 = K1.â{I1}. +/2 width=5 by rex_fwd_dx/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/rdeq_drops.ma b/matita/matita/contribs/lambdadelta/static_2/static/rdeq_drops.ma new file mode 100644 index 000000000..6b9537f61 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/rdeq_drops.ma @@ -0,0 +1,47 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/lifts_tdeq.ma". +include "static_2/static/rex_drops.ma". +include "static_2/static/rdeq.ma". + +(* DEGREE-BASED EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES ******) + +(* Properties with generic slicing for local environments *******************) + +lemma rdeq_lifts_sn: âh,o. f_dedropable_sn (cdeq h o). +/3 width=5 by rex_liftable_dedropable_sn, tdeq_lifts_sn/ qed-. + +(* Inversion lemmas with generic slicing for local environments *************) + +lemma rdeq_inv_lifts_sn: âh,o. f_dropable_sn (cdeq h o). +/2 width=5 by rex_dropable_sn/ qed-. + +(* Note: missing in basic_2A1 ) +lemma rdeq_inv_lifts_dx: âh,o. f_dropable_dx (cdeq h o). +/2 width=5 by rex_dropable_dx/ qed-. + +( Basic_2A1: uses: lleq_inv_lift_le lleq_inv_lift_be lleq_inv_lift_ge ) +lemma rdeq_inv_lifts_bi: âh,o,L1,L2,U. L1 â[h, o, U] L2 â âb,f. ðâ¦fâ¦ â + âK1,K2. â¬[b, f] L1 â K1 â â¬[b, f] L2 â K2 â + âT. â¬[f] T â U â K1 â[h, o, T] K2. +/2 width=10 by rex_inv_lifts_bi/ qed-. + +lemma rdeq_inv_lref_pair_sn: âh,o,L1,L2,i. L1 â[h, o, #i] L2 â âI,K1,V1. â¬[i] L1 â K1.â{I}V1 â + ââK2,V2. â¬[i] L2 â K2.â{I}V2 & K1 â[h, o, V1] K2 & V1 â[h, o] V2. +/2 width=3 by rex_inv_lref_pair_sn/ qed-. + +lemma rdeq_inv_lref_pair_dx: âh,o,L1,L2,i. L1 â[h, o, #i] L2 â âI,K2,V2. â¬[i] L2 â K2.â{I}V2 â + ââK1,V1. â¬[i] L1 â K1.â{I}V1 & K1 â[h, o, V1] K2 & V1 â[h, o] V2. +/2 width=3 by rex_inv_lref_pair_dx/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/rdeq_fqup.ma b/matita/matita/contribs/lambdadelta/static_2/static/rdeq_fqup.ma new file mode 100644 index 000000000..e1a7afb3a --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/rdeq_fqup.ma @@ -0,0 +1,39 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/rex_fqup.ma". +include "static_2/static/rdeq.ma". + +(* DEGREE-BASED EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES ******) + +(* Advanced properties ******************************************************) + +lemma rdeq_refl: âh,o,T. reflexive â¦ (rdeq h o T). +/2 width=1 by rex_refl/ qed. + +lemma rdeq_pair_refl: âh,o,V1,V2. V1 â[h, o] V2 â + âI,L. âT:term. L.â{I}V1 â[h, o, T] L.â{I}V2. +/2 width=1 by rex_pair_refl/ qed. + +(* Advanced inversion lemmas ************************************************) + +lemma rdeq_inv_bind_void: âh,o,p,I,L1,L2,V,T. L1 â[h, o, â{p,I}V.T] L2 â + L1 â[h, o, V] L2 â§ L1.â§ â[h, o, T] L2.â§. +/2 width=3 by rex_inv_bind_void/ qed-. + +(* Advanced forward lemmas ) + +lemma rdeq_fwd_bind_dx_void: âh,o,p,I,L1,L2,V,T. + L1 â[h, o, â{p,I}V.T] L2 â L1.â§ â[h, o, T] L2.â§. +/2 width=4 by rex_fwd_bind_dx_void/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/rdeq_fqus.ma b/matita/matita/contribs/lambdadelta/static_2/static/rdeq_fqus.ma new file mode 100644 index 000000000..3ebf19118 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/rdeq_fqus.ma @@ -0,0 +1,156 @@ +(************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/s_computation/fqus_fqup.ma". +include "static_2/static/rdeq_drops.ma". +include "static_2/static/rdeq_fqup.ma". +include "static_2/static/rdeq_rdeq.ma". + +(* DEGREE-BASED EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES ******) + +(* Properties with extended structural successor for closures ***************) + +lemma fqu_tdeq_conf: âh,o,b,G1,G2,L1,L2,U1,T1. â¦G1, L1, U1â¦ â[b] â¦G2, L2, T1â¦ â + âU2. U1 â[h, o] U2 â + ââL,T2. â¦G1, L1, U2â¦ â[b] â¦G2, L, T2â¦ & L2 â[h, o, T1] L & T1 â[h, o] T2. +#h #o #b #G1 #G2 #L1 #L2 #U1 #T1 #H elim H -G1 -G2 -L1 -L2 -U1 -T1 +[ #I #G #L #W #X #H >(tdeq_inv_lref1 â¦ H) -X + /2 width=5 by fqu_lref_O, ex3_2_intro/ +| #I #G #L #W1 #U1 #X #H + elim (tdeq_inv_pair1 â¦ H) -H #W2 #U2 #HW12 #_ #H destruct + /2 width=5 by fqu_pair_sn, ex3_2_intro/ +| #p #I #G #L #W1 #U1 #X #H + elim (tdeq_inv_pair1 â¦ H) -H #W2 #U2 #HW12 #HU12 #H destruct + /3 width=5 by rdeq_pair_refl, fqu_bind_dx, ex3_2_intro/ +| #p #I #G #L #W1 #U1 #Hb #X #H + elim (tdeq_inv_pair1 â¦ H) -H #W2 #U2 #HW12 #HU12 #H destruct + /3 width=5 by fqu_clear, ex3_2_intro/ +| #I #G #L #W1 #U1 #X #H + elim (tdeq_inv_pair1 â¦ H) -H #W2 #U2 #_ #HU12 #H destruct + /2 width=5 by fqu_flat_dx, ex3_2_intro/ +| #I #G #L #T1 #U1 #HTU1 #U2 #HU12 + elim (tdeq_inv_lifts_sn â¦ HU12 â¦ HTU1) -U1 + /3 width=5 by fqu_drop, ex3_2_intro/ +] +qed-. + +lemma tdeq_fqu_trans: âh,o,b,G1,G2,L1,L2,U1,T1. â¦G1, L1, U1â¦ â[b] â¦G2, L2, T1â¦ â + âU2. U2 â[h, o] U1 â + ââL,T2. â¦G1, L1, U2â¦ â[b] â¦G2, L, T2â¦ & T2 â[h, o] T1 & L â[h, o, T1] L2. +#h #o #b #G1 #G2 #L1 #L2 #U1 #T1 #H12 #U2 #HU21 +elim (fqu_tdeq_conf â¦ o â¦ H12 U2) -H12 +/3 width=5 by rdeq_sym, tdeq_sym, ex3_2_intro/ +qed-. + +(* Basic_2A1: uses: lleq_fqu_trans ) +lemma rdeq_fqu_trans: âh,o,b,G1,G2,L2,K2,T,U. â¦G1, L2, Tâ¦ â[b] â¦G2, K2, Uâ¦ â + âL1. L1 â[h, o, T] L2 â + ââK1,U0. â¦G1, L1, Tâ¦ â[b] â¦G2, K1, U0â¦ & U0 â[h, o] U & K1 â[h, o, U] K2. +#h #o #b #G1 #G2 #L2 #K2 #T #U #H elim H -G1 -G2 -L2 -K2 -T -U +[ #I #G #L2 #V2 #L1 #H elim (rdeq_inv_zero_pair_dx â¦ H) -H + #K1 #V1 #HV1 #HV12 #H destruct + /3 width=7 by tdeq_rdeq_conf, fqu_lref_O, ex3_2_intro/ +| [ #p ] #I #G #L2 #V #T #L1 #H + [ elim (rdeq_inv_bind â¦ H) + | elim (rdeq_inv_flat â¦ H) + ] -H + /2 width=5 by fqu_pair_sn, ex3_2_intro/ +| #p #I #G #L2 #V #T #L1 #H elim (rdeq_inv_bind â¦ H) -H + /2 width=5 by fqu_bind_dx, ex3_2_intro/ +| #p #I #G #L2 #V #T #Hb #L1 #H elim (rdeq_inv_bind_void â¦ H) -H + /3 width=5 by fqu_clear, ex3_2_intro/ +| #I #G #L2 #V #T #L1 #H elim (rdeq_inv_flat â¦ H) -H + /2 width=5 by fqu_flat_dx, ex3_2_intro/ +| #I #G #L2 #T #U #HTU #Y #HU + elim (rdeq_fwd_dx â¦ HU) #L1 #V1 #H destruct + /5 width=14 by rdeq_inv_lifts_bi, fqu_drop, drops_refl, drops_drop, ex3_2_intro/ +] +qed-. + +(* Properties with optional structural successor for closures ***************) + +lemma tdeq_fquq_trans: âh,o,b,G1,G2,L1,L2,U1,T1. â¦G1, L1, U1â¦ ââ¸®[b] â¦G2, L2, T1â¦ â + âU2. U2 â[h, o] U1 â + ââL,T2. â¦G1, L1, U2â¦ ââ¸®[b] â¦G2, L, T2â¦ & T2 â[h, o] T1 & L â[h, o, T1] L2. +#h #o #b #G1 #G2 #L1 #L2 #U1 #T1 #H elim H -H +[ #H #U2 #HU21 elim (tdeq_fqu_trans â¦ H â¦ HU21) -U1 + /3 width=5 by fqu_fquq, ex3_2_intro/ +| * #HG #HL #HT destruct /2 width=5 by ex3_2_intro/ +] +qed-. + +(* Basic_2A1: was just: lleq_fquq_trans ) +lemma rdeq_fquq_trans: âh,o,b,G1,G2,L2,K2,T,U. â¦G1, L2, Tâ¦ ââ¸®[b] â¦G2, K2, Uâ¦ â + âL1. L1 â[h, o, T] L2 â + ââK1,U0. â¦G1, L1, Tâ¦ ââ¸®[b] â¦G2, K1, U0â¦ & U0 â[h, o] U & K1 â[h, o, U] K2. +#h #o #b #G1 #G2 #L2 #K2 #T #U #H elim H -H +[ #H #L1 #HL12 elim (rdeq_fqu_trans â¦ H â¦ HL12) -L2 /3 width=5 by fqu_fquq, ex3_2_intro/ +| #HG #HL #HT destruct /2 width=5 by ex3_2_intro/ +] +qed-. + +(* Properties with plus-iterated structural successor for closures **********) + +(* Basic_2A1: was just: lleq_fqup_trans *) +lemma rdeq_fqup_trans: âh,o,b,G1,G2,L2,K2,T,U. â¦G1, L2, Tâ¦ â+[b] â¦G2, K2, Uâ¦ â + âL1. L1 â[h, o, T] L2 â + ââK1,U0. â¦G1, L1, Tâ¦ â+[b] â¦G2, K1, U0â¦ & U0 â[h, o] U & K1 â[h, o, U] K2. +#h #o #b #G1 #G2 #L2 #K2 #T #U #H @(fqup_ind â¦ H) -G2 -K2 -U +[ #G2 #K2 #U #HTU #L1 #HL12 elim (rdeq_fqu_trans â¦ HTU â¦ HL12) -L2 + /3 width=5 by fqu_fqup, ex3_2_intro/ +| #G #G2 #K #K2 #U #U2 #_ #HU2 #IHTU #L1 #HL12 + elim (IHTU â¦ HL12) -L2 #K0 #U0 #HTU #HU0 #HK0 + elim (rdeq_fqu_trans â¦ HU2 â¦ HK0) -K #K1 #U1 #HU1 #HU12 #HK12 + elim (tdeq_fqu_trans â¦ HU1 â¦ HU0) -U #K3 #U3 #HU03 #HU31 #HK31 + @(ex3_2_intro â¦ K3 U3) (**) (* full auto too slow ) + /3 width=5 by rdeq_trans, tdeq_rdeq_conf, fqup_strap1, tdeq_trans/ +] +qed-. + +lemma tdeq_fqup_trans: âh,o,b,G1,G2,L1,L2,U1,T1. â¦G1, L1, U1â¦ â+[b] â¦G2, L2, T1â¦ â + âU2. U2 â[h, o] U1 â + ââL,T2. â¦G1, L1, U2â¦ â+[b] â¦G2, L, T2â¦ & T2 â[h, o] T1 & L â[h, o, T1] L2. +#h #o #b #G1 #G2 #L1 #L2 #U1 #T1 #H @(fqup_ind_dx â¦ H) -G1 -L1 -U1 +[ #G1 #L1 #U1 #H #U2 #HU21 elim (tdeq_fqu_trans â¦ H â¦ HU21) -U1 + /3 width=5 by fqu_fqup, ex3_2_intro/ +| #G1 #G #L1 #L #U1 #U #H #_ #IH #U2 #HU21 + elim (tdeq_fqu_trans â¦ H â¦ HU21) -U1 #L0 #T #H1 #HTU #HL0 + lapply (tdeq_rdeq_div â¦ HTU â¦ HL0) -HL0 #HL0 + elim (IH â¦ HTU) -U #K2 #U1 #H2 #HUT1 #HKL2 + elim (rdeq_fqup_trans â¦ H2 â¦ HL0) -L #K #U #H2 #HU1 #HK2 + lapply (tdeq_rdeq_conf â¦ HUT1 â¦ HK2) -HK2 #HK2 + /3 width=7 by rdeq_trans, fqup_strap2, tdeq_trans, ex3_2_intro/ +] +qed-. + +( Properties with star-iterated structural successor for closures **********) + +lemma tdeq_fqus_trans: âh,o,b,G1,G2,L1,L2,U1,T1. â¦G1, L1, U1â¦ â[b] â¦G2, L2, T1â¦ â + âU2. U2 â[h, o] U1 â + ââL,T2. â¦G1, L1, U2â¦ â[b] â¦G2, L, T2â¦ & T2 â[h, o] T1 & L â[h, o, T1] L2. +#h #o #b #G1 #G2 #L1 #L2 #U1 #T1 #H #U2 #HU21 elim(fqus_inv_fqup â¦ H) -H +[ #H elim (tdeq_fqup_trans â¦ H â¦ HU21) -U1 /3 width=5 by fqup_fqus, ex3_2_intro/ +| * #HG #HL #HT destruct /2 width=5 by ex3_2_intro/ +] +qed-. + +(* Basic_2A1: was just: lleq_fqus_trans ) +lemma rdeq_fqus_trans: âh,o,b,G1,G2,L2,K2,T,U. â¦G1, L2, Tâ¦ â[b] â¦G2, K2, Uâ¦ â + âL1. L1 â[h, o, T] L2 â + ââK1,U0. â¦G1, L1, Tâ¦ â[b] â¦G2, K1, U0â¦ & U0 â[h, o] U & K1 â[h, o, U] K2. +#h #o #b #G1 #G2 #L2 #K2 #T #U #H #L1 #HL12 elim(fqus_inv_fqup â¦ H) -H +[ #H elim (rdeq_fqup_trans â¦ H â¦ HL12) -L2 /3 width=5 by fqup_fqus, ex3_2_intro/ +| #HG #HL #HT destruct /2 width=5 by ex3_2_intro/ +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/rdeq_length.ma b/matita/matita/contribs/lambdadelta/static_2/static/rdeq_length.ma new file mode 100644 index 000000000..e0f3bb236 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/rdeq_length.ma @@ -0,0 +1,55 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/lifts_tdeq.ma". +include "static_2/static/rex_length.ma". +include "static_2/static/rex_fsle.ma". +include "static_2/static/rdeq.ma". + +(* DEGREE-BASED EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES ******) + +(* Advanved properties with free variables inclusion ************************) + +lemma rdeq_fsge_comp (h) (o): rex_fsge_compatible (cdeq h o). +#h #o #L1 #L2 #T * #f1 #Hf1 #HL12 +lapply (frees_rdeq_conf h o â¦ Hf1 â¦ HL12) +lapply (sex_fwd_length â¦ HL12) +/3 width=8 by lveq_length_eq, ex4_4_intro/ (**) (* full auto fails ) +qed-. + +( Properties with length for local environments ****************************) + +(* Basic_2A1: uses: lleq_sort ) +lemma rdeq_sort_length (h) (o): âL1,L2. |L1| = |L2| â âs. L1 â[h, o, âs] L2. +/2 width=1 by rex_sort_length/ qed. + +( Basic_2A1: uses: lleq_gref ) +lemma rdeq_gref_length (h) (o): âL1,L2. |L1| = |L2| â âl. L1 â[h, o, Â§l] L2. +/2 width=1 by rex_gref_length/ qed. + +lemma rdeq_unit_length (h) (o): âL1,L2. |L1| = |L2| â + âI. L1.â¤{I} â[h, o, #0] L2.â¤{I}. +/2 width=1 by rex_unit_length/ qed. + +( Basic_2A1: uses: lleq_lift_le lleq_lift_ge ) +lemma rdeq_lifts_bi (h) (o): âL1,L2. |L1| = |L2| â âK1,K2,T. K1 â[h, o, T] K2 â + âb,f. â¬[b, f] L1 â K1 â â¬[b, f] L2 â K2 â + âU. â¬[f] T â U â L1 â[h, o, U] L2. +/3 width=9 by rex_lifts_bi, tdeq_lifts_sn/ qed-. + +(* Forward lemmas with length for local environments ************************) + +(* Basic_2A1: lleq_fwd_length *) +lemma rdeq_fwd_length (h) (o): âL1,L2. âT:term. L1 â[h, o, T] L2 â |L1| = |L2|. +/2 width=3 by rex_fwd_length/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/rdeq_rdeq.ma b/matita/matita/contribs/lambdadelta/static_2/static/rdeq_rdeq.ma new file mode 100644 index 000000000..316438d66 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/rdeq_rdeq.ma @@ -0,0 +1,100 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/ext2_ext2.ma". +include "static_2/syntax/tdeq_tdeq.ma". +include "static_2/static/rdeq_length.ma". + +(* DEGREE-BASED EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES ******) + +(* Advanced properties ******************************************************) + +(* Basic_2A1: uses: lleq_sym ) +lemma rdeq_sym: âh,o,T. symmetric â¦ (rdeq h o T). +/3 width=3 by rdeq_fsge_comp, rex_sym, tdeq_sym/ qed-. + +( Basic_2A1: uses: lleq_dec ) +lemma rdeq_dec: âh,o,L1,L2. âT:term. Decidable (L1 â[h, o, T] L2). +/3 width=1 by rex_dec, tdeq_dec/ qed-. + +( Main properties **********************************************************) + +(* Basic_2A1: uses: lleq_bind lleq_bind_O ) +theorem rdeq_bind: âh,o,p,I,L1,L2,V1,V2,T. + L1 â[h, o, V1] L2 â L1.â{I}V1 â[h, o, T] L2.â{I}V2 â + L1 â[h, o, â{p,I}V1.T] L2. +/2 width=2 by rex_bind/ qed. + +( Basic_2A1: uses: lleq_flat ) +theorem rdeq_flat: âh,o,I,L1,L2,V,T. L1 â[h, o, V] L2 â L1 â[h, o, T] L2 â + L1 â[h, o, â{I}V.T] L2. +/2 width=1 by rex_flat/ qed. + +theorem rdeq_bind_void: âh,o,p,I,L1,L2,V,T. + L1 â[h, o, V] L2 â L1.â§ â[h, o, T] L2.â§ â + L1 â[h, o, â{p,I}V.T] L2. +/2 width=1 by rex_bind_void/ qed. + +( Basic_2A1: uses: lleq_trans ) +theorem rdeq_trans: âh,o,T. Transitive â¦ (rdeq h o T). +#h #o #T #L1 #L #f1 #Hf1 #HL1 #L2 * #f2 #Hf2 #HL2 +lapply (frees_tdeq_conf_rdeq â¦ Hf1 T â¦ HL1) // #H0 +lapply (frees_mono â¦ Hf2 â¦ H0) -Hf2 -H0 +/5 width=7 by sex_trans, sex_eq_repl_back, tdeq_trans, ext2_trans, ex2_intro/ +qed-. + +(* Basic_2A1: uses: lleq_canc_sn ) +theorem rdeq_canc_sn: âh,o,T. left_cancellable â¦ (rdeq h o T). +/3 width=3 by rdeq_trans, rdeq_sym/ qed-. + +( Basic_2A1: uses: lleq_canc_dx ) +theorem rdeq_canc_dx: âh,o,T. right_cancellable â¦ (rdeq h o T). +/3 width=3 by rdeq_trans, rdeq_sym/ qed-. + +theorem rdeq_repl: âh,o,L1,L2. âT:term. L1 â[h, o, T] L2 â + âK1. L1 â[h, o, T] K1 â âK2. L2 â[h, o, T] K2 â K1 â[h, o, T] K2. +/3 width=3 by rdeq_canc_sn, rdeq_trans/ qed-. + +( Negated properties *******************************************************) + +(* Note: auto works with /4 width=8/ so rdeq_canc_sn is preferred **********) +(* Basic_2A1: uses: lleq_nlleq_trans ) +lemma rdeq_rdneq_trans: âh,o.âT:term.âL1,L. L1 â[h, o, T] L â + âL2. (L â[h, o, T] L2 â â¥) â (L1 â[h, o, T] L2 â â¥). +/3 width=3 by rdeq_canc_sn/ qed-. + +( Basic_2A1: uses: nlleq_lleq_div ) +lemma rdneq_rdeq_div: âh,o.âT:term.âL2,L. L2 â[h, o, T] L â + âL1. (L1 â[h, o, T] L â â¥) â (L1 â[h, o, T] L2 â â¥). +/3 width=3 by rdeq_trans/ qed-. + +theorem rdneq_rdeq_canc_dx: âh,o,L1,L. âT:term. (L1 â[h, o, T] L â â¥) â + âL2. L2 â[h, o, T] L â L1 â[h, o, T] L2 â â¥. +/3 width=3 by rdeq_trans/ qed-. + +( Negated inversion lemmas *************************************************) + +(* Basic_2A1: uses: nlleq_inv_bind nlleq_inv_bind_O ) +lemma rdneq_inv_bind: âh,o,p,I,L1,L2,V,T. (L1 â[h, o, â{p,I}V.T] L2 â â¥) â + (L1 â[h, o, V] L2 â â¥) â¨ (L1.â{I}V â[h, o, T] L2.â{I}V â â¥). +/3 width=2 by rnex_inv_bind, tdeq_dec/ qed-. + +( Basic_2A1: uses: nlleq_inv_flat *) +lemma rdneq_inv_flat: âh,o,I,L1,L2,V,T. (L1 â[h, o, â{I}V.T] L2 â â¥) â + (L1 â[h, o, V] L2 â â¥) â¨ (L1 â[h, o, T] L2 â â¥). +/3 width=2 by rnex_inv_flat, tdeq_dec/ qed-. + +lemma rdneq_inv_bind_void: âh,o,p,I,L1,L2,V,T. (L1 â[h, o, â{p,I}V.T] L2 â â¥) â + (L1 â[h, o, V] L2 â â¥) â¨ (L1.â§ â[h, o, T] L2.â§ â â¥). +/3 width=3 by rnex_inv_bind_void, tdeq_dec/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/rdeq_req.ma b/matita/matita/contribs/lambdadelta/static_2/static/rdeq_req.ma new file mode 100644 index 000000000..ab3ebca98 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/rdeq_req.ma @@ -0,0 +1,27 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/req_fsle.ma". +include "static_2/static/rdeq.ma". + +(* DEGREE-BASED EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES ******) + +(* Properties with syntactic equivalence on referred entries ) + +lemma req_rdeq: âh,o,L1,L2. âT:term. L1 â¡[T] L2 â L1 â[h, o, T] L2. +/2 width=3 by rex_co/ qed. + +lemma req_rdeq_trans: âh,o,L1,L. âT:term. L1 â¡[T] L â + âL2. L â[h, o, T] L2 â L1 â[h, o, T] L2. +/2 width=3 by req_rex_trans/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/req.ma b/matita/matita/contribs/lambdadelta/static_2/static/req.ma new file mode 100644 index 000000000..13965b92d --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/req.ma @@ -0,0 +1,109 @@ +(**********************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/relations/ideqsn_3.ma". +include "static_2/static/rex.ma". + +(* SYNTACTIC EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES *********) + +(* Basic_2A1: was: lleq ) +definition req: relation3 term lenv lenv â + rex ceq. + +interpretation + "syntactic equivalence on referred entries (local environment)" + 'IdEqSn T L1 L2 = (req T L1 L2). + +( Note: "req_transitive R" is equivalent to "rex_transitive ceq R R" ) +( Basic_2A1: uses: lleq_transitive ) +definition req_transitive: predicate (relation3 lenv term term) â + Î»R. âL2,T1,T2. R L2 T1 T2 â âL1. L1 â¡[T1] L2 â R L1 T1 T2. + +( Basic inversion lemmas ***************************************************) + +lemma req_inv_bind: âp,I,L1,L2,V,T. L1 â¡[â{p,I}V.T] L2 â + â§â§ L1 â¡[V] L2 & L1.â{I}V â¡[T] L2.â{I}V. +/2 width=2 by rex_inv_bind/ qed-. + +lemma req_inv_flat: âI,L1,L2,V,T. L1 â¡[â{I}V.T] L2 â + â§â§ L1 â¡[V] L2 & L1 â¡[T] L2. +/2 width=2 by rex_inv_flat/ qed-. + +(* Advanced inversion lemmas ************************************************) + +lemma req_inv_zero_pair_sn: âI,L2,K1,V. K1.â{I}V â¡[#0] L2 â + ââK2. K1 â¡[V] K2 & L2 = K2.â{I}V. +#I #L2 #K1 #V #H +elim (rex_inv_zero_pair_sn â¦ H) -H #K2 #X #HK12 #HX #H destruct +/2 width=3 by ex2_intro/ +qed-. + +lemma req_inv_zero_pair_dx: âI,L1,K2,V. L1 â¡[#0] K2.â{I}V â + ââK1. K1 â¡[V] K2 & L1 = K1.â{I}V. +#I #L1 #K2 #V #H +elim (rex_inv_zero_pair_dx â¦ H) -H #K1 #X #HK12 #HX #H destruct +/2 width=3 by ex2_intro/ +qed-. + +lemma req_inv_lref_bind_sn: âI1,K1,L2,i. K1.â{I1} â¡[#âi] L2 â + ââI2,K2. K1 â¡[#i] K2 & L2 = K2.â{I2}. +/2 width=2 by rex_inv_lref_bind_sn/ qed-. + +lemma req_inv_lref_bind_dx: âI2,K2,L1,i. L1 â¡[#âi] K2.â{I2} â + ââI1,K1. K1 â¡[#i] K2 & L1 = K1.â{I1}. +/2 width=2 by rex_inv_lref_bind_dx/ qed-. + +(* Basic forward lemmas *****************************************************) + +(* Basic_2A1: was: llpx_sn_lrefl ) +( Basic_2A1: this should have been lleq_fwd_llpx_sn ) +lemma req_fwd_rex: âR. c_reflexive â¦ R â + âL1,L2,T. L1 â¡[T] L2 â L1 âª¤[R, T] L2. +#R #HR #L1 #L2 #T #f #Hf #HL12 +/4 width=7 by sex_co, cext2_co, ex2_intro/ +qed-. + +(* Basic_properties *********************************************************) + +lemma frees_req_conf: âf,L1,T. L1 â¢ ðâ¦Tâ¦ â f â + âL2. L1 â¡[T] L2 â L2 â¢ ðâ¦Tâ¦ â f. +#f #L1 #T #H elim H -f -L1 -T +[ /2 width=3 by frees_sort/ +| #f #i #Hf #L2 #H2 + >(rex_inv_atom_sn â¦ H2) -L2 + /2 width=1 by frees_atom/ +| #f #I #L1 #V1 #_ #IH #Y #H2 + elim (req_inv_zero_pair_sn â¦ H2) -H2 #L2 #HL12 #H destruct + /3 width=1 by frees_pair/ +| #f #I #L1 #Hf #Y #H2 + elim (rex_inv_zero_unit_sn â¦ H2) -H2 #g #L2 #_ #_ #H destruct + /2 width=1 by frees_unit/ +| #f #I #L1 #i #_ #IH #Y #H2 + elim (req_inv_lref_bind_sn â¦ H2) -H2 #J #L2 #HL12 #H destruct + /3 width=1 by frees_lref/ +| /2 width=1 by frees_gref/ +| #f1V #f1T #f1 #p #I #L1 #V1 #T1 #_ #_ #Hf1 #IHV #IHT #L2 #H2 + elim (req_inv_bind â¦ H2) -H2 /3 width=5 by frees_bind/ +| #f1V #f1T #f1 #I #L1 #V1 #T1 #_ #_ #Hf1 #IHV #IHT #L2 #H2 + elim (req_inv_flat â¦ H2) -H2 /3 width=5 by frees_flat/ +] +qed-. + +(* Basic_2A1: removed theorems 10: + lleq_ind lleq_fwd_lref + lleq_fwd_drop_sn lleq_fwd_drop_dx + lleq_skip lleq_lref lleq_free + lleq_Y lleq_ge_up lleq_ge + +*) diff --git a/matita/matita/contribs/lambdadelta/static_2/static/req_fqup.ma b/matita/matita/contribs/lambdadelta/static_2/static/req_fqup.ma new file mode 100644 index 000000000..4434b4d69 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/req_fqup.ma @@ -0,0 +1,24 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/rex_fqup.ma". +include "static_2/static/req.ma". + +(* SYNTACTIC EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES *********) + +(* Advanced properties ******************************************************) + +(* Basic_2A1: was: lleq_refl *) +lemma req_refl: âT. reflexive â¦ (req T). +/2 width=1 by rex_refl/ qed. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/req_fsle.ma b/matita/matita/contribs/lambdadelta/static_2/static/req_fsle.ma new file mode 100644 index 000000000..d91c9905b --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/req_fsle.ma @@ -0,0 +1,33 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/rex_length.ma". +include "static_2/static/rex_fsle.ma". +include "static_2/static/req.ma". + +(* SYNTACTIC EQUIVALENCE FOR LOCAL ENVIRONMENTS ON REFERRED ENTRIES *********) + +(* Properties with free variables inclusion for restricted closures *********) + +lemma req_fsle_comp: rex_fsle_compatible ceq. +#L1 #L2 #T #HL12 +elim (frees_total L1 T) +/4 width=8 by frees_req_conf, rex_fwd_length, lveq_length_eq, sle_refl, ex4_4_intro/ +qed. + +(* Forward lemmas with free variables inclusion for restricted closures *) + +lemma req_rex_trans: âR. req_transitive R â + âL1,L,T. L1 â¡[T] L â âL2. L âª¤[R, T] L2 â L1 âª¤[R, T] L2. +/4 width=16 by req_fsle_comp, rex_trans_fsle, rex_trans_next/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/rex.ma b/matita/matita/contribs/lambdadelta/static_2/static/rex.ma new file mode 100644 index 000000000..515e24bef --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/rex.ma @@ -0,0 +1,320 @@ +(**********************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/relocation/rtmap_id.ma". +include "static_2/notation/relations/relation_4.ma". +include "static_2/syntax/cext2.ma". +include "static_2/relocation/sex.ma". +include "static_2/static/frees.ma". + +(* GENERIC EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ****) + +definition rex (R) (T): relation lenv â + Î»L1,L2. ââf. L1 â¢ ðâ¦Tâ¦ â f & L1 âª¤[cext2 R, cfull, f] L2. + +interpretation "generic extension on referred entries (local environment)" + 'Relation R T L1 L2 = (rex R T L1 L2). + +definition R_confluent2_rex: relation4 (relation3 lenv term term) + (relation3 lenv term term) â¦ â + Î»R1,R2,RP1,RP2. + âL0,T0,T1. R1 L0 T0 T1 â âT2. R2 L0 T0 T2 â + âL1. L0 âª¤[RP1, T0] L1 â âL2. L0 âª¤[RP2, T0] L2 â + ââT. R2 L1 T1 T & R1 L2 T2 T. + +definition rex_confluent: relation â¦ â + Î»R1,R2. + âK1,K,V1. K1 âª¤[R1, V1] K â âV. R1 K1 V1 V â + âK2. K âª¤[R2, V] K2 â K âª¤[R2, V1] K2. + +definition rex_transitive: relation3 ? (relation3 ?? term) â¦ â + Î»R1,R2,R3. + âK1,K,V1. K1 âª¤[R1, V1] K â + âV. R1 K1 V1 V â âV2. R2 K V V2 â R3 K1 V1 V2. + +( Basic inversion lemmas ***************************************************) + +lemma rex_inv_atom_sn (R): âY2,T. â âª¤[R, T] Y2 â Y2 = â. +#R #Y2 #T * /2 width=4 by sex_inv_atom1/ +qed-. + +lemma rex_inv_atom_dx (R): âY1,T. Y1 âª¤[R, T] â â Y1 = â. +#R #I #Y1 * /2 width=4 by sex_inv_atom2/ +qed-. + +lemma rex_inv_sort (R): âY1,Y2,s. Y1 âª¤[R, âs] Y2 â + â¨â¨ Y1 = â â§ Y2 = â + | ââI1,I2,L1,L2. L1 âª¤[R, âs] L2 & + Y1 = L1.â{I1} & Y2 = L2.â{I2}. +#R * [ | #Y1 #I1 ] #Y2 #s * #f #H1 #H2 +[ lapply (sex_inv_atom1 â¦ H2) -H2 /3 width=1 by or_introl, conj/ +| lapply (frees_inv_sort â¦ H1) -H1 #Hf + elim (isid_inv_gen â¦ Hf) -Hf #g #Hg #H destruct + elim (sex_inv_push1 â¦ H2) -H2 #I2 #L2 #H12 #_ #H destruct + /5 width=7 by frees_sort, ex3_4_intro, ex2_intro, or_intror/ +] +qed-. + +lemma rex_inv_zero (R): âY1,Y2. Y1 âª¤[R, #0] Y2 â + â¨â¨ Y1 = â â§ Y2 = â + | ââI,L1,L2,V1,V2. L1 âª¤[R, V1] L2 & R L1 V1 V2 & + Y1 = L1.â{I}V1 & Y2 = L2.â{I}V2 + | ââf,I,L1,L2. ðâ¦fâ¦ & L1 âª¤[cext2 R, cfull, f] L2 & + Y1 = L1.â¤{I} & Y2 = L2.â¤{I}. +#R * [ | #Y1 * #I1 [ | #X ] ] #Y2 * #f #H1 #H2 +[ lapply (sex_inv_atom1 â¦ H2) -H2 /3 width=1 by or3_intro0, conj/ +| elim (frees_inv_unit â¦ H1) -H1 #g #HX #H destruct + elim (sex_inv_next1 â¦ H2) -H2 #I2 #L2 #HL12 #H #H2 destruct + >(ext2_inv_unit_sn â¦ H) -H /3 width=8 by or3_intro2, ex4_4_intro/ +| elim (frees_inv_pair â¦ H1) -H1 #g #Hg #H destruct + elim (sex_inv_next1 â¦ H2) -H2 #Z2 #L2 #HL12 #H + elim (ext2_inv_pair_sn â¦ H) -H + /4 width=9 by or3_intro1, ex4_5_intro, ex2_intro/ +] +qed-. + +lemma rex_inv_lref (R): âY1,Y2,i. Y1 âª¤[R, #âi] Y2 â + â¨â¨ Y1 = â â§ Y2 = â + | ââI1,I2,L1,L2. L1 âª¤[R, #i] L2 & + Y1 = L1.â{I1} & Y2 = L2.â{I2}. +#R * [ | #Y1 #I1 ] #Y2 #i * #f #H1 #H2 +[ lapply (sex_inv_atom1 â¦ H2) -H2 /3 width=1 by or_introl, conj/ +| elim (frees_inv_lref â¦ H1) -H1 #g #Hg #H destruct + elim (sex_inv_push1 â¦ H2) -H2 + /4 width=7 by ex3_4_intro, ex2_intro, or_intror/ +] +qed-. + +lemma rex_inv_gref (R): âY1,Y2,l. Y1 âª¤[R, Â§l] Y2 â + â¨â¨ Y1 = â â§ Y2 = â + | ââI1,I2,L1,L2. L1 âª¤[R, Â§l] L2 & + Y1 = L1.â{I1} & Y2 = L2.â{I2}. +#R * [ | #Y1 #I1 ] #Y2 #l * #f #H1 #H2 +[ lapply (sex_inv_atom1 â¦ H2) -H2 /3 width=1 by or_introl, conj/ +| lapply (frees_inv_gref â¦ H1) -H1 #Hf + elim (isid_inv_gen â¦ Hf) -Hf #g #Hg #H destruct + elim (sex_inv_push1 â¦ H2) -H2 #I2 #L2 #H12 #_ #H destruct + /5 width=7 by frees_gref, ex3_4_intro, ex2_intro, or_intror/ +] +qed-. + +(* Basic_2A1: uses: llpx_sn_inv_bind llpx_sn_inv_bind_O ) +lemma rex_inv_bind (R): âp,I,L1,L2,V1,V2,T. L1 âª¤[R, â{p,I}V1.T] L2 â R L1 V1 V2 â + â§â§ L1 âª¤[R, V1] L2 & L1.â{I}V1 âª¤[R, T] L2.â{I}V2. +#R #p #I #L1 #L2 #V1 #V2 #T #f #Hf #HL #HV elim (frees_inv_bind â¦ Hf) -Hf +/6 width=6 by sle_sex_trans, sex_inv_tl, ext2_pair, sor_inv_sle_dx, sor_inv_sle_sn, ex2_intro, conj/ +qed-. + +(* Basic_2A1: uses: llpx_sn_inv_flat ) +lemma rex_inv_flat (R): âI,L1,L2,V,T. L1 âª¤[R, â{I}V.T] L2 â + â§â§ L1 âª¤[R, V] L2 & L1 âª¤[R, T] L2. +#R #I #L1 #L2 #V #T #f #Hf #HL elim (frees_inv_flat â¦ Hf) -Hf +/5 width=6 by sle_sex_trans, sor_inv_sle_dx, sor_inv_sle_sn, ex2_intro, conj/ +qed-. + +(* Advanced inversion lemmas ************************************************) + +lemma rex_inv_sort_bind_sn (R): âI1,K1,L2,s. K1.â{I1} âª¤[R, âs] L2 â + ââI2,K2. K1 âª¤[R, âs] K2 & L2 = K2.â{I2}. +#R #I1 #K1 #L2 #s #H elim (rex_inv_sort â¦ H) -H * +[ #H destruct +| #Z1 #I2 #Y1 #K2 #Hs #H1 #H2 destruct /2 width=4 by ex2_2_intro/ +] +qed-. + +lemma rex_inv_sort_bind_dx (R): âI2,K2,L1,s. L1 âª¤[R, âs] K2.â{I2} â + ââI1,K1. K1 âª¤[R, âs] K2 & L1 = K1.â{I1}. +#R #I2 #K2 #L1 #s #H elim (rex_inv_sort â¦ H) -H * +[ #_ #H destruct +| #I1 #Z2 #K1 #Y2 #Hs #H1 #H2 destruct /2 width=4 by ex2_2_intro/ +] +qed-. + +lemma rex_inv_zero_pair_sn (R): âI,L2,K1,V1. K1.â{I}V1 âª¤[R, #0] L2 â + ââK2,V2. K1 âª¤[R, V1] K2 & R K1 V1 V2 & + L2 = K2.â{I}V2. +#R #I #L2 #K1 #V1 #H elim (rex_inv_zero â¦ H) -H * +[ #H destruct +| #Z #Y1 #K2 #X1 #V2 #HK12 #HV12 #H1 #H2 destruct + /2 width=5 by ex3_2_intro/ +| #f #Z #Y1 #Y2 #_ #_ #H destruct +] +qed-. + +lemma rex_inv_zero_pair_dx (R): âI,L1,K2,V2. L1 âª¤[R, #0] K2.â{I}V2 â + ââK1,V1. K1 âª¤[R, V1] K2 & R K1 V1 V2 & + L1 = K1.â{I}V1. +#R #I #L1 #K2 #V2 #H elim (rex_inv_zero â¦ H) -H * +[ #_ #H destruct +| #Z #K1 #Y2 #V1 #X2 #HK12 #HV12 #H1 #H2 destruct + /2 width=5 by ex3_2_intro/ +| #f #Z #Y1 #Y2 #_ #_ #_ #H destruct +] +qed-. + +lemma rex_inv_zero_unit_sn (R): âI,K1,L2. K1.â¤{I} âª¤[R, #0] L2 â + ââf,K2. ðâ¦fâ¦ & K1 âª¤[cext2 R, cfull, f] K2 & + L2 = K2.â¤{I}. +#R #I #K1 #L2 #H elim (rex_inv_zero â¦ H) -H * +[ #H destruct +| #Z #Y1 #Y2 #X1 #X2 #_ #_ #H destruct +| #f #Z #Y1 #K2 #Hf #HK12 #H1 #H2 destruct /2 width=5 by ex3_2_intro/ +] +qed-. + +lemma rex_inv_zero_unit_dx (R): âI,L1,K2. L1 âª¤[R, #0] K2.â¤{I} â + ââf,K1. ðâ¦fâ¦ & K1 âª¤[cext2 R, cfull, f] K2 & + L1 = K1.â¤{I}. +#R #I #L1 #K2 #H elim (rex_inv_zero â¦ H) -H * +[ #_ #H destruct +| #Z #Y1 #Y2 #X1 #X2 #_ #_ #_ #H destruct +| #f #Z #K1 #Y2 #Hf #HK12 #H1 #H2 destruct /2 width=5 by ex3_2_intro/ +] +qed-. + +lemma rex_inv_lref_bind_sn (R): âI1,K1,L2,i. K1.â{I1} âª¤[R, #âi] L2 â + ââI2,K2. K1 âª¤[R, #i] K2 & L2 = K2.â{I2}. +#R #I1 #K1 #L2 #i #H elim (rex_inv_lref â¦ H) -H * +[ #H destruct +| #Z1 #I2 #Y1 #K2 #Hi #H1 #H2 destruct /2 width=4 by ex2_2_intro/ +] +qed-. + +lemma rex_inv_lref_bind_dx (R): âI2,K2,L1,i. L1 âª¤[R, #âi] K2.â{I2} â + ââI1,K1. K1 âª¤[R, #i] K2 & L1 = K1.â{I1}. +#R #I2 #K2 #L1 #i #H elim (rex_inv_lref â¦ H) -H * +[ #_ #H destruct +| #I1 #Z2 #K1 #Y2 #Hi #H1 #H2 destruct /2 width=4 by ex2_2_intro/ +] +qed-. + +lemma rex_inv_gref_bind_sn (R): âI1,K1,L2,l. K1.â{I1} âª¤[R, Â§l] L2 â + ââI2,K2. K1 âª¤[R, Â§l] K2 & L2 = K2.â{I2}. +#R #I1 #K1 #L2 #l #H elim (rex_inv_gref â¦ H) -H * +[ #H destruct +| #Z1 #I2 #Y1 #K2 #Hl #H1 #H2 destruct /2 width=4 by ex2_2_intro/ +] +qed-. + +lemma rex_inv_gref_bind_dx (R): âI2,K2,L1,l. L1 âª¤[R, Â§l] K2.â{I2} â + ââI1,K1. K1 âª¤[R, Â§l] K2 & L1 = K1.â{I1}. +#R #I2 #K2 #L1 #l #H elim (rex_inv_gref â¦ H) -H * +[ #_ #H destruct +| #I1 #Z2 #K1 #Y2 #Hl #H1 #H2 destruct /2 width=4 by ex2_2_intro/ +] +qed-. + +(* Basic forward lemmas *****************************************************) + +lemma rex_fwd_zero_pair (R): âI,K1,K2,V1,V2. + K1.â{I}V1 âª¤[R, #0] K2.â{I}V2 â K1 âª¤[R, V1] K2. +#R #I #K1 #K2 #V1 #V2 #H +elim (rex_inv_zero_pair_sn â¦ H) -H #Y #X #HK12 #_ #H destruct // +qed-. + +(* Basic_2A1: uses: llpx_sn_fwd_pair_sn llpx_sn_fwd_bind_sn llpx_sn_fwd_flat_sn ) +lemma rex_fwd_pair_sn (R): âI,L1,L2,V,T. L1 âª¤[R, â¡{I}V.T] L2 â L1 âª¤[R, V] L2. +#R [ #p ] #I #L1 #L2 #V #T * #f #Hf #HL +[ elim (frees_inv_bind â¦ Hf) | elim (frees_inv_flat â¦ Hf) ] -Hf +/4 width=6 by sle_sex_trans, sor_inv_sle_sn, ex2_intro/ +qed-. + +(* Basic_2A1: uses: llpx_sn_fwd_bind_dx llpx_sn_fwd_bind_O_dx ) +lemma rex_fwd_bind_dx (R): âp,I,L1,L2,V1,V2,T. L1 âª¤[R, â{p,I}V1.T] L2 â + R L1 V1 V2 â L1.â{I}V1 âª¤[R, T] L2.â{I}V2. +#R #p #I #L1 #L2 #V1 #V2 #T #H #HV elim (rex_inv_bind â¦ H HV) -H -HV // +qed-. + +( Basic_2A1: uses: llpx_sn_fwd_flat_dx ) +lemma rex_fwd_flat_dx (R): âI,L1,L2,V,T. L1 âª¤[R, â{I}V.T] L2 â L1 âª¤[R, T] L2. +#R #I #L1 #L2 #V #T #H elim (rex_inv_flat â¦ H) -H // +qed-. + +lemma rex_fwd_dx (R): âI2,L1,K2,T. L1 âª¤[R, T] K2.â{I2} â + ââI1,K1. L1 = K1.â{I1}. +#R #I2 #L1 #K2 #T #f elim (pn_split f) * #g #Hg #_ #Hf destruct +[ elim (sex_inv_push2 â¦ Hf) | elim (sex_inv_next2 â¦ Hf) ] -Hf #I1 #K1 #_ #_ #H destruct +/2 width=3 by ex1_2_intro/ +qed-. + +(* Basic properties *********************************************************) + +lemma rex_atom (R): âI. â âª¤[R, âª{I}] â. +#R * /3 width=3 by frees_sort, frees_atom, frees_gref, sex_atom, ex2_intro/ +qed. + +lemma rex_sort (R): âI1,I2,L1,L2,s. + L1 âª¤[R, âs] L2 â L1.â{I1} âª¤[R, âs] L2.â{I2}. +#R #I1 #I2 #L1 #L2 #s * #f #Hf #H12 +lapply (frees_inv_sort â¦ Hf) -Hf +/4 width=3 by frees_sort, sex_push, isid_push, ex2_intro/ +qed. + +lemma rex_pair (R): âI,L1,L2,V1,V2. L1 âª¤[R, V1] L2 â + R L1 V1 V2 â L1.â{I}V1 âª¤[R, #0] L2.â{I}V2. +#R #I1 #I2 #L1 #L2 #V1 * +/4 width=3 by ext2_pair, frees_pair, sex_next, ex2_intro/ +qed. + +lemma rex_unit (R): âf,I,L1,L2. ðâ¦fâ¦ â L1 âª¤[cext2 R, cfull, f] L2 â + L1.â¤{I} âª¤[R, #0] L2.â¤{I}. +/4 width=3 by frees_unit, sex_next, ext2_unit, ex2_intro/ qed. + +lemma rex_lref (R): âI1,I2,L1,L2,i. + L1 âª¤[R, #i] L2 â L1.â{I1} âª¤[R, #âi] L2.â{I2}. +#R #I1 #I2 #L1 #L2 #i * /3 width=3 by sex_push, frees_lref, ex2_intro/ +qed. + +lemma rex_gref (R): âI1,I2,L1,L2,l. + L1 âª¤[R, Â§l] L2 â L1.â{I1} âª¤[R, Â§l] L2.â{I2}. +#R #I1 #I2 #L1 #L2 #l * #f #Hf #H12 +lapply (frees_inv_gref â¦ Hf) -Hf +/4 width=3 by frees_gref, sex_push, isid_push, ex2_intro/ +qed. + +lemma rex_bind_repl_dx (R): âI,I1,L1,L2,T. + L1.â{I} âª¤[R, T] L2.â{I1} â + âI2. cext2 R L1 I I2 â + L1.â{I} âª¤[R, T] L2.â{I2}. +#R #I #I1 #L1 #L2 #T * #f #Hf #HL12 #I2 #HR +/3 width=5 by sex_pair_repl, ex2_intro/ +qed-. + +(* Basic_2A1: uses: llpx_sn_co ) +lemma rex_co (R1) (R2): (âL,T1,T2. R1 L T1 T2 â R2 L T1 T2) â + âL1,L2,T. L1 âª¤[R1, T] L2 â L1 âª¤[R2, T] L2. +#R1 #R2 #HR #L1 #L2 #T /5 width=7 by sex_co, cext2_co, ex2_intro/ +qed-. + +lemma rex_isid (R1) (R2): âL1,L2,T1,T2. + (âf. L1 â¢ ðâ¦T1â¦ â f â ðâ¦fâ¦) â + (âf. ðâ¦fâ¦ â L1 â¢ ðâ¦T2â¦ â f) â + L1 âª¤[R1, T1] L2 â L1 âª¤[R2, T2] L2. +#R1 #R2 #L1 #L2 #T1 #T2 #H1 #H2 * +/4 width=7 by sex_co_isid, ex2_intro/ +qed-. + +lemma rex_unit_sn (R1) (R2): + âI,K1,L2. K1.â¤{I} âª¤[R1, #0] L2 â K1.â¤{I} âª¤[R2, #0] L2. +#R1 #R2 #I #K1 #L2 #H +elim (rex_inv_zero_unit_sn â¦ H) -H #f #K2 #Hf #HK12 #H destruct +/3 width=7 by rex_unit, sex_co_isid/ +qed-. + +(* Basic_2A1: removed theorems 9: + llpx_sn_skip llpx_sn_lref llpx_sn_free + llpx_sn_fwd_lref + llpx_sn_Y llpx_sn_ge_up llpx_sn_ge + llpx_sn_fwd_drop_sn llpx_sn_fwd_drop_dx +*) diff --git a/matita/matita/contribs/lambdadelta/static_2/static/rex_drops.ma b/matita/matita/contribs/lambdadelta/static_2/static/rex_drops.ma new file mode 100644 index 000000000..4e7315e11 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/rex_drops.ma @@ -0,0 +1,124 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/drops_cext2.ma". +include "static_2/relocation/drops_sex.ma". +include "static_2/static/frees_drops.ma". +include "static_2/static/rex.ma". + +(* GENERIC EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ****) + +definition f_dedropable_sn: predicate (relation3 lenv term term) â + Î»R. âb,f,L1,K1. â¬[b, f] L1 â K1 â + âK2,T. K1 âª¤[R, T] K2 â âU. â¬[f] T â U â + ââL2. L1 âª¤[R, U] L2 & â¬[b, f] L2 â K2 & L1 â¡[f] L2. + +definition f_dropable_sn: predicate (relation3 lenv term term) â + Î»R. âb,f,L1,K1. â¬[b, f] L1 â K1 â ðâ¦fâ¦ â + âL2,U. L1 âª¤[R, U] L2 â âT. â¬[f] T â U â + ââK2. K1 âª¤[R, T] K2 & â¬[b, f] L2 â K2. + +definition f_dropable_dx: predicate (relation3 lenv term term) â + Î»R. âL1,L2,U. L1 âª¤[R, U] L2 â + âb,f,K2. â¬[b, f] L2 â K2 â ðâ¦fâ¦ â âT. â¬[f] T â U â + ââK1. â¬[b, f] L1 â K1 & K1 âª¤[R, T] K2. + +definition f_transitive_next: relation3 â¦ â Î»R1,R2,R3. + âf,L,T. L â¢ ðâ¦Tâ¦ â f â + âg,I,K,n. â¬[n] L â K.â{I} â âg = â«±[n] f â + sex_transitive (cext2 R1) (cext2 R2) (cext2 R3) (cext2 R1) cfull g K I. + +(* Properties with generic slicing for local environments *******************) + +lemma rex_liftable_dedropable_sn: âR. (âL. reflexive ? (R L)) â + d_liftable2_sn â¦ lifts R â f_dedropable_sn R. +#R #H1R #H2R #b #f #L1 #K1 #HLK1 #K2 #T * #f1 #Hf1 #HK12 #U #HTU +elim (frees_total L1 U) #f2 #Hf2 +lapply (frees_fwd_coafter â¦ Hf2 â¦ HLK1 â¦ HTU â¦ Hf1) -HTU #Hf +elim (sex_liftable_co_dedropable_sn â¦ HLK1 â¦ HK12 â¦ Hf) -f1 -K1 +/3 width=6 by cext2_d_liftable2_sn, cfull_lift_sn, ext2_refl, ex3_intro, ex2_intro/ +qed-. + +lemma rex_trans_next: âR1,R2,R3. rex_transitive R1 R2 R3 â f_transitive_next R1 R2 R3. +#R1 #R2 #R3 #HR #f #L1 #T #Hf #g #I1 #K1 #n #HLK #Hgf #I #H +generalize in match HLK; -HLK elim H -I1 -I +[ #I #_ #L2 #_ #I2 #H + lapply (ext2_inv_unit_sn â¦ H) -H #H destruct + /2 width=1 by ext2_unit/ +| #I #V1 #V #HV1 #HLK1 #L2 #HL12 #I2 #H + elim (ext2_inv_pair_sn â¦ H) -H #V2 #HV2 #H destruct + elim (frees_inv_drops_next â¦ Hf â¦ HLK1 â¦ Hgf) -f -HLK1 #f #Hf #Hfg + /5 width=5 by ext2_pair, sle_sex_trans, ex2_intro/ +] +qed. + +(* Inversion lemmas with generic slicing for local environments *************) + +(* Basic_2A1: uses: llpx_sn_inv_lift_le llpx_sn_inv_lift_be llpx_sn_inv_lift_ge ) +( Basic_2A1: was: llpx_sn_drop_conf_O ) +lemma rex_dropable_sn: âR. f_dropable_sn R. +#R #b #f #L1 #K1 #HLK1 #H1f #L2 #U #f2 #Hf2 #HL12 #T #HTU +elim (frees_total K1 T) #f1 #Hf1 +lapply (frees_fwd_coafter â¦ Hf2 â¦ HLK1 â¦ HTU â¦ Hf1) -HTU #H2f +elim (sex_co_dropable_sn â¦ HLK1 â¦ HL12 â¦ H2f) -f2 -L1 +/3 width=3 by ex2_intro/ +qed-. + +(* Basic_2A1: was: llpx_sn_drop_trans_O ) +( Note: the proof might be simplified ) +lemma rex_dropable_dx: âR. f_dropable_dx R. +#R #L1 #L2 #U #f2 #Hf2 #HL12 #b #f #K2 #HLK2 #H1f #T #HTU +elim (drops_isuni_ex â¦ H1f L1) #K1 #HLK1 +elim (frees_total K1 T) #f1 #Hf1 +lapply (frees_fwd_coafter â¦ Hf2 â¦ HLK1 â¦ HTU â¦ Hf1) -K1 #H2f +elim (sex_co_dropable_dx â¦ HL12 â¦ HLK2 â¦ H2f) -L2 +/4 width=9 by frees_inv_lifts, ex2_intro/ +qed-. + +(* Basic_2A1: uses: llpx_sn_inv_lift_O ) +lemma rex_inv_lifts_bi: âR,L1,L2,U. L1 âª¤[R, U] L2 â âb,f. ðâ¦fâ¦ â + âK1,K2. â¬[b, f] L1 â K1 â â¬[b, f] L2 â K2 â + âT. â¬[f] T â U â K1 âª¤[R, T] K2. +#R #L1 #L2 #U #HL12 #b #f #Hf #K1 #K2 #HLK1 #HLK2 #T #HTU +elim (rex_dropable_sn â¦ HLK1 â¦ HL12 â¦ HTU) -L1 -U // #Y #HK12 #HY +lapply (drops_mono â¦ HY â¦ HLK2) -b -f -L2 #H destruct // +qed-. + +lemma rex_inv_lref_pair_sn: âR,L1,L2,i. L1 âª¤[R, #i] L2 â âI,K1,V1. â¬[i] L1 â K1.â{I}V1 â + ââK2,V2. â¬[i] L2 â K2.â{I}V2 & K1 âª¤[R, V1] K2 & R K1 V1 V2. +#R #L1 #L2 #i #HL12 #I #K1 #V1 #HLK1 elim (rex_dropable_sn â¦ HLK1 â¦ HL12 (#0)) -HLK1 -HL12 // +#Y #HY #HLK2 elim (rex_inv_zero_pair_sn â¦ HY) -HY +#K2 #V2 #HK12 #HV12 #H destruct /2 width=5 by ex3_2_intro/ +qed-. + +lemma rex_inv_lref_pair_dx: âR,L1,L2,i. L1 âª¤[R, #i] L2 â âI,K2,V2. â¬[i] L2 â K2.â{I}V2 â + ââK1,V1. â¬[i] L1 â K1.â{I}V1 & K1 âª¤[R, V1] K2 & R K1 V1 V2. +#R #L1 #L2 #i #HL12 #I #K2 #V2 #HLK2 elim (rex_dropable_dx â¦ HL12 â¦ HLK2 â¦ (#0)) -HLK2 -HL12 // +#Y #HLK1 #HY elim (rex_inv_zero_pair_dx â¦ HY) -HY +#K1 #V1 #HK12 #HV12 #H destruct /2 width=5 by ex3_2_intro/ +qed-. + +lemma rex_inv_lref_unit_sn: âR,L1,L2,i. L1 âª¤[R, #i] L2 â âI,K1. â¬[i] L1 â K1.â¤{I} â + ââf,K2. â¬[i] L2 â K2.â¤{I} & K1 âª¤[cext2 R, cfull, f] K2 & ðâ¦fâ¦. +#R #L1 #L2 #i #HL12 #I #K1 #HLK1 elim (rex_dropable_sn â¦ HLK1 â¦ HL12 (#0)) -HLK1 -HL12 // +#Y #HY #HLK2 elim (rex_inv_zero_unit_sn â¦ HY) -HY +#f #K2 #Hf #HK12 #H destruct /2 width=5 by ex3_2_intro/ +qed-. + +lemma rex_inv_lref_unit_dx: âR,L1,L2,i. L1 âª¤[R, #i] L2 â âI,K2. â¬[i] L2 â K2.â¤{I} â + ââf,K1. â¬[i] L1 â K1.â¤{I} & K1 âª¤[cext2 R, cfull, f] K2 & ðâ¦fâ¦. +#R #L1 #L2 #i #HL12 #I #K2 #HLK2 elim (rex_dropable_dx â¦ HL12 â¦ HLK2 â¦ (#0)) -HLK2 -HL12 // +#Y #HLK1 #HY elim (rex_inv_zero_unit_dx â¦ HY) -HY +#f #K2 #Hf #HK12 #H destruct /2 width=5 by ex3_2_intro/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/rex_fqup.ma b/matita/matita/contribs/lambdadelta/static_2/static/rex_fqup.ma new file mode 100644 index 000000000..c45914f34 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/rex_fqup.ma @@ -0,0 +1,49 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/static/frees_fqup.ma". +include "static_2/static/rex.ma". + +(* GENERIC EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ****) + +(* Advanced properties ******************************************************) + +(* Basic_2A1: uses: llpx_sn_refl ) +lemma rex_refl: âR. (âL. reflexive â¦ (R L)) â âL,T. L âª¤[R, T] L. +#R #HR #L #T elim (frees_total L T) +/4 width=3 by sex_refl, ext2_refl, ex2_intro/ +qed. + +lemma rex_pair_refl: âR. (âL. reflexive â¦ (R L)) â + âL,V1,V2. R L V1 V2 â âI,T. L.â{I}V1 âª¤[R, T] L.â{I}V2. +#R #HR #L #V1 #V2 #HV12 #I #T +elim (frees_total (L.â{I}V1) T) #f #Hf +elim (pn_split f) #g #H destruct +/5 width=3 by sex_refl, sex_next, sex_push, ext2_refl, ext2_pair, ex2_intro/ +qed. + +(* Advanced inversion lemmas ************************************************) + +lemma rex_inv_bind_void: âR,p,I,L1,L2,V,T. L1 âª¤[R, â{p,I}V.T] L2 â + L1 âª¤[R, V] L2 â§ L1.â§ âª¤[R, T] L2.â§. +#R #p #I #L1 #L2 #V #T * #f #Hf #HL elim (frees_inv_bind_void â¦ Hf) -Hf +/6 width=6 by sle_sex_trans, sex_inv_tl, sor_inv_sle_dx, sor_inv_sle_sn, ex2_intro, conj/ +qed-. + +(* Advanced forward lemmas ) + +lemma rex_fwd_bind_dx_void: âR,p,I,L1,L2,V,T. L1 âª¤[R, â{p,I}V.T] L2 â + L1.â§ âª¤[R, T] L2.â§. +#R #p #I #L1 #L2 #V #T #H elim (rex_inv_bind_void â¦ H) -H // +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/rex_fsle.ma b/matita/matita/contribs/lambdadelta/static_2/static/rex_fsle.ma new file mode 100644 index 000000000..24f68014d --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/rex_fsle.ma @@ -0,0 +1,176 @@ +(************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/sex_length.ma". +include "static_2/static/fsle_fsle.ma". +include "static_2/static/rex_drops.ma". +include "static_2/static/rex_rex.ma". + +(* GENERIC EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ****) + +definition R_fsge_compatible: predicate (relation3 â¦) â Î»RN. + âL,T1,T2. RN L T1 T2 â â¦L, T2â¦ â â¦L, T1â¦. + +definition rex_fsge_compatible: predicate (relation3 â¦) â Î»RN. + âL1,L2,T. L1 âª¤[RN, T] L2 â â¦L2, Tâ¦ â â¦L1, Tâ¦. + +definition rex_fsle_compatible: predicate (relation3 â¦) â Î»RN. + âL1,L2,T. L1 âª¤[RN, T] L2 â â¦L1, Tâ¦ â â¦L2, Tâ¦. + +(* Basic inversions with free variables inclusion for restricted closures ***) + +lemma frees_sex_conf: âR. rex_fsge_compatible R â + âL1,T,f1. L1 â¢ ðâ¦Tâ¦ â f1 â + âL2. L1 âª¤[cext2 R, cfull, f1] L2 â + ââf2. L2 â¢ ðâ¦Tâ¦ â f2 & f2 â f1. +#R #HR #L1 #T #f1 #Hf1 #L2 #H1L +lapply (HR L1 L2 T ?) /2 width=3 by ex2_intro/ #H2L +@(fsle_frees_trans_eq â¦ H2L â¦ Hf1) /3 width=4 by sex_fwd_length, sym_eq/ +qed-. + +(* Properties with free variables inclusion for restricted closures *********) + +(* Note: we just need lveq_inv_refl: âL,n1,n2. L ââ§[n1, n2] L â â§â§ 0 = n1 & 0 = n2 ) +lemma fsge_rex_trans: âR,L1,T1,T2. â¦L1, T1â¦ â â¦L1, T2â¦ â + âL2. L1 âª¤[R, T2] L2 â L1 âª¤[R, T1] L2. +#R #L1 #T1 #T2 * #n1 #n2 #f1 #f2 #Hf1 #Hf2 #Hn #Hf #L2 #HL12 +elim (lveq_inj_length â¦ Hn ?) // #H1 #H2 destruct +/4 width=5 by rex_inv_frees, sle_sex_trans, ex2_intro/ +qed-. + +lemma rex_sym: âR. rex_fsge_compatible R â + (âL1,L2,T1,T2. R L1 T1 T2 â R L2 T2 T1) â + âT. symmetric â¦ (rex R T). +#R #H1R #H2R #T #L1 #L2 +* #f1 #Hf1 #HL12 +elim (frees_sex_conf â¦ Hf1 â¦ HL12) -Hf1 // +/5 width=5 by sle_sex_trans, sex_sym, cext2_sym, ex2_intro/ +qed-. + +lemma rex_pair_sn_split: âR1,R2. (âL. reflexive â¦ (R1 L)) â (âL. reflexive â¦ (R2 L)) â + rex_fsge_compatible R1 â + âL1,L2,V. L1 âª¤[R1, V] L2 â âI,T. + ââL. L1 âª¤[R1, â¡{I}V.T] L & L âª¤[R2, V] L2. +#R1 #R2 #HR1 #HR2 #HR #L1 #L2 #V * #f #Hf #HL12 * [ #p ] #I #T +[ elim (frees_total L1 (â{p,I}V.T)) #g #Hg + elim (frees_inv_bind â¦ Hg) #y1 #y2 #H #_ #Hy +| elim (frees_total L1 (â{I}V.T)) #g #Hg + elim (frees_inv_flat â¦ Hg) #y1 #y2 #H #_ #Hy +] +lapply(frees_mono â¦ H â¦ Hf) -H #H1 +lapply (sor_eq_repl_back1 â¦ Hy â¦ H1) -y1 #Hy +lapply (sor_inv_sle_sn â¦ Hy) -y2 #Hfg +elim (sex_sle_split (cext2 R1) (cext2 R2) â¦ HL12 â¦ Hfg) -HL12 /2 width=1 by ext2_refl/ #L #HL1 #HL2 +lapply (sle_sex_trans â¦ HL1 â¦ Hfg) // #H +elim (frees_sex_conf â¦ Hf â¦ H) -Hf -H +/4 width=7 by sle_sex_trans, ex2_intro/ +qed-. + +lemma rex_flat_dx_split: âR1,R2. (âL. reflexive â¦ (R1 L)) â (âL. reflexive â¦ (R2 L)) â + rex_fsge_compatible R1 â + âL1,L2,T. L1 âª¤[R1, T] L2 â âI,V. + ââL. L1 âª¤[R1, â{I}V.T] L & L âª¤[R2, T] L2. +#R1 #R2 #HR1 #HR2 #HR #L1 #L2 #T * #f #Hf #HL12 #I #V +elim (frees_total L1 (â{I}V.T)) #g #Hg +elim (frees_inv_flat â¦ Hg) #y1 #y2 #_ #H #Hy +lapply(frees_mono â¦ H â¦ Hf) -H #H2 +lapply (sor_eq_repl_back2 â¦ Hy â¦ H2) -y2 #Hy +lapply (sor_inv_sle_dx â¦ Hy) -y1 #Hfg +elim (sex_sle_split (cext2 R1) (cext2 R2) â¦ HL12 â¦ Hfg) -HL12 /2 width=1 by ext2_refl/ #L #HL1 #HL2 +lapply (sle_sex_trans â¦ HL1 â¦ Hfg) // #H +elim (frees_sex_conf â¦ Hf â¦ H) -Hf -H +/4 width=7 by sle_sex_trans, ex2_intro/ +qed-. + +lemma rex_bind_dx_split: âR1,R2. (âL. reflexive â¦ (R1 L)) â (âL. reflexive â¦ (R2 L)) â + rex_fsge_compatible R1 â + âI,L1,L2,V1,T. L1.â{I}V1 âª¤[R1, T] L2 â âp. + ââL,V. L1 âª¤[R1, â{p,I}V1.T] L & L.â{I}V âª¤[R2, T] L2 & R1 L1 V1 V. +#R1 #R2 #HR1 #HR2 #HR #I #L1 #L2 #V1 #T * #f #Hf #HL12 #p +elim (frees_total L1 (â{p,I}V1.T)) #g #Hg +elim (frees_inv_bind â¦ Hg) #y1 #y2 #_ #H #Hy +lapply(frees_mono â¦ H â¦ Hf) -H #H2 +lapply (tl_eq_repl â¦ H2) -H2 #H2 +lapply (sor_eq_repl_back2 â¦ Hy â¦ H2) -y2 #Hy +lapply (sor_inv_sle_dx â¦ Hy) -y1 #Hfg +lapply (sle_inv_tl_sn â¦ Hfg) -Hfg #Hfg +elim (sex_sle_split (cext2 R1) (cext2 R2) â¦ HL12 â¦ Hfg) -HL12 /2 width=1 by ext2_refl/ #Y #H #HL2 +lapply (sle_sex_trans â¦ H â¦ Hfg) // #H0 +elim (sex_inv_next1 â¦ H) -H #Z #L #HL1 #H +elim (ext2_inv_pair_sn â¦ H) -H #V #HV #H1 #H2 destruct +elim (frees_sex_conf â¦ Hf â¦ H0) -Hf -H0 +/4 width=7 by sle_sex_trans, ex3_2_intro, ex2_intro/ +qed-. + +lemma rex_bind_dx_split_void: âR1,R2. (âL. reflexive â¦ (R1 L)) â (âL. reflexive â¦ (R2 L)) â + rex_fsge_compatible R1 â + âL1,L2,T. L1.â§ âª¤[R1, T] L2 â âp,I,V. + ââL. L1 âª¤[R1, â{p,I}V.T] L & L.â§ âª¤[R2, T] L2. +#R1 #R2 #HR1 #HR2 #HR #L1 #L2 #T * #f #Hf #HL12 #p #I #V +elim (frees_total L1 (â{p,I}V.T)) #g #Hg +elim (frees_inv_bind_void â¦ Hg) #y1 #y2 #_ #H #Hy +lapply(frees_mono â¦ H â¦ Hf) -H #H2 +lapply (tl_eq_repl â¦ H2) -H2 #H2 +lapply (sor_eq_repl_back2 â¦ Hy â¦ H2) -y2 #Hy +lapply (sor_inv_sle_dx â¦ Hy) -y1 #Hfg +lapply (sle_inv_tl_sn â¦ Hfg) -Hfg #Hfg +elim (sex_sle_split (cext2 R1) (cext2 R2) â¦ HL12 â¦ Hfg) -HL12 /2 width=1 by ext2_refl/ #Y #H #HL2 +lapply (sle_sex_trans â¦ H â¦ Hfg) // #H0 +elim (sex_inv_next1 â¦ H) -H #Z #L #HL1 #H +elim (ext2_inv_unit_sn â¦ H) -H #H destruct +elim (frees_sex_conf â¦ Hf â¦ H0) -Hf -H0 +/4 width=7 by sle_sex_trans, ex2_intro/ (* note: 2 ex2_intro ) +qed-. + +( Main properties with free variables inclusion for restricted closures ****) + +theorem rex_conf: âR1,R2. + rex_fsge_compatible R1 â + rex_fsge_compatible R2 â + R_confluent2_rex R1 R2 R1 R2 â + âT. confluent2 â¦ (rex R1 T) (rex R2 T). +#R1 #R2 #HR1 #HR2 #HR12 #T #L0 #L1 * #f1 #Hf1 #HL01 #L2 * #f #Hf #HL02 +lapply (frees_mono â¦ Hf1 â¦ Hf) -Hf1 #Hf12 +lapply (sex_eq_repl_back â¦ HL01 â¦ Hf12) -f1 #HL01 +elim (sex_conf â¦ HL01 â¦ HL02) /2 width=3 by ex2_intro/ [ | -HL01 -HL02 ] +[ #L #HL1 #HL2 + elim (frees_sex_conf â¦ Hf â¦ HL01) // -HR1 -HL01 #f1 #Hf1 #H1 + elim (frees_sex_conf â¦ Hf â¦ HL02) // -HR2 -HL02 #f2 #Hf2 #H2 + lapply (sle_sex_trans â¦ HL1 â¦ H1) // -HL1 -H1 #HL1 + lapply (sle_sex_trans â¦ HL2 â¦ H2) // -HL2 -H2 #HL2 + /3 width=5 by ex2_intro/ +| #g * #I0 [2: #V0 ] #K0 #n #HLK0 #Hgf #Z1 #H1 #Z2 #H2 #K1 #HK01 #K2 #HK02 + [ elim (ext2_inv_pair_sn â¦ H1) -H1 #V1 #HV01 #H destruct + elim (ext2_inv_pair_sn â¦ H2) -H2 #V2 #HV02 #H destruct + elim (frees_inv_drops_next â¦ Hf â¦ HLK0 â¦ Hgf) -Hf -HLK0 -Hgf #g0 #Hg0 #H0 + lapply (sle_sex_trans â¦ HK01 â¦ H0) // -HK01 #HK01 + lapply (sle_sex_trans â¦ HK02 â¦ H0) // -HK02 #HK02 + elim (HR12 â¦ HV01 â¦ HV02 K1 â¦ K2) /3 width=3 by ext2_pair, ex2_intro/ + | lapply (ext2_inv_unit_sn â¦ H1) -H1 #H destruct + lapply (ext2_inv_unit_sn â¦ H2) -H2 #H destruct + /3 width=3 by ext2_unit, ex2_intro/ + ] +] +qed-. + +theorem rex_trans_fsle: âR1,R2,R3. + rex_fsle_compatible R1 â f_transitive_next R1 R2 R3 â + âL1,L,T. L1 âª¤[R1, T] L â + âL2. L âª¤[R2, T] L2 â L1 âª¤[R3, T] L2. +#R1 #R2 #R3 #H1R #H2R #L1 #L #T #H +lapply (H1R â¦ H) -H1R #H0 +cases H -H #f1 #Hf1 #HL1 #L2 * #f2 #Hf2 #HL2 +lapply (fsle_inv_frees_eq â¦ H0 â¦ Hf1 â¦ Hf2) -H0 -Hf2 +/4 width=14 by sex_trans_gen, sex_fwd_length, sle_sex_trans, ex2_intro/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/rex_length.ma b/matita/matita/contribs/lambdadelta/static_2/static/rex_length.ma new file mode 100644 index 000000000..e279e159d --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/rex_length.ma @@ -0,0 +1,72 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/sex_length.ma". +include "static_2/static/rex_drops.ma". + +(* GENERIC EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ****) + +(* Forward lemmas with length for local environments ************************) + +(* Basic_2A1: uses: llpx_sn_fwd_length ) +lemma rex_fwd_length (R): âL1,L2,T. L1 âª¤[R, T] L2 â |L1| = |L2|. +#R #L1 #L2 #T /2 width=4 by sex_fwd_length/ +qed-. + +(* Properties with length for local environments ****************************) + +(* Basic_2A1: uses: llpx_sn_sort ) +lemma rex_sort_length (R): âL1,L2. |L1| = |L2| â âs. L1 âª¤[R, âs] L2. +#R #L1 elim L1 -L1 +[ #Y #H #s >(length_inv_zero_sn â¦ H) -H // +| #K1 #I1 #IH #Y #H #s + elim (length_inv_succ_sn â¦ H) -H #I2 #K2 #HK12 #H destruct + /3 width=1 by rex_sort/ +] +qed. + +( Basic_2A1: uses: llpx_sn_gref ) +lemma rex_gref_length (R): âL1,L2. |L1| = |L2| â âl. L1 âª¤[R, Â§l] L2. +#R #L1 elim L1 -L1 +[ #Y #H #s >(length_inv_zero_sn â¦ H) -H // +| #K1 #I1 #IH #Y #H #s + elim (length_inv_succ_sn â¦ H) -H #I2 #K2 #HK12 #H destruct + /3 width=1 by rex_gref/ +] +qed. + +lemma rex_unit_length (R): âL1,L2. |L1| = |L2| â âI. L1.â¤{I} âª¤[R, #0] L2.â¤{I}. +/3 width=3 by rex_unit, sex_length_isid/ qed. + +( Basic_2A1: uses: llpx_sn_lift_le llpx_sn_lift_ge ) +lemma rex_lifts_bi (R): d_liftable2_sn â¦ lifts R â + âL1,L2. |L1| = |L2| â âK1,K2,T. K1 âª¤[R, T] K2 â + âb,f. â¬[b, f] L1 â K1 â â¬[b, f] L2 â K2 â + âU. â¬[f] T â U â L1 âª¤[R, U] L2. +#R #HR #L1 #L2 #HL12 #K1 #K2 #T * #f1 #Hf1 #HK12 #b #f #HLK1 #HLK2 #U #HTU +elim (frees_total L1 U) #f2 #Hf2 +lapply (frees_fwd_coafter â¦ Hf2 â¦ HLK1 â¦ HTU â¦ Hf1) -HTU #Hf +/4 width=12 by sex_length_cfull, sex_liftable_co_dedropable_bi, cext2_d_liftable2_sn, cfull_lift_sn, ex2_intro/ +qed-. + +(* Inversion lemmas with length for local environment ***********************) + +lemma rex_inv_zero_length (R): âY1,Y2. Y1 âª¤[R, #0] Y2 â + â¨â¨ â§â§ Y1 = â & Y2 = â + | ââI,L1,L2,V1,V2. L1 âª¤[R, V1] L2 & R L1 V1 V2 & + Y1 = L1.â{I}V1 & Y2 = L2.â{I}V2 + | ââI,L1,L2. |L1| = |L2| & Y1 = L1.â¤{I} & Y2 = L2.â¤{I}. +#R #Y1 #Y2 #H elim (rex_inv_zero â¦ H) -H * +/4 width=9 by sex_fwd_length, ex4_5_intro, ex3_3_intro, or3_intro2, or3_intro1, or3_intro0, conj/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/rex_lex.ma b/matita/matita/contribs/lambdadelta/static_2/static/rex_lex.ma new file mode 100644 index 000000000..ffaebbc2e --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/rex_lex.ma @@ -0,0 +1,41 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/lex.ma". +include "static_2/static/rex_fsle.ma". +include "static_2/static/req.ma". + +(* GENERIC EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ****) + +(* Properties with generic extension of a context-sensitive relation ********) + +lemma rex_lex: âR,L1,L2. L1 âª¤[R] L2 â âT. L1 âª¤[R, T] L2. +#R #L1 #L2 * #f #Hf #HL12 #T +elim (frees_total L1 T) #g #Hg +/4 width=5 by sex_sdj, sdj_isid_sn, ex2_intro/ +qed. + +(* Inversion lemmas with generic extension of a context sensitive relation **) + +lemma rex_inv_lex_req: âR. c_reflexive â¦ R â + rex_fsge_compatible R â + âL1,L2,T. L1 âª¤[R, T] L2 â + ââL. L1 âª¤[R] L & L â¡[T] L2. +#R #H1R #H2R #L1 #L2 #T * #f1 #Hf1 #HL +elim (sex_sdj_split â¦ ceq_ext â¦ HL ðð ?) -HL +[ #L0 #HL10 #HL02 |: /2 width=1 by ext2_refl, sdj_isid_dx/ ] -H1R +lapply (sex_sdj â¦ HL10 f1 ?) /2 width=1 by sdj_isid_sn/ #H +elim (frees_sex_conf â¦ Hf1 â¦ H) // -H2R -H #f0 #Hf0 #Hf01 +/4 width=7 by sle_sex_trans, ( 2x *) ex2_intro/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/static/rex_rex.ma b/matita/matita/contribs/lambdadelta/static_2/static/rex_rex.ma new file mode 100644 index 000000000..08a4f192c --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/static/rex_rex.ma @@ -0,0 +1,89 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/relocation/sex_sex.ma". +include "static_2/static/frees_fqup.ma". +include "static_2/static/rex.ma". + +(* GENERIC EXTENSION ON REFERRED ENTRIES OF A CONTEXT-SENSITIVE REALTION ****) + +(* Advanced inversion lemmas ************************************************) + +lemma rex_inv_frees: âR,L1,L2,T. L1 âª¤[R, T] L2 â + âf. L1 â¢ ðâ¦Tâ¦ â f â L1 âª¤[cext2 R, cfull, f] L2. +#R #L1 #L2 #T /3 width=6 by frees_mono, sex_eq_repl_back/ +qed-. + +(* Advanced properties ******************************************************) + +(* Basic_2A1: uses: llpx_sn_dec ) +lemma rex_dec: âR. (âL,T1,T2. Decidable (R L T1 T2)) â + âL1,L2,T. Decidable (L1 âª¤[R, T] L2). +#R #HR #L1 #L2 #T +elim (frees_total L1 T) #f #Hf +elim (sex_dec (cext2 R) cfull â¦ L1 L2 f) +/4 width=3 by rex_inv_frees, cfull_dec, ext2_dec, ex2_intro, or_intror, or_introl/ +qed-. + +( Main properties **********************************************************) + +(* Basic_2A1: uses: llpx_sn_bind llpx_sn_bind_O ) +theorem rex_bind: âR,p,I,L1,L2,V1,V2,T. + L1 âª¤[R, V1] L2 â L1.â{I}V1 âª¤[R, T] L2.â{I}V2 â + L1 âª¤[R, â{p,I}V1.T] L2. +#R #p #I #L1 #L2 #V1 #V2 #T #f1 #HV #Hf1 * #f2 #HT #Hf2 +lapply (sex_fwd_bind â¦ Hf2) -Hf2 #Hf2 elim (sor_isfin_ex f1 (â«±f2)) +/3 width=7 by frees_fwd_isfin, frees_bind, sex_join, isfin_tl, ex2_intro/ +qed. + +(* Basic_2A1: llpx_sn_flat ) +theorem rex_flat: âR,I,L1,L2,V,T. + L1 âª¤[R, V] L2 â L1 âª¤[R, T] L2 â + L1 âª¤[R, â{I}V.T] L2. +#R #I #L1 #L2 #V #T #f1 #HV #Hf1 * #f2 #HT #Hf2 elim (sor_isfin_ex f1 f2) +/3 width=7 by frees_fwd_isfin, frees_flat, sex_join, ex2_intro/ +qed. + +theorem rex_bind_void: âR,p,I,L1,L2,V,T. + L1 âª¤[R, V] L2 â L1.â§ âª¤[R, T] L2.â§ â + L1 âª¤[R, â{p,I}V.T] L2. +#R #p #I #L1 #L2 #V #T * #f1 #HV #Hf1 * #f2 #HT #Hf2 +lapply (sex_fwd_bind â¦ Hf2) -Hf2 #Hf2 elim (sor_isfin_ex f1 (â«±f2)) +/3 width=7 by frees_fwd_isfin, frees_bind_void, sex_join, isfin_tl, ex2_intro/ +qed. + +(* Negated inversion lemmas *************************************************) + +(* Basic_2A1: uses: nllpx_sn_inv_bind nllpx_sn_inv_bind_O ) +lemma rnex_inv_bind: âR. (âL,T1,T2. Decidable (R L T1 T2)) â + âp,I,L1,L2,V,T. (L1 âª¤[R, â{p,I}V.T] L2 â â¥) â + (L1 âª¤[R, V] L2 â â¥) â¨ (L1.â{I}V âª¤[R, T] L2.â{I}V â â¥). +#R #HR #p #I #L1 #L2 #V #T #H elim (rex_dec â¦ HR L1 L2 V) +/4 width=2 by rex_bind, or_intror, or_introl/ +qed-. + +( Basic_2A1: uses: nllpx_sn_inv_flat *) +lemma rnex_inv_flat: âR. (âL,T1,T2. Decidable (R L T1 T2)) â + âI,L1,L2,V,T. (L1 âª¤[R, â{I}V.T] L2 â â¥) â + (L1 âª¤[R, V] L2 â â¥) â¨ (L1 âª¤[R, T] L2 â â¥). +#R #HR #I #L1 #L2 #V #T #H elim (rex_dec â¦ HR L1 L2 V) +/4 width=1 by rex_flat, or_intror, or_introl/ +qed-. + +lemma rnex_inv_bind_void: âR. (âL,T1,T2. Decidable (R L T1 T2)) â + âp,I,L1,L2,V,T. (L1 âª¤[R, â{p,I}V.T] L2 â â¥) â + (L1 âª¤[R, V] L2 â â¥) â¨ (L1.â§ âª¤[R, T] L2.â§ â â¥). +#R #HR #p #I #L1 #L2 #V #T #H elim (rex_dec â¦ HR L1 L2 V) +/4 width=2 by rex_bind_void, or_intror, or_introl/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/aarity.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/aarity.ma new file mode 100644 index 000000000..89199fabb --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/aarity.ma @@ -0,0 +1,74 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +(* THE FORMAL SYSTEM Î»Î´: MATITA SOURCE FILES + * Initial invocation: - Patience on me to gain peace and perfection! - + ) + +include "ground_2/lib/relations.ma". +include "static_2/notation/functions/item0_0.ma". +include "static_2/notation/functions/snitem2_2.ma". + +( ATOMIC ARITY *************************************************************) + +inductive aarity: Type[0] â + | AAtom: aarity (* atomic aarity construction ) + | APair: aarity â aarity â aarity ( binary aarity construction ) +. + +interpretation "atomic arity construction (atomic)" + 'Item0 = AAtom. + +interpretation "atomic arity construction (binary)" + 'SnItem2 A1 A2 = (APair A1 A2). + +( Basic inversion lemmas *************************************************) + +fact destruct_apair_apair_aux: âA1,A2,B1,B2. â¡B1.A1 = â¡B2.A2 â B1 = B2 â§ A1 = A2. +#A1 #A2 #B1 #B2 #H destruct /2 width=1 by conj/ +qed-. + +lemma discr_apair_xy_x: âA,B. â¡B.A = B â â¥. +#A #B elim B -B +[ #H destruct +| #Y #X #IHY #_ #H elim (destruct_apair_apair_aux â¦ H) -H /2 width=1 by/ () (* destruct lemma needed ) +] +qed-. + +( Basic_2A1: was: discr_tpair_xy_y *) +lemma discr_apair_xy_y: âB,A. â¡B. A = A â â¥. +#B #A elim A -A +[ #H destruct +| #Y #X #_ #IHX #H elim (destruct_apair_apair_aux â¦ H) -H /2 width=1 by/ (**) (* destruct lemma needed ) +] +qed-. + +( Basic properties *) + +lemma eq_aarity_dec: âA1,A2:aarity. Decidable (A1 = A2). +#A1 elim A1 -A1 +[ #A2 elim A2 -A2 /2 width=1 by or_introl/ + #B2 #A2 #_ #_ @or_intror #H destruct +| #B1 #A1 #IHB1 #IHA1 #A2 elim A2 -A2 + [ -IHB1 -IHA1 @or_intror #H destruct + | #B2 #A2 #_ #_ elim (IHB1 B2) -IHB1 + [ #H destruct elim (IHA1 A2) -IHA1 + [ #H destruct /2 width=1 by or_introl/ + | #HA12 @or_intror #H destruct /2 width=1 by/ + ] + | -IHA1 #HB12 @or_intror #H destruct /2 width=1 by/ + ] + ] +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/append.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/append.ma new file mode 100644 index 000000000..ec9ac39da --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/append.ma @@ -0,0 +1,100 @@ +(******************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/functions/snitem_2.ma". +include "static_2/notation/functions/snbind1_2.ma". +include "static_2/notation/functions/snbind2_3.ma". +include "static_2/notation/functions/snvoid_1.ma". +include "static_2/notation/functions/snabbr_2.ma". +include "static_2/notation/functions/snabst_2.ma". +include "static_2/syntax/lenv.ma". + +(* APPEND FOR LOCAL ENVIRONMENTS ********************************************) + +rec definition append L K on K â match K with +[ LAtom â L +| LBind K I â (append L K).â{I} +]. + +interpretation "append (local environment)" 'plus L1 L2 = (append L1 L2). + +interpretation "local environment tail binding construction (generic)" + 'SnItem I L = (append (LBind LAtom I) L). + +interpretation "local environment tail binding construction (unary)" + 'SnBind1 I L = (append (LBind LAtom (BUnit I)) L). + +interpretation "local environment tail binding construction (binary)" + 'SnBind2 I T L = (append (LBind LAtom (BPair I T)) L). + +interpretation "tail exclusion (local environment)" + 'SnVoid L = (append (LBind LAtom (BUnit Void)) L). + +interpretation "tail abbreviation (local environment)" + 'SnAbbr T L = (append (LBind LAtom (BPair Abbr T)) L). + +interpretation "tail abstraction (local environment)" + 'SnAbst L T = (append (LBind LAtom (BPair Abst T)) L). + +definition d_appendable_sn: predicate (lenvârelation term) â Î»R. + âK,T1,T2. R K T1 T2 â âL. R (L+K) T1 T2. + +(* Basic properties *******************************************************) + +lemma append_atom: âL. (L + â) = L. () (* () should be redundant ) +// qed. + +( Basic_2A1: uses: append_pair ) +lemma append_bind: âI,L,K. L+(K.â{I}) = (L+K).â{I}. +// qed. + +lemma append_atom_sn: âL. â + L = L. +#L elim L -L // +#L #I >append_bind // +qed. + +lemma append_assoc: associative â¦ append. +#L1 #L2 #L3 elim L3 -L3 // +qed. + +lemma append_shift: âL,K,I. L+(â{I}.K) = (L.â{I})+K. +#L #K #I append_bind #H destruct +qed-. + +lemma append_inv_bind3_sn: âI0,L,L0,K. L0.â{I0} = L + K â + â¨â¨ â§â§ L0.â{I0} = L & â = K + | ââK0. K = K0.â{I0} & L0 = L + K0. +#I0 #L #L0 /3 width=1 by or_introl, conj/ +#K #I >append_bind #H destruct /3 width=3 by ex2_intro, or_intror/ +qed-. + +lemma append_inj_sn: âK,L1,L2. L1+K = L2+K â L1 = L2. +#K elim K -K // +#K #I #IH #L1 #L2 >append_bind #H +elim (destruct_lbind_lbind_aux â¦ H) -H /2 width=1 by/ (**) (* destruct lemma needed ) +qed-. + +( Basic_1: uses: chead_ctail ) +( Basic_2A1: uses: lpair_ltail ) +lemma lenv_case_tail: âL. L = â â¨ ââK,I. L = â{I}.K. +#L elim L -L /2 width=1 by or_introl/ +#L #I [2: * ] /3 width=3 by ex1_2_intro, or_intror/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/append_length.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/append_length.ma new file mode 100644 index 000000000..1945bac9f --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/append_length.ma @@ -0,0 +1,112 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/lenv_length.ma". +include "static_2/syntax/append.ma". + +(* APPEND FOR LOCAL ENVIRONMENTS ********************************************) + +(* Properties with length for local environments ****************************) + +lemma append_length: âL1,L2. |L1 + L2| = |L1| + |L2|. +#L1 #L2 elim L2 -L2 // +#L2 #I >append_bind >length_bind >length_bind // +qed. + +lemma ltail_length: âI,L. |â{I}.L| = â|L|. +#I #L >append_length // +qed. + +(* Advanced inversion lemmas on length for local environments ***************) + +(* Basic_2A1: was: length_inv_pos_dx_ltail ) +lemma length_inv_succ_dx_ltail: âL,n. |L| = ân â + ââI,K. |K| = n & L = â{I}.K. +#Y #n #H elim (length_inv_succ_dx â¦ H) -H #I #L #Hn #HLK destruct +elim (lenv_case_tail â¦ L) [2: #K #J ] +#H destruct /2 width=4 by ex2_2_intro/ +qed-. + +(* Basic_2A1: was: length_inv_pos_sn_ltail ) +lemma length_inv_succ_sn_ltail: âL,n. ân = |L| â + ââI,K. n = |K| & L = â{I}.K. +#Y #n #H elim (length_inv_succ_sn â¦ H) -H #I #L #Hn #HLK destruct +elim (lenv_case_tail â¦ L) [2: #K #J ] +#H destruct /2 width=4 by ex2_2_intro/ +qed-. + +(* Inversion lemmas with length for local environments **********************) + +(* Basic_2A1: was: append_inj_sn ) +lemma append_inj_length_sn: âK1,K2,L1,L2. L1 + K1 = L2 + K2 â |K1| = |K2| â + L1 = L2 â§ K1 = K2. +#K1 elim K1 -K1 +[ /2 width=1 by conj/ + #K2 #I2 #L1 #L2 #_ >length_atom >length_bind + #H destruct +| #K1 #I1 #IH * + [ #L1 #L2 #_ >length_atom >length_bind + #H destruct + | #K2 #I2 #L1 #L2 #H1 >length_bind >length_bind #H2 + elim (destruct_lbind_lbind_aux â¦ H1) -H1 #H1 #H3 destruct (**) (* destruct lemma needed ) + elim (IH â¦ H1) -IH -H1 /3 width=4 by conj/ + ] +] +qed-. + +( Note: lemma 750 ) +( Basic_2A1: was: append_inj_dx ) +lemma append_inj_length_dx: âK1,K2,L1,L2. L1 + K1 = L2 + K2 â |L1| = |L2| â + L1 = L2 â§ K1 = K2. +#K1 elim K1 -K1 +[ /2 width=1 by conj/ + #K2 #I2 #L1 #L2 >append_atom >append_bind #H destruct + >length_bind >append_length >plus_n_Sm + #H elim (plus_xSy_x_false â¦ H) +| #K1 #I1 #IH * + [ #L1 #L2 >append_bind >append_atom #H destruct + >length_bind >append_length >plus_n_Sm #H + lapply (discr_plus_x_xy â¦ H) -H #H destruct + | #K2 #I2 #L1 #L2 >append_bind >append_bind #H1 #H2 + elim (destruct_lbind_lbind_aux â¦ H1) -H1 #H1 #H3 destruct (**) (* destruct lemma needed ) + elim (IH â¦ H1) -IH -H1 /2 width=1 by conj/ + ] +] +qed-. + +( Advanced inversion lemmas ************************************************) + +lemma append_inj_dx: âL,K1,K2. L+K1 = L+K2 â K1 = K2. +#L #K1 #K2 #H elim (append_inj_length_dx â¦ H) -H // +qed-. + +lemma append_inv_refl_dx: âL,K. L+K = L â K = â. +#L #K #H elim (append_inj_dx â¦ (â) â¦ H) // +qed-. + +lemma append_inv_pair_dx: âI,L,K,V. L+K = L.â{I}V â K = â.â{I}V. +#I #L #K #V #H elim (append_inj_dx â¦ (â.â{I}V) â¦ H) // +qed-. + +(* Basic eliminators ********************************************************) + +(* Basic_1: was: c_tail_ind ) +( Basic_2A1: was: lenv_ind_alt ) +lemma lenv_ind_tail: âQ:predicate lenv. + Q (â) â (âI,L. Q L â Q (â{I}.L)) â âL. Q L. +#Q #IH1 #IH2 #L @(f_ind â¦ length â¦ L) -L #x #IHx // +#L #I -IH1 #H destruct +elim (lenv_case_tail â¦ L) [2: * #K #J ] +#H destruct /3 width=1 by/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/bind.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/bind.ma new file mode 100644 index 000000000..e7c09081e --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/bind.ma @@ -0,0 +1,34 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/term.ma". + +(* BINDERS FOR LOCAL ENVIRONMENTS ******************************************) + +inductive bind: Type[0] â +| BUnit: bind1 â bind +| BPair: bind2 â term â bind +. + +(* Basic properties ********************************************************) + +lemma eq_bind_dec: âI1,I2:bind. Decidable (I1 = I2). +* #I1 [2: #V1 ] * #I2 [2,4: #V2 ] +[1: elim (eq_bind2_dec I1 I2) #HI + [ elim (eq_term_dec V1 V2) #HV ] +|4: elim (eq_bind1_dec I1 I2) #HI +] +/2 width=1 by or_introl/ +@or_intror #H destruct /2 width=1 by/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/bind_weight.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/bind_weight.ma new file mode 100644 index 000000000..c1f512f33 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/bind_weight.ma @@ -0,0 +1,31 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/term_weight.ma". +include "static_2/syntax/bind.ma". + +(* WEIGHT OF A BINDER FOR LOCAL ENVIRONMENTS *******************************) + +rec definition bw I â match I with +[ BUnit _ â 1 +| BPair _ V â â¯{V} +]. + +interpretation "weight (binder for local environments)" 'Weight I = (bw I). + +(* Basic properties *********************************************************) + +lemma bw_pos: âI. 1 â¤ â¯{I}. +* // +qed. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/ceq_ext.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/ceq_ext.ma new file mode 100644 index 000000000..63b3e2102 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/ceq_ext.ma @@ -0,0 +1,31 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/cext2.ma". + +(* CONTEXT-AWARE SYNTACTIC EQUIVALENCE FOR BINDERS **************************) + +definition ceq_ext: lenv â relation bind â + cext2 ceq. + +(* Basic properties *********************************************************) + +lemma ceq_ext_refl (L): reflexive â¦ (ceq_ext L). +/2 width=1 by ext2_refl/ qed. + +(* Basic inversion lemmas ***************************************************) + +lemma ceq_ext_inv_eq: âL,I1,I2. ceq_ext L I1 I2 â I1 = I2. +#L #I1 #I2 * -I1 -I2 // +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/ceq_ext_ceq_ext.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/ceq_ext_ceq_ext.ma new file mode 100644 index 000000000..020230a93 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/ceq_ext_ceq_ext.ma @@ -0,0 +1,25 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/ceq_ext.ma". + +(* CONTEXT-AWARE SYNTACTIC EQUIVALENCE FOR BINDERS **************************) + +(* Main properties **********************************************************) + +theorem ceq_ext_trans: âL1,I1,I. ceq_ext L1 I1 I â + âL2,I2. ceq_ext L2 I I2 â âL3. ceq_ext L3 I1 I2. +#L1 #I1 #I * -I1 -I // +#I1 #V1 #V #HV1 #L2 #Z #H elim (ext2_inv_pair_sn â¦ H) -H // +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/cext2.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/cext2.ma new file mode 100644 index 000000000..8ccf4e9fc --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/cext2.ma @@ -0,0 +1,33 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/ext2.ma". +include "static_2/syntax/lenv.ma". + +(* EXTENSION TO BINDERS OF A CONTEXT-SENSITIVE RELATION FOR TERMS ***********) + +definition cext2: (lenv â relation term) â lenv â relation bind â + Î»R,L. ext2 (R L). + +(* Basic properties *********************************************************) + +lemma cext2_sym: âR. (âL1,L2,T1,T2. R L1 T1 T2 â R L2 T2 T1) â + âL1,L2,I1,I2. cext2 R L1 I1 I2 â cext2 R L2 I2 I1. +#R #HR #L1 #L2 #I1 #I2 * /3 width=2 by ext2_pair/ +qed-. + +lemma cext2_co: âR1,R2. (âL,T1,T2. R1 L T1 T2 â R2 L T1 T2) â + âL,I1,I2. cext2 R1 L I1 I2 â cext2 R2 L I1 I2. +#R1 #R2 #HR #L #I1 #I2 * /3 width=2 by ext2_unit, ext2_pair/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/cl_restricted_weight.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/cl_restricted_weight.ma new file mode 100644 index 000000000..31c3f7adc --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/cl_restricted_weight.ma @@ -0,0 +1,55 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/functions/weight_2.ma". +include "static_2/syntax/lenv_weight.ma". + +(* WEIGHT OF A RESTRICTED CLOSURE *******************************************) + +definition rfw: lenv â term â ? â Î»L,T. â¯{L} + â¯{T}. + +interpretation "weight (restricted closure)" 'Weight L T = (rfw L T). + +(* Basic properties *********************************************************) + +(* Basic_1: was: flt_shift ) +lemma rfw_shift: âp,I,K,V,T. â¯{K.â{I}V, T} < â¯{K, â{p,I}V.T}. +normalize /2 width=1 by monotonic_le_plus_r/ +qed. + +lemma rfw_clear: âp,I1,I2,K,V,T. â¯{K.â¤{I1}, T} < â¯{K, â{p,I2}V.T}. +normalize /4 width=1 by monotonic_le_plus_r, le_S_S/ +qed. + +lemma rfw_tpair_sn: âI,L,V,T. â¯{L, V} < â¯{L, â¡{I}V.T}. +normalize in â¢ (?â?â?â?â?%%); // +qed. + +lemma rfw_tpair_dx: âI,L,V,T. â¯{L, T} < â¯{L, â¡{I}V.T}. +normalize in â¢ (?â?â?â?â?%%); // +qed. + +lemma rfw_lpair_sn: âI,L,V,T. â¯{L, V} < â¯{L.â{I}V, T}. +normalize /3 width=1 by monotonic_lt_plus_l, monotonic_le_plus_r/ +qed. + +lemma rfw_lpair_dx: âI,L,V,T. â¯{L, T} < â¯{L.â{I}V, T}. +normalize /3 width=1 by monotonic_lt_plus_l, monotonic_le_plus_r/ +qed. + +( Basic_1: removed theorems 7: + flt_thead_sx flt_thead_dx flt_trans + flt_arith0 flt_arith1 flt_arith2 flt_wf_ind +) +( Basic_1: removed local theorems 1: q_ind *) diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/cl_weight.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/cl_weight.ma new file mode 100644 index 000000000..a51094adc --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/cl_weight.ma @@ -0,0 +1,53 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/functions/weight_3.ma". +include "static_2/syntax/lenv_weight.ma". +include "static_2/syntax/genv.ma". + +(* WEIGHT OF A CLOSURE ******************************************************) + +(* activate genv ) +definition fw: genv â lenv â term â ? â Î»G,L,T. â¯{L} + â¯{T}. + +interpretation "weight (closure)" 'Weight G L T = (fw G L T). + +( Basic properties *********************************************************) + +(* Basic_1: was: flt_shift ) +lemma fw_shift: âp,I,G,K,V,T. â¯{G, K.â{I}V, T} < â¯{G, K, â{p,I}V.T}. +normalize /2 width=1 by monotonic_le_plus_r/ +qed. + +lemma fw_clear: âp,I1,I2,G,K,V,T. â¯{G, K.â¤{I1}, T} < â¯{G, K, â{p,I2}V.T}. +normalize /4 width=1 by monotonic_le_plus_r, le_S_S/ +qed. + +lemma fw_tpair_sn: âI,G,L,V,T. â¯{G, L, V} < â¯{G, L, â¡{I}V.T}. +normalize in â¢ (?â?â?â?â?â?%%); // +qed. + +lemma fw_tpair_dx: âI,G,L,V,T. â¯{G, L, T} < â¯{G, L, â¡{I}V.T}. +normalize in â¢ (?â?â?â?â?â?%%); // +qed. + +lemma fw_lpair_sn: âI,G,L,V,T. â¯{G, L, V} < â¯{G, L.â{I}V, T}. +normalize /3 width=1 by monotonic_lt_plus_l, monotonic_le_plus_r/ +qed. + +( Basic_1: removed theorems 7: + flt_thead_sx flt_thead_dx flt_trans + flt_arith0 flt_arith1 flt_arith2 flt_wf_ind +) +( Basic_1: removed local theorems 1: q_ind *) diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/ext2.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/ext2.ma new file mode 100644 index 000000000..a31aef544 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/ext2.ma @@ -0,0 +1,102 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/bind.ma". + +(* EXTENSION TO BINDERS OF A RELATION FOR TERMS *****************************) + +inductive ext2 (R:relation term): relation bind â +| ext2_unit: âI. ext2 R (BUnit I) (BUnit I) +| ext2_pair: âI,V1,V2. R V1 V2 â ext2 R (BPair I V1) (BPair I V2) +. + +(* Basic_inversion lemmas **************************************************) + +fact ext2_inv_unit_sn_aux: âR,Z1,Z2. ext2 R Z1 Z2 â + âI. Z1 = BUnit I â Z2 = BUnit I. +#R #Z1 #Z2 * -Z1 -Z2 #I [2: #V1 #V2 #_ ] +#J #H destruct // +qed-. + +lemma ext2_inv_unit_sn: âR,I,Z2. ext2 R (BUnit I) Z2 â Z2 = BUnit I. +/2 width=4 by ext2_inv_unit_sn_aux/ qed-. + +fact ext2_inv_pair_sn_aux: âR,Z1,Z2. ext2 R Z1 Z2 â + âI,V1. Z1 = BPair I V1 â + ââV2. R V1 V2 & Z2 = BPair I V2. +#R #Z1 #Z2 * -Z1 -Z2 #I [2: #V1 #V2 #HV12 ] +#J #W1 #H destruct /2 width=3 by ex2_intro/ +qed-. + +lemma ext2_inv_pair_sn: âR,Z2,I,V1. ext2 R (BPair I V1) Z2 â + ââV2. R V1 V2 & Z2 = BPair I V2. +/2 width=3 by ext2_inv_pair_sn_aux/ qed-. + +fact ext2_inv_unit_dx_aux: âR,Z1,Z2. ext2 R Z1 Z2 â + âI. Z2 = BUnit I â Z1 = BUnit I. +#R #Z1 #Z2 * -Z1 -Z2 #I [2: #V1 #V2 #_ ] +#J #H destruct // +qed-. + +lemma ext2_inv_unit_dx: âR,I,Z1. ext2 R Z1 (BUnit I) â Z1 = BUnit I. +/2 width=4 by ext2_inv_unit_dx_aux/ qed-. + +fact ext2_inv_pair_dx_aux: âR,Z1,Z2. ext2 R Z1 Z2 â + âI,V2. Z2 = BPair I V2 â + ââV1. R V1 V2 & Z1 = BPair I V1. +#R #Z1 #Z2 * -Z1 -Z2 #I [2: #V1 #V2 #HV12 ] +#J #W2 #H destruct /2 width=3 by ex2_intro/ +qed-. + +lemma ext2_inv_pair_dx: âR,Z1,I,V2. ext2 R Z1 (BPair I V2) â + ââV1. R V1 V2 & Z1 = BPair I V1. +/2 width=3 by ext2_inv_pair_dx_aux/ qed-. + +(* Advanced inversion lemmas ***********************************************) + +lemma ext2_inv_unit: âR,I1,I2. ext2 R (BUnit I1) (BUnit I2) â I1 = I2. +#R #I1 #I2 #H lapply (ext2_inv_unit_sn â¦ H) -H +#H destruct // +qed-. + +lemma ext2_inv_pair: âR,I1,I2,V1,V2. ext2 R (BPair I1 V1) (BPair I2 V2) â + I1 = I2 â§ R V1 V2. +#R #I1 #I2 #V1 #V2 #H elim (ext2_inv_pair_sn â¦ H) -H +#V #HV #H destruct /2 width=1 by conj/ +qed-. + +(* Basic properties ********************************************************) + +lemma ext2_refl: âR. reflexive â¦ R â reflexive â¦ (ext2 R). +#R #HR * /2 width=1 by ext2_pair/ +qed. + +lemma ext2_sym: âR. symmetric â¦ R â symmetric â¦ (ext2 R). +#R #HR #T1 #T2 * /3 width=1 by ext2_unit, ext2_pair/ +qed-. + +lemma ext2_dec: âR. (âT1,T2. Decidable (R T1 T2)) â + âI1,I2. Decidable (ext2 R I1 I2). +#R #HR * #I1 [2: #T1 ] * #I2 [2,4: #T2 ] +[ elim (eq_bind2_dec I1 I2) #HI12 destruct + [ elim (HR T1 T2) -HR #HT12 /3 width=1 by ext2_pair, or_introl/ ] + @or_intror #H elim (ext2_inv_pair â¦ H) -H /2 width=1 by/ +| @or_intror #H lapply (ext2_inv_unit_sn â¦ H) -H + #H destruct +| @or_intror #H lapply (ext2_inv_unit_dx â¦ H) -H + #H destruct +| elim (eq_bind1_dec I1 I2) #HI12 destruct + /4 width=2 by ext2_inv_unit, ext2_unit, or_intror, or_introl/ +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/ext2_ext2.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/ext2_ext2.ma new file mode 100644 index 000000000..ec71ed980 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/ext2_ext2.ma @@ -0,0 +1,27 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/ext2.ma". + +(* EXTENSION TO BINDERS OF A RELATION FOR TERMS *****************************) + +(* Main properties ) + +theorem ext2_trans: âR. Transitive â¦ R â Transitive â¦ (ext2 R). +#R #HR #I1 #I #H elim H -I1 -I +[ #I1 #J #H >(ext2_inv_unit_sn â¦ H) -J /2 width=1 by ext2_unit/ +| #I1 #V1 #V #HV1 #J #H elim (ext2_inv_pair_sn â¦ H) -H + #V2 #HV2 #H destruct /3 width=3 by ext2_pair/ +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/ext2_tc.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/ext2_tc.ma new file mode 100644 index 000000000..d6df0a3de --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/ext2_tc.ma @@ -0,0 +1,57 @@ +(****************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/lib/star.ma". +include "static_2/syntax/ext2.ma". + +(* EXTENSION TO BINDERS OF A RELATION FOR TERMS *****************************) + +(* Properties with transitive closure ***************************************) + +lemma ext2_tc_pair: âR,I,V1,V2. TC â¦ R V1 V2 â + TC â¦ (ext2 R) (BPair I V1) (BPair I V2). +#R #I #V1 #V2 #H elim H -H -V2 +/3 width=3 by ext2_pair, step, inj/ +qed. + +lemma ext2_tc_inj: âR,I1,I2. ext2 R I1 I2 â ext2 (TC â¦ R) I1 I2. +#R #I1 #I2 * -I1 -I2 +/3 width=1 by ext2_unit, ext2_pair, inj/ +qed. + +(* Main properties with transitive closure **********************************) + +theorem ext2_tc_step: âR,I1,I. ext2 (TC â¦ R) I1 I â + âI2. ext2 R I I2 â ext2 (TC â¦ R) I1 I2. +#R #I1 #I * -I1 -I +[ #I #Z #H >(ext2_inv_unit_sn â¦ H) -Z /2 width=1 by ext2_unit/ +| #I #V1 #V #HV1 #Z #H + elim (ext2_inv_pair_sn â¦ H) -H #V2 #HV2 #H destruct + /3 width=3 by ext2_pair, step/ +] +qed-. + +(* Advanced properties with transitive closure ******************************) + +lemma ext2_tc: âR,I1,I2. TC â¦ (ext2 R) I1 I2 â ext2 (TC â¦ R) I1 I2. +#R #I1 #I2 #H elim H -I2 +/2 width=3 by ext2_tc_step, ext2_tc_inj/ +qed. + +(* Advanced inversion lemmas with transitive closure ************************) + +lemma ext2_inv_tc: âR,I1,I2. ext2 (TC â¦ R) I1 I2 â TC â¦ (ext2 R) I1 I2. +#R #I1 #I2 * -I1 -I2 +/3 width=1 by ext2_tc_pair, ext2_unit, inj/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/genv.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/genv.ma new file mode 100644 index 000000000..35365d802 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/genv.ma @@ -0,0 +1,52 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/functions/star_0.ma". +include "static_2/notation/functions/dxbind2_3.ma". +include "static_2/notation/functions/dxabbr_2.ma". +include "static_2/notation/functions/dxabst_2.ma". +include "static_2/syntax/term.ma". + +(* GLOBAL ENVIRONMENTS ******************************************************) + +(* global environments ) +inductive genv: Type[0] â +| GAtom: genv ( empty ) +| GPair: genv â bind2 â term â genv ( binary binding construction ) +. + +interpretation "sort (global environment)" + 'Star = (GAtom). + +interpretation "global environment binding construction (binary)" + 'DxBind2 G I T = (GPair G I T). + +interpretation "abbreviation (global environment)" + 'DxAbbr G T = (GPair G Abbr T). + +interpretation "abstraction (global environment)" + 'DxAbst G T = (GPair G Abst T). + +( Basic properties *********************************************************) + +lemma eq_genv_dec: âG1,G2:genv. Decidable (G1 = G2). +#G1 elim G1 -G1 [| #G1 #I1 #T1 #IHG1 ] * [2,4: #G2 #I2 #T2 ] +[3: /2 width=1 by or_introl/ +|2: elim (eq_bind2_dec I1 I2) #HI + [ elim (IHG1 G2) -IHG1 #HG + [ elim (eq_term_dec T1 T2) #HT /2 width=1 by or_introl/ ] + ] +] +@or_intror #H destruct /2 width=1 by/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/genv_length.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/genv_length.ma new file mode 100644 index 000000000..afd36af9c --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/genv_length.ma @@ -0,0 +1,25 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/genv.ma". + +(* LENGTH OF A GLOBAL ENVIRONMENT *) + +rec definition glength G on G â match G with +[ GAtom â 0 +| GPair G _ _ â â(glength G) +]. + +interpretation "length (global environment)" + 'card G = (glength G). diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/genv_weight.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/genv_weight.ma new file mode 100644 index 000000000..9bf005fa0 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/genv_weight.ma @@ -0,0 +1,30 @@ +(********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/term_weight.ma". +include "static_2/syntax/genv.ma". + +(* WEIGHT OF A GLOBAL ENVIRONMENT *******************************************) + +rec definition gw G â match G with +[ GAtom â 0 +| GPair G I T â gw G + â¯{T} +]. + +interpretation "weight (global environment)" 'Weight G = (gw G). + +(* Basic properties *) + +lemma gw_pair: âI,G,T. â¯{G} < â¯{G.â{I}T}. +normalize /2 width=1 by monotonic_le_plus_r/ qed. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/item.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/item.ma new file mode 100644 index 000000000..ba8357260 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/item.ma @@ -0,0 +1,97 @@ +(******************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/lib/bool.ma". +include "ground_2/lib/arith.ma". + +(* ITEMS ********************************************************************) + +(* atomic items ) +inductive item0: Type[0] â + | Sort: nat â item0 ( sort: starting at 0 ) + | LRef: nat â item0 ( reference by index: starting at 0 ) + | GRef: nat â item0 ( reference by position: starting at 0 ) +. + +( unary binding items ) +inductive bind1: Type[0] â + | Void: bind1 ( exclusion ) +. + +( binary binding items ) +inductive bind2: Type[0] â + | Abbr: bind2 ( abbreviation ) + | Abst: bind2 ( abstraction ) +. + +( binary non-binding items ) +inductive flat2: Type[0] â + | Appl: flat2 ( application ) + | Cast: flat2 ( explicit type annotation ) +. + +( binary items ) +inductive item2: Type[0] â + | Bind2: bool â bind2 â item2 ( polarized binding item ) + | Flat2: flat2 â item2 ( non-binding item ) +. + +( Basic inversion lemmas ***************************************************) + +fact destruct_sort_sort_aux: âs1,s2. Sort s1 = Sort s2 â s1 = s2. +#s1 #s2 #H destruct // +qed-. + +(* Basic properties *********************************************************) + +lemma eq_item0_dec: âI1,I2:item0. Decidable (I1 = I2). +* #i1 * #i2 [2,3,4,6,7,8: @or_intror #H destruct ] +[2: elim (eq_nat_dec i1 i2) |1,3: elim (eq_nat_dec i1 i2) ] /2 width=1 by or_introl/ +#Hni12 @or_intror #H destruct /2 width=1 by/ +qed-. + +lemma eq_bind1_dec: âI1,I2:bind1. Decidable (I1 = I2). +* * /2 width=1 by or_introl/ +qed-. + +(* Basic_1: was: bind_dec ) +lemma eq_bind2_dec: âI1,I2:bind2. Decidable (I1 = I2). + * /2 width=1 by or_introl/ +@or_intror #H destruct +qed-. + +(* Basic_1: was: flat_dec ) +lemma eq_flat2_dec: âI1,I2:flat2. Decidable (I1 = I2). + * /2 width=1 by or_introl/ +@or_intror #H destruct +qed-. + +(* Basic_1: was: kind_dec ) +lemma eq_item2_dec: âI1,I2:item2. Decidable (I1 = I2). + [ #p1 ] #I1 * [1,3: #p2 ] #I2 +[2,3: @or_intror #H destruct +| elim (eq_bool_dec p1 p2) #Hp + [ elim (eq_bind2_dec I1 I2) /2 width=1 by or_introl/ #HI ] + @or_intror #H destruct /2 width=1 by/ +| elim (eq_flat2_dec I1 I2) /2 width=1 by or_introl/ #HI + @or_intror #H destruct /2 width=1 by/ +] +qed-. + +(* Basic_1: removed theorems 21: + s_S s_plus s_plus_sym s_minus minus_s_s s_le s_lt s_inj s_inc + s_arith0 s_arith1 + r_S r_plus r_plus_sym r_minus r_dis s_r r_arith0 r_arith1 + not_abbr_abst bind_dec_not +*) diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/item_sd.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/item_sd.ma new file mode 100644 index 000000000..8a9ae7183 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/item_sd.ma @@ -0,0 +1,124 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/item_sh.ma". + +(* SORT DEGREE **************************************************************) + +(* sort degree specification ) +record sd (h:sh): Type[0] â { + deg : relation nat; ( degree of the sort ) + deg_total: âs. âd. deg s d; ( functional relation axioms ) + deg_mono : âs,d1,d2. deg s d1 â deg s d2 â d1 = d2; + deg_next : âs,d. deg s d â deg (next h s) (âd) ( compatibility condition ) +}. + +( Notable specifications ***************************************************) + +definition deg_O: relation nat â Î»s,d. d = 0. + +definition sd_O: âh. sd h â Î»h. mk_sd h deg_O â¦. +/2 width=2 by le_n_O_to_eq, le_n, ex_intro/ defined. + +(* Basic_2A1: includes: deg_SO_pos ) +inductive deg_SO (h:sh) (s:nat) (s0:nat): predicate nat â +| deg_SO_succ : ân. (next h)^n s0 = s â deg_SO h s s0 (ân) +| deg_SO_zero: ((ân. (next h)^n s0 = s) â â¥) â deg_SO h s s0 0 +. + +fact deg_SO_inv_succ_aux: âh,s,s0,n0. deg_SO h s s0 n0 â ân. n0 = ân â + (next h)^n s0 = s. +#h #s #s0 #n0 -n0 +[ #n #Hn #x #H destruct // +| #_ #x #H destruct +] +qed-. + +(* Basic_2A1: was: deg_SO_inv_pos ) +lemma deg_SO_inv_succ: âh,s,s0,n. deg_SO h s s0 (ân) â (next h)^n s0 = s. +/2 width=3 by deg_SO_inv_succ_aux/ qed-. + +lemma deg_SO_refl: âh,s. deg_SO h s s 1. +#h #s @(deg_SO_succ â¦ 0 ?) // +qed. + +lemma deg_SO_gt: âh,s1,s2. s1 < s2 â deg_SO h s1 s2 0. +#h #s1 #s2 #HK12 @deg_SO_zero #n elim n -n normalize +[ #H destruct + elim (lt_refl_false â¦ HK12) +| #n #_ #H + lapply (next_lt h ((next h)^n s2)) >H -H #H + lapply (transitive_lt â¦ H HK12) -s1 #H1 + lapply (nexts_le h s2 n) #H2 + lapply (le_to_lt_to_lt â¦ H2 H1) -h -n #H + elim (lt_refl_false â¦ H) +] +qed. + +definition sd_SO: âh. nat â sd h â Î»h,s. mk_sd h (deg_SO h s) â¦. +[ #s0 + lapply (nexts_dec h s0 s) * + [ * /3 width=2 by deg_SO_succ, ex_intro/ | /4 width=2 by deg_SO_zero, ex_intro/ ] +| #K0 #d1 #d2 * [ #n1 ] #H1 * [1,3: #n2 ] #H2 // + [ < H2 in H1; -H2 #H + lapply (nexts_inj â¦ H) -H #H destruct // + | elim H1 /2 width=2 by ex_intro/ + | elim H2 /2 width=2 by ex_intro/ + ] +| #s0 #n * + [ #d #H destruct elim d -d normalize + /2 width=1 by deg_SO_gt, deg_SO_succ, next_lt/ + | #H1 @deg_SO_zero * #d #H2 destruct + @H1 -H1 @(ex_intro â¦ (âd)) /2 width=1 by sym_eq/ (**) (* explicit constructor ) + ] +] +defined. + +rec definition sd_d (h:sh) (s:nat) (d:nat) on d : sd h â + match d with + [ O â sd_O h + | S d â match d with + [ O â sd_SO h s + | _ â sd_d h (next h s) d + ] + ]. + +( Basic inversion lemmas ***************************************************) + +lemma deg_inv_pred: âh,o,s,d. deg h o (next h s) (âd) â deg h o s (ââd). +#h #o #s #d #H1 +elim (deg_total h o s) #n #H0 +lapply (deg_next â¦ H0) #H2 +lapply (deg_mono â¦ H1 H2) -H1 -H2 #H >H >S_pred /2 width=2 by ltn_to_ltO/ +qed-. + +lemma deg_inv_prec: âh,o,s,n,d. deg h o ((next h)^n s) (âd) â deg h o s (â(d+n)). +#h #o #s #n elim n -n normalize /3 width=1 by deg_inv_pred/ +qed-. + +(* Basic properties *) + +lemma deg_iter: âh,o,s,d,n. deg h o s d â deg h o ((next h)^n s) (d-n). +#h #o #s #d #n elim n -n normalize /3 width=1 by deg_next/ +qed. + +lemma deg_next_SO: âh,o,s,d. deg h o s (âd) â deg h o (next h s) d. +/2 width=1 by deg_next/ qed-. + +lemma sd_d_SS: âh,s,d. sd_d h s (ââd) = sd_d h (next h s) (âd). +// qed. + +lemma sd_d_correct: âh,d,s. deg h (sd_d h s d) s d. +#h #d elim d -d // #d elim d -d /3 width=1 by deg_inv_pred/ +qed. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/item_sh.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/item_sh.ma new file mode 100644 index 000000000..9e0b03f73 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/item_sh.ma @@ -0,0 +1,44 @@ +(******************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/lib/arith.ma". + +(* SORT HIERARCHY ***********************************************************) + +(* sort hierarchy specification ) +record sh: Type[0] â { + next : nat â nat; ( next sort in the hierarchy ) + next_lt: âs. s < next s ( strict monotonicity condition ) +}. + +definition sh_N: sh â mk_sh S â¦. +// defined. + +( Basic properties *) + +lemma nexts_le: âh,s,n. s â¤ (next h)^n s. +#h #s #n elim n -n // normalize #n #IH +lapply (next_lt h ((next h)^n s)) #H +lapply (le_to_lt_to_lt â¦ IH H) -IH -H /2 width=2 by lt_to_le/ +qed. + +lemma nexts_lt: âh,s,n. s < (next h)^(ân) s. +#h #s #n normalize +lapply (nexts_le h s n) #H +@(le_to_lt_to_lt â¦ H) // +qed. + +axiom nexts_dec: âh,s1,s2. Decidable (ân. (next h)^n s1 = s2). + +axiom nexts_inj: âh,s,n1,n2. (next h)^n1 s = (next h)^n2 s â n1 = n2. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/lenv.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/lenv.ma new file mode 100644 index 000000000..7e2b65da5 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/lenv.ma @@ -0,0 +1,89 @@ +(******************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/functions/star_0.ma". +include "static_2/notation/functions/dxitem_2.ma". +include "static_2/notation/functions/dxbind1_2.ma". +include "static_2/notation/functions/dxbind2_3.ma". +include "static_2/notation/functions/dxvoid_1.ma". +include "static_2/notation/functions/dxabbr_2.ma". +include "static_2/notation/functions/dxabst_2.ma". +include "static_2/syntax/bind.ma". + +(* LOCAL ENVIRONMENTS *******************************************************) + +(* local environments ) +inductive lenv: Type[0] â +| LAtom: lenv ( empty ) +| LBind: lenv â bind â lenv ( binding construction ) +. + +interpretation "sort (local environment)" + 'Star = LAtom. + +interpretation "local environment binding construction (generic)" + 'DxItem L I = (LBind L I). + +interpretation "local environment binding construction (unary)" + 'DxBind1 L I = (LBind L (BUnit I)). + +interpretation "local environment binding construction (binary)" + 'DxBind2 L I T = (LBind L (BPair I T)). + +interpretation "void (local environment)" + 'DxVoid L = (LBind L (BUnit Void)). + +interpretation "abbreviation (local environment)" + 'DxAbbr L T = (LBind L (BPair Abbr T)). + +interpretation "abstraction (local environment)" + 'DxAbst L T = (LBind L (BPair Abst T)). + +definition cfull: relation3 lenv bind bind â Î»L,I1,I2. â¤. + +definition ceq: relation3 lenv term term â Î»L. eq â¦. + +( Basic properties *********************************************************) + +lemma eq_lenv_dec: âL1,L2:lenv. Decidable (L1 = L2). +#L1 elim L1 -L1 [| #L1 #I1 #IHL1 ] * [2,4: #L2 #I2 ] +[3: /2 width=1 by or_introl/ +|2: elim (eq_bind_dec I1 I2) #HI + [ elim (IHL1 L2) -IHL1 #HL /2 width=1 by or_introl/ ] +] +@or_intror #H destruct /2 width=1 by/ +qed-. + +lemma cfull_dec: âL,T1,T2. Decidable (cfull L T1 T2). +/2 width=1 by or_introl/ qed-. + +(* Basic inversion lemmas ***************************************************) + +fact destruct_lbind_lbind_aux: âI1,I2,L1,L2. L1.â{I1} = L2.â{I2} â + L1 = L2 â§ I1 = I2. +#I1 #I2 #L1 #L2 #H destruct /2 width=1 by conj/ +qed-. + +(* Basic_2A1: uses: discr_lpair_x_xy *) +lemma discr_lbind_x_xy: âI,L. L = L.â{I} â â¥. +#I #L elim L -L +[ #H destruct +| #L #J #IHL #H elim (destruct_lbind_lbind_aux â¦ H) -H (**) (* destruct lemma needed ) + #H1 #H2 destruct /2 width=1 by/ +] +qed-. + +( Basic_2A1: uses: discr_lpair_xy_x *) +lemma discr_lbind_xy_x: âI,L. L.â{I} = L â â¥. +/2 width=4 by discr_lbind_x_xy/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/lenv_length.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/lenv_length.ma new file mode 100644 index 000000000..52dfc3516 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/lenv_length.ma @@ -0,0 +1,61 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/lenv.ma". + +(* LENGTH OF A LOCAL ENVIRONMENT ********************************************) + +rec definition length L â match L with +[ LAtom â 0 +| LBind L _ â â(length L) +]. + +interpretation "length (local environment)" 'card L = (length L). + +(* Basic properties *********************************************************) + +lemma length_atom: |â| = 0. +// qed. + +(* Basic_2A1: uses: length_pair ) +lemma length_bind: âI,L. |L.â{I}| = â|L|. +// qed. + +( Basic inversion lemmas ***************************************************) + +lemma length_inv_zero_dx: âL. |L| = 0 â L = â. +* // #L #I >length_bind +#H destruct +qed-. + +lemma length_inv_zero_sn: âL. 0 = |L| â L = â. +/2 width=1 by length_inv_zero_dx/ qed-. + +(* Basic_2A1: was: length_inv_pos_dx ) +lemma length_inv_succ_dx: ân,L. |L| = ân â + ââI,K. |K| = n & L = K. â{I}. +#n +[ >length_atom #H destruct +| #L #I >length_bind /3 width=4 by ex2_2_intro, injective_S/ +] +qed-. + +(* Basic_2A1: was: length_inv_pos_sn ) +lemma length_inv_succ_sn: ân,L. ân = |L| â + ââI,K. n = |K| & L = K. â{I}. +#n #L #H lapply (sym_eq ??? H) -H +#H elim (length_inv_succ_dx â¦ H) -H /2 width=4 by ex2_2_intro/ +qed-. + +( Basic_2A1: removed theorems 1: length_inj *) diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/lenv_weight.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/lenv_weight.ma new file mode 100644 index 000000000..01ff8b7ad --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/lenv_weight.ma @@ -0,0 +1,35 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/bind_weight.ma". +include "static_2/syntax/lenv.ma". + +(* WEIGHT OF A LOCAL ENVIRONMENT ********************************************) + +rec definition lw L â match L with +[ LAtom â 0 +| LBind L I â lw L + â¯{I} +]. + +interpretation "weight (local environment)" 'Weight L = (lw L). + +(* Basic properties *********************************************************) + +(* Basic_2A1: uses: lw_pair ) +lemma lw_bind: âI,L. â¯{L} < â¯{L.â{I}}. +normalize /2 width=1 by monotonic_le_plus_r/ qed. + +( Basic_1: removed theorems 4: clt_cong clt_head clt_thead clt_wf_ind ) +( Basic_1: removed local theorems 1: clt_wf__q_ind ) +( Basic_1: note: clt_thead should be renamed clt_ctail *) diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/lveq.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/lveq.ma new file mode 100644 index 000000000..855978783 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/lveq.ma @@ -0,0 +1,176 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/relations/voidstareq_4.ma". +include "static_2/syntax/lenv.ma". + +(* EQUIVALENCE FOR LOCAL ENVIRONMENTS UP TO EXCLUSION BINDERS ***************) + +inductive lveq: bi_relation nat lenv â +| lveq_atom : lveq 0 (â) 0 (â) +| lveq_bind : âI1,I2,K1,K2. lveq 0 K1 0 K2 â + lveq 0 (K1.â{I1}) 0 (K2.â{I2}) +| lveq_void_sn: âK1,K2,n1. lveq n1 K1 0 K2 â + lveq (ân1) (K1.â§) 0 K2 +| lveq_void_dx: âK1,K2,n2. lveq 0 K1 n2 K2 â + lveq 0 K1 (ân2) (K2.â§) +. + +interpretation "equivalence up to exclusion binders (local environment)" + 'VoidStarEq L1 n1 n2 L2 = (lveq n1 L1 n2 L2). + +(* Basic properties *********************************************************) + +lemma lveq_refl: âL. L ââ§[0, 0] L. +#L elim L -L /2 width=1 by lveq_atom, lveq_bind/ +qed. + +lemma lveq_sym: bi_symmetric â¦ lveq. +#n1 #n2 #L1 #L2 #H elim H -L1 -L2 -n1 -n2 +/2 width=1 by lveq_atom, lveq_bind, lveq_void_sn, lveq_void_dx/ +qed-. + +( Basic inversion lemmas ***************************************************) + +fact lveq_inv_zero_aux: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â + 0 = n1 â 0 = n2 â + â¨â¨ â§â§ â = L1 & â = L2 + | ââI1,I2,K1,K2. K1 ââ§[0, 0] K2 & K1.â{I1} = L1 & K2.â{I2} = L2. +#L1 #L2 #n1 #n2 * -L1 -L2 -n1 -n2 +[1: /3 width=1 by or_introl, conj/ +|2: /3 width=7 by ex3_4_intro, or_intror/ +|: #K1 #K2 #n #_ #H1 #H2 destruct +] +qed-. + +lemma lveq_inv_zero: âL1,L2. L1 ââ§[0, 0] L2 â + â¨â¨ â§â§ â = L1 & â = L2 + | ââI1,I2,K1,K2. K1 ââ§[0, 0] K2 & K1.â{I1} = L1 & K2.â{I2} = L2. +/2 width=5 by lveq_inv_zero_aux/ qed-. + +fact lveq_inv_succ_sn_aux: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â + âm1. âm1 = n1 â + ââK1. K1 ââ§[m1, 0] L2 & K1.â§ = L1 & 0 = n2. +#L1 #L2 #n1 #n2 -L1 -L2 -n1 -n2 +[1: #m #H destruct +|2: #I1 #I2 #K1 #K2 #_ #m #H destruct +|: #K1 #K2 #n #HK #m #H destruct /2 width=3 by ex3_intro/ +] +qed-. + +lemma lveq_inv_succ_sn: âL1,K2,n1,n2. L1 ââ§[ân1, n2] K2 â + ââK1. K1 ââ§[n1, 0] K2 & K1.â§ = L1 & 0 = n2. +/2 width=3 by lveq_inv_succ_sn_aux/ qed-. + +lemma lveq_inv_succ_dx: âK1,L2,n1,n2. K1 ââ§[n1, ân2] L2 â + ââK2. K1 ââ§[0, n2] K2 & K2.â§ = L2 & 0 = n1. +#K1 #L2 #n1 #n2 #H +lapply (lveq_sym â¦ H) -H #H +elim (lveq_inv_succ_sn â¦ H) -H /3 width=3 by lveq_sym, ex3_intro/ +qed-. + +fact lveq_inv_succ_aux: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â + âm1,m2. âm1 = n1 â âm2 = n2 â â¥. +#L1 #L2 #n1 #n2 * -L1 -L2 -n1 -n2 +[1: #m1 #m2 #H1 #H2 destruct +|2: #I1 #I2 #K1 #K2 #_ #m1 #m2 #H1 #H2 destruct +|: #K1 #K2 #n #_ #m1 #m2 #H1 #H2 destruct +] +qed-. + +lemma lveq_inv_succ: âL1,L2,n1,n2. L1 ââ§[ân1, ân2] L2 â â¥. +/2 width=9 by lveq_inv_succ_aux/ qed-. + +(* Advanced inversion lemmas ************************************************) + +lemma lveq_inv_bind: âI1,I2,K1,K2. K1.â{I1} ââ§[0, 0] K2.â{I2} â K1 ââ§[0, 0] K2. +#I1 #I2 #K1 #K2 #H +elim (lveq_inv_zero â¦ H) -H * [| #Z1 #Z2 #Y1 #Y2 #HY ] #H1 #H2 destruct // +qed-. + +lemma lveq_inv_atom_atom: ân1,n2. â ââ§[n1, n2] â â â§â§ 0 = n1 & 0 = n2. + [2: #n1 ] * [2,4: #n2 ] #H +[ elim (lveq_inv_succ â¦ H) +| elim (lveq_inv_succ_dx â¦ H) -H #Y #_ #H1 #H2 destruct +| elim (lveq_inv_succ_sn â¦ H) -H #Y #_ #H1 #H2 destruct +| /2 width=1 by conj/ +] +qed-. + +lemma lveq_inv_bind_atom: âI1,K1,n1,n2. K1.â{I1} ââ§[n1, n2] â â + ââm1. K1 ââ§[m1, 0] â & BUnit Void = I1 & âm1 = n1 & 0 = n2. +#I1 #K1 * [2: #n1 ] * [2,4: #n2 ] #H +[ elim (lveq_inv_succ â¦ H) +| elim (lveq_inv_succ_dx â¦ H) -H #Y #_ #H1 #H2 destruct +| elim (lveq_inv_succ_sn â¦ H) -H #Y #HY #H1 #H2 destruct /2 width=3 by ex4_intro/ +| elim (lveq_inv_zero â¦ H) -H * + [ #H1 #H2 destruct + | #Z1 #Z2 #Y1 #Y2 #_ #H1 #H2 destruct + ] +] +qed-. + +lemma lveq_inv_atom_bind: âI2,K2,n1,n2. â ââ§[n1, n2] K2.â{I2} â + ââm2. â ââ§[0, m2] K2 & BUnit Void = I2 & 0 = n1 & âm2 = n2. +#I2 #K2 #n1 #n2 #H +lapply (lveq_sym â¦ H) -H #H +elim (lveq_inv_bind_atom â¦ H) -H +/3 width=3 by lveq_sym, ex4_intro/ +qed-. + +lemma lveq_inv_pair_pair: âI1,I2,K1,K2,V1,V2,n1,n2. K1.â{I1}V1 ââ§[n1, n2] K2.â{I2}V2 â + â§â§ K1 ââ§[0, 0] K2 & 0 = n1 & 0 = n2. +#I1 #I2 #K1 #K2 #V1 #V2 * [2: #n1 ] * [2,4: #n2 ] #H +[ elim (lveq_inv_succ â¦ H) +| elim (lveq_inv_succ_dx â¦ H) -H #Y #_ #H1 #H2 destruct +| elim (lveq_inv_succ_sn â¦ H) -H #Y #_ #H1 #H2 destruct +| elim (lveq_inv_zero â¦ H) -H * + [ #H1 #H2 destruct + | #Z1 #Z2 #Y1 #Y2 #HY #H1 #H2 destruct /3 width=1 by and3_intro/ + ] +] +qed-. + +lemma lveq_inv_void_succ_sn: âL1,L2,n1,n2. L1.â§ ââ§[ân1, n2] L2 â + â§â§ L1 â â§[n1, 0] L2 & 0 = n2. +#L1 #L2 #n1 #n2 #H +elim (lveq_inv_succ_sn â¦ H) -H #Y #HY #H1 #H2 destruct /2 width=1 by conj/ +qed-. + +lemma lveq_inv_void_succ_dx: âL1,L2,n1,n2. L1 ââ§[n1, ân2] L2.â§ â + â§â§ L1 â â§[0, n2] L2 & 0 = n1. +#L1 #L2 #n1 #n2 #H +lapply (lveq_sym â¦ H) -H #H +elim (lveq_inv_void_succ_sn â¦ H) -H +/3 width=1 by lveq_sym, conj/ +qed-. + +(* Advanced forward lemmas **************************************************) + +lemma lveq_fwd_gen: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â + â¨â¨ 0 = n1 | 0 = n2. +#L1 #L2 [2: #n1 ] * [2,4: #n2 ] #H +[ elim (lveq_inv_succ â¦ H) ] +/2 width=1 by or_introl, or_intror/ +qed-. + +lemma lveq_fwd_pair_sn: âI1,K1,L2,V1,n1,n2. K1.â{I1}V1 ââ§[n1, n2] L2 â 0 = n1. +#I1 #K1 #L2 #V1 [2: #n1 ] // * [2: #n2 ] #H +[ elim (lveq_inv_succ â¦ H) +| elim (lveq_inv_succ_sn â¦ H) -H #Y #_ #H1 #H2 destruct +] +qed-. + +lemma lveq_fwd_pair_dx: âI2,L1,K2,V2,n1,n2. L1 ââ§*[n1, n2] K2.â{I2}V2 â 0 = n2. +/3 width=6 by lveq_fwd_pair_sn, lveq_sym/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/lveq_length.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/lveq_length.ma new file mode 100644 index 000000000..104d2b8b9 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/lveq_length.ma @@ -0,0 +1,109 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/lenv_length.ma". +include "static_2/syntax/lveq.ma". + +(* EQUIVALENCE FOR LOCAL ENVIRONMENTS UP TO EXCLUSION BINDERS ***************) + +(* Properties with length for local environments ****************************) + +lemma lveq_length_eq: âL1,L2. |L1| = |L2| â L1 ââ§[0, 0] L2. +#L1 elim L1 -L1 +[ #Y2 #H >(length_inv_zero_sn â¦ H) -Y2 /2 width=3 by lveq_atom, ex_intro/ +| #K1 #I1 #IH #Y2 #H + elim (length_inv_succ_sn â¦ H) -H #I2 #K2 #HK #H destruct + /3 width=1 by lveq_bind/ +] +qed. + +( Forward lemmas with length for local environments ************************) + +lemma lveq_fwd_length_le_sn: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â n1 â¤ |L1|. +#L1 #L2 #n1 #n2 #H elim H -L1 -L2 -n1 -n2 normalize +/2 width=1 by le_S_S/ +qed-. + +lemma lveq_fwd_length_le_dx: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â n2 â¤ |L2|. +#L1 #L2 #n1 #n2 #H elim H -L1 -L2 -n1 -n2 normalize +/2 width=1 by le_S_S/ +qed-. + +lemma lveq_fwd_length: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â + â§â§ |L1|-|L2| = n1 & |L2|-|L1| = n2. +#L1 #L2 #n1 #n2 #H elim H -L1 -L2 -n1 -n2 /2 width=1 by conj/ +#K1 #K2 #n #_ #H1 #H2 >length_bind /3 width=1 by minus_Sn_m, conj/ +qed-. + +lemma lveq_length_fwd_sn: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â |L1| â¤ |L2| â 0 = n1. +#L1 #L2 #n1 #n2 #H #HL +elim (lveq_fwd_length â¦ H) -H +>(eq_minus_O â¦ HL) // +qed-. + +lemma lveq_length_fwd_dx: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â |L2| â¤ |L1| â 0 = n2. +#L1 #L2 #n1 #n2 #H #HL +elim (lveq_fwd_length â¦ H) -H +>(eq_minus_O â¦ HL) // +qed-. + +lemma lveq_inj_length: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â + |L1| = |L2| â â§â§ 0 = n1 & 0 = n2. +#L1 #L2 #n1 #n2 #H #HL +elim (lveq_fwd_length â¦ H) -H +>HL -HL /2 width=1 by conj/ +qed-. + +lemma lveq_fwd_length_plus: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â + |L1| + n2 = |L2| + n1. +#L1 #L2 #n1 #n2 #H elim H -L1 -L2 -n1 -n2 normalize +/2 width=2 by injective_plus_r/ +qed-. + +lemma lveq_fwd_length_eq: âL1,L2. L1 ââ§[0, 0] L2 â |L1| = |L2|. +/3 width=2 by lveq_fwd_length_plus, injective_plus_l/ qed-. + +lemma lveq_fwd_length_minus: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â + |L1| - n1 = |L2| - n2. +/3 width=3 by lveq_fwd_length_plus, lveq_fwd_length_le_dx, lveq_fwd_length_le_sn, plus_to_minus_2/ qed-. + +lemma lveq_fwd_abst_bind_length_le: âI1,I2,L1,L2,V1,n1,n2. + L1.â{I1}V1 ââ§[n1, n2] L2.â{I2} â |L1| â¤ |L2|. +#I1 #I2 #L1 #L2 #V1 #n1 #n2 #HL +lapply (lveq_fwd_pair_sn â¦ HL) #H destruct +elim (lveq_fwd_length â¦ HL) -HL >length_bind >length_bind // +qed-. + +lemma lveq_fwd_bind_abst_length_le: âI1,I2,L1,L2,V2,n1,n2. + L1.â{I1} ââ§[n1, n2] L2.â{I2}V2 â |L2| â¤ |L1|. +/3 width=6 by lveq_fwd_abst_bind_length_le, lveq_sym/ qed-. + +(* Inversion lemmas with length for local environments **********************) + +lemma lveq_inv_void_dx_length: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2.â§ â |L1| â¤ |L2| â + ââm2. L1 â â§[n1, m2] L2 & 0 = n1 & âm2 = n2. +#L1 #L2 #n1 #n2 #H #HL12 +lapply (lveq_fwd_length_plus â¦ H) normalize >plus_n_Sm #H0 +lapply (plus2_inv_le_sn â¦ H0 HL12) -H0 -HL12 #H0 +elim (le_inv_S1 â¦ H0) -H0 #m2 #_ #H0 destruct +elim (lveq_inv_void_succ_dx â¦ H) -H /2 width=3 by ex3_intro/ +qed-. + +lemma lveq_inv_void_sn_length: âL1,L2,n1,n2. L1.â§ ââ§[n1, n2] L2 â |L2| â¤ |L1| â + ââm1. L1 â â§[m1, n2] L2 & âm1 = n1 & 0 = n2. +#L1 #L2 #n1 #n2 #H #HL +lapply (lveq_sym â¦ H) -H #H +elim (lveq_inv_void_dx_length â¦ H HL) -H -HL +/3 width=4 by lveq_sym, ex3_intro/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/lveq_lveq.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/lveq_lveq.ma new file mode 100644 index 000000000..8ac40a55f --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/lveq_lveq.ma @@ -0,0 +1,53 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/lveq_length.ma". + +(* EQUIVALENCE FOR LOCAL ENVIRONMENTS UP TO EXCLUSION BINDERS ***************) + +(* Main inversion lemmas ****************************************************) + +theorem lveq_inv_bind: âK1,K2. K1 ââ§[0, 0] K2 â + âI1,I2,m1,m2. K1.â{I1} ââ§[m1, m2] K2.â{I2} â + â§â§ 0 = m1 & 0 = m2. +#K1 #K2 #HK #I1 #I2 #m1 #m2 #H +lapply (lveq_fwd_length_eq â¦ HK) -HK #HK +elim (lveq_inj_length â¦ H) -H normalize /3 width=1 by conj, eq_f/ +qed-. + +theorem lveq_inj: âL1,L2,n1,n2. L1 ââ§[n1, n2] L2 â + âm1,m2. L1 ââ§[m1, m2] L2 â + â§â§ n1 = m1 & n2 = m2. +#L1 #L2 #n1 #n2 #Hn #m1 #m2 #Hm +elim (lveq_fwd_length â¦ Hn) -Hn #H1 #H2 destruct +elim (lveq_fwd_length â¦ Hm) -Hm #H1 #H2 destruct +/2 width=1 by conj/ +qed-. + +theorem lveq_inj_void_sn_ge: âK1,K2. |K2| â¤ |K1| â + ân1,n2. K1 ââ§[n1, n2] K2 â + âm1,m2. K1.â§ ââ§[m1, m2] K2 â + â§â§ ân1 = m1 & 0 = m2 & 0 = n2. +#L1 #L2 #HL #n1 #n2 #Hn #m1 #m2 #Hm +elim (lveq_fwd_length â¦ Hn) -Hn #H1 #H2 destruct +elim (lveq_fwd_length â¦ Hm) -Hm #H1 #H2 destruct +>length_bind >eq_minus_S_pred >(eq_minus_O â¦ HL) +/3 width=4 by plus_minus, and3_intro/ +qed-. + +theorem lveq_inj_void_dx_le: âK1,K2. |K1| â¤ |K2| â + ân1,n2. K1 ââ§[n1, n2] K2 â + âm1,m2. K1 ââ§[m1, m2] K2.â§ â + â§â§ ân2 = m2 & 0 = m1 & 0 = n1. +/3 width=5 by lveq_inj_void_sn_ge, lveq_sym/ qed-. (* auto: 2x lveq_sym *) diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/tdeq.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/tdeq.ma new file mode 100644 index 000000000..d008d5e86 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/tdeq.ma @@ -0,0 +1,187 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/relations/stareq_4.ma". +include "static_2/syntax/item_sd.ma". +include "static_2/syntax/term.ma". + +(* DEGREE-BASED EQUIVALENCE ON TERMS ****************************************) + +inductive tdeq (h) (o): relation term â +| tdeq_sort: âs1,s2,d. deg h o s1 d â deg h o s2 d â tdeq h o (âs1) (âs2) +| tdeq_lref: âi. tdeq h o (#i) (#i) +| tdeq_gref: âl. tdeq h o (Â§l) (Â§l) +| tdeq_pair: âI,V1,V2,T1,T2. tdeq h o V1 V2 â tdeq h o T1 T2 â tdeq h o (â¡{I}V1.T1) (â¡{I}V2.T2) +. + +interpretation + "context-free degree-based equivalence (term)" + 'StarEq h o T1 T2 = (tdeq h o T1 T2). + +(* Basic inversion lemmas ***************************************************) + +fact tdeq_inv_sort1_aux: âh,o,X,Y. X â[h, o] Y â âs1. X = âs1 â + ââs2,d. deg h o s1 d & deg h o s2 d & Y = âs2. +#h #o #X #Y * -X -Y +[ #s1 #s2 #d #Hs1 #Hs2 #s #H destruct /2 width=5 by ex3_2_intro/ +| #i #s #H destruct +| #l #s #H destruct +| #I #V1 #V2 #T1 #T2 #_ #_ #s #H destruct +] +qed-. + +lemma tdeq_inv_sort1: âh,o,Y,s1. âs1 â[h, o] Y â + ââs2,d. deg h o s1 d & deg h o s2 d & Y = âs2. +/2 width=3 by tdeq_inv_sort1_aux/ qed-. + +fact tdeq_inv_lref1_aux: âh,o,X,Y. X â[h, o] Y â âi. X = #i â Y = #i. +#h #o #X #Y * -X -Y // +[ #s1 #s2 #d #_ #_ #j #H destruct +| #I #V1 #V2 #T1 #T2 #_ #_ #j #H destruct +] +qed-. + +lemma tdeq_inv_lref1: âh,o,Y,i. #i â[h, o] Y â Y = #i. +/2 width=5 by tdeq_inv_lref1_aux/ qed-. + +fact tdeq_inv_gref1_aux: âh,o,X,Y. X â[h, o] Y â âl. X = Â§l â Y = Â§l. +#h #o #X #Y * -X -Y // +[ #s1 #s2 #d #_ #_ #k #H destruct +| #I #V1 #V2 #T1 #T2 #_ #_ #k #H destruct +] +qed-. + +lemma tdeq_inv_gref1: âh,o,Y,l. Â§l â[h, o] Y â Y = Â§l. +/2 width=5 by tdeq_inv_gref1_aux/ qed-. + +fact tdeq_inv_pair1_aux: âh,o,X,Y. X â[h, o] Y â âI,V1,T1. X = â¡{I}V1.T1 â + ââV2,T2. V1 â[h, o] V2 & T1 â[h, o] T2 & Y = â¡{I}V2.T2. +#h #o #X #Y * -X -Y +[ #s1 #s2 #d #_ #_ #J #W1 #U1 #H destruct +| #i #J #W1 #U1 #H destruct +| #l #J #W1 #U1 #H destruct +| #I #V1 #V2 #T1 #T2 #HV #HT #J #W1 #U1 #H destruct /2 width=5 by ex3_2_intro/ +] +qed-. + +lemma tdeq_inv_pair1: âh,o,I,V1,T1,Y. â¡{I}V1.T1 â[h, o] Y â + ââV2,T2. V1 â[h, o] V2 & T1 â[h, o] T2 & Y = â¡{I}V2.T2. +/2 width=3 by tdeq_inv_pair1_aux/ qed-. + +(* Advanced inversion lemmas ************************************************) + +lemma tdeq_inv_sort1_deg: âh,o,Y,s1. âs1 â[h, o] Y â âd. deg h o s1 d â + ââs2. deg h o s2 d & Y = âs2. +#h #o #Y #s1 #H #d #Hs1 elim (tdeq_inv_sort1 â¦ H) -H +#s2 #x #Hx <(deg_mono h o â¦ Hx â¦ Hs1) -s1 -d /2 width=3 by ex2_intro/ +qed-. + +lemma tdeq_inv_sort_deg: âh,o,s1,s2. âs1 â[h, o] âs2 â + âd1,d2. deg h o s1 d1 â deg h o s2 d2 â + d1 = d2. +#h #o #s1 #y #H #d1 #d2 #Hs1 #Hy +elim (tdeq_inv_sort1_deg â¦ H â¦ Hs1) -s1 #s2 #Hs2 #H destruct +<(deg_mono h o â¦ Hy â¦ Hs2) -s2 -d1 // +qed-. + +lemma tdeq_inv_pair: âh,o,I1,I2,V1,V2,T1,T2. â¡{I1}V1.T1 â[h, o] â¡{I2}V2.T2 â + â§â§ I1 = I2 & V1 â[h, o] V2 & T1 â[h, o] T2. +#h #o #I1 #I2 #V1 #V2 #T1 #T2 #H elim (tdeq_inv_pair1 â¦ H) -H +#V0 #T0 #HV #HT #H destruct /2 width=1 by and3_intro/ +qed-. + +lemma tdeq_inv_pair_xy_x: âh,o,I,V,T. â¡{I}V.T â[h, o] V â â¥. +#h #o #I #V elim V -V +[ #J #T #H elim (tdeq_inv_pair1 â¦ H) -H #X #Y #_ #_ #H destruct +| #J #X #Y #IHX #_ #T #H elim (tdeq_inv_pair â¦ H) -H #H #HY #_ destruct /2 width=2 by/ +] +qed-. + +lemma tdeq_inv_pair_xy_y: âh,o,I,T,V. â¡{I}V.T â[h, o] T â â¥. +#h #o #I #T elim T -T +[ #J #V #H elim (tdeq_inv_pair1 â¦ H) -H #X #Y #_ #_ #H destruct +| #J #X #Y #_ #IHY #V #H elim (tdeq_inv_pair â¦ H) -H #H #_ #HY destruct /2 width=2 by/ +] +qed-. + +(* Basic forward lemmas *****************************************************) + +lemma tdeq_fwd_atom1: âh,o,I,Y. âª{I} â[h, o] Y â âJ. Y = âª{J}. +#h #o * #x #Y #H [ elim (tdeq_inv_sort1 â¦ H) -H ] +/3 width=4 by tdeq_inv_gref1, tdeq_inv_lref1, ex_intro/ +qed-. + +(* Basic properties *********************************************************) + +lemma tdeq_refl: âh,o. reflexive â¦ (tdeq h o). +#h #o #T elim T -T /2 width=1 by tdeq_pair/ +* /2 width=1 by tdeq_lref, tdeq_gref/ +#s elim (deg_total h o s) /2 width=3 by tdeq_sort/ +qed. + +lemma tdeq_sym: âh,o. symmetric â¦ (tdeq h o). +#h #o #T1 #T2 #H elim H -T1 -T2 +/2 width=3 by tdeq_sort, tdeq_lref, tdeq_gref, tdeq_pair/ +qed-. + +lemma tdeq_dec: âh,o,T1,T2. Decidable (T1 â[h, o] T2). +#h #o #T1 elim T1 -T1 [ * #s1 | #I1 #V1 #T1 #IHV #IHT ] * [1,3,5,7: * #s2 |: #I2 #V2 #T2 ] +[ elim (deg_total h o s1) #d1 #H1 + elim (deg_total h o s2) #d2 #H2 + elim (eq_nat_dec d1 d2) #Hd12 destruct /3 width=3 by tdeq_sort, or_introl/ + @or_intror #H + lapply (tdeq_inv_sort_deg â¦ H â¦ H1 H2) -H -H1 -H2 /2 width=1 by/ +|2,3,13: + @or_intror #H + elim (tdeq_inv_sort1 â¦ H) -H #x1 #x2 #_ #_ #H destruct +|4,6,14: + @or_intror #H + lapply (tdeq_inv_lref1 â¦ H) -H #H destruct +|5: + elim (eq_nat_dec s1 s2) #Hs12 destruct /2 width=1 by or_introl/ + @or_intror #H + lapply (tdeq_inv_lref1 â¦ H) -H #H destruct /2 width=1 by/ +|7,8,15: + @or_intror #H + lapply (tdeq_inv_gref1 â¦ H) -H #H destruct +|9: + elim (eq_nat_dec s1 s2) #Hs12 destruct /2 width=1 by or_introl/ + @or_intror #H + lapply (tdeq_inv_gref1 â¦ H) -H #H destruct /2 width=1 by/ +|10,11,12: + @or_intror #H + elim (tdeq_inv_pair1 â¦ H) -H #X1 #X2 #_ #_ #H destruct +|16: + elim (eq_item2_dec I1 I2) #HI12 destruct + [ elim (IHV V2) -IHV #HV12 + elim (IHT T2) -IHT #HT12 + [ /3 width=1 by tdeq_pair, or_introl/ ] + ] + @or_intror #H + elim (tdeq_inv_pair â¦ H) -H /2 width=1 by/ +] +qed-. + +( Negated inversion lemmas *) + +lemma tdneq_inv_pair: âh,o,I1,I2,V1,V2,T1,T2. + (â¡{I1}V1.T1 â[h, o] â¡{I2}V2.T2 â â¥) â + â¨â¨ I1 = I2 â â¥ + | (V1 â[h, o] V2 â â¥) + | (T1 â[h, o] T2 â â¥). +#h #o #I1 #I2 #V1 #V2 #T1 #T2 #H12 +elim (eq_item2_dec I1 I2) /3 width=1 by or3_intro0/ #H destruct +elim (tdeq_dec h o V1 V2) /3 width=1 by or3_intro1/ +elim (tdeq_dec h o T1 T2) /4 width=1 by tdeq_pair, or3_intro2/ +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/tdeq_ext.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/tdeq_ext.ma new file mode 100644 index 000000000..f13292089 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/tdeq_ext.ma @@ -0,0 +1,40 @@ +(**************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/relations/stareq_5.ma". +include "static_2/syntax/cext2.ma". +include "static_2/syntax/tdeq.ma". + +(* EXTENDED DEGREE-BASED EQUIVALENCE ) + +definition tdeq_ext: âh. sd h â relation bind â + Î»h,o. ext2 (tdeq h o). + +definition cdeq: âh. sd h â relation3 lenv term term â + Î»h,o,L. tdeq h o. + +definition cdeq_ext: âh. sd h â relation3 lenv bind bind â + Î»h,o. cext2 (cdeq h o). + +interpretation + "context-free degree-based equivalence (binder)" + 'StarEq h o I1 I2 = (tdeq_ext h o I1 I2). + +interpretation + "context-dependent degree-based equivalence (term)" + 'StarEq h o L T1 T2 = (cdeq h o L T1 T2). + +interpretation + "context-dependent degree-based equivalence (binder)" + 'StarEq h o L I1 I2 = (cdeq_ext h o L I1 I2). diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/tdeq_tdeq.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/tdeq_tdeq.ma new file mode 100644 index 000000000..a8bbec3fd --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/tdeq_tdeq.ma @@ -0,0 +1,50 @@ +(**********************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/tdeq.ma". + +(* DEGREE-BASED EQUIVALENCE ON TERMS ****************************************) + +(* Main properties **********************************************************) + +theorem tdeq_trans: âh,o. Transitive â¦ (tdeq h o). +#h #o #T1 #T #H elim H -T1 -T +[ #s1 #s #d #Hs1 #Hs #X #H + elim (tdeq_inv_sort1_deg â¦ H â¦ Hs) -s /2 width=3 by tdeq_sort/ +| #i1 #i #H <(tdeq_inv_lref1 â¦ H) -H // +| #l1 #l #H <(tdeq_inv_gref1 â¦ H) -H // +| #I #V1 #V #T1 #T #_ #_ #IHV #IHT #X #H + elim (tdeq_inv_pair1 â¦ H) -H /3 width=1 by tdeq_pair/ +] +qed-. + +theorem tdeq_canc_sn: âh,o. left_cancellable â¦ (tdeq h o). +/3 width=3 by tdeq_trans, tdeq_sym/ qed-. + +theorem tdeq_canc_dx: âh,o. right_cancellable â¦ (tdeq h o). +/3 width=3 by tdeq_trans, tdeq_sym/ qed-. + +theorem tdeq_repl: âh,o,T1,T2. T1 â[h, o] T2 â + âU1. T1 â[h, o] U1 â âU2. T2 â[h, o] U2 â U1 â[h, o] U2. +/3 width=3 by tdeq_canc_sn, tdeq_trans/ qed-. + +(* Negated main properies *) + +theorem tdeq_tdneq_trans: âh,o,T1,T. T1 â[h, o] T â âT2. (T â[h, o] T2 â â¥) â + T1 â[h, o] T2 â â¥. +/3 width=3 by tdeq_canc_sn/ qed-. + +theorem tdneq_tdeq_canc_dx: âh,o,T1,T. (T1 â[h, o] T â â¥) â âT2. T2 â[h, o] T â + T1 â[h, o] T2 â â¥. +/3 width=3 by tdeq_trans/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/term.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/term.ma new file mode 100644 index 000000000..93cce0ffc --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/term.ma @@ -0,0 +1,153 @@ +(************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/functions/item0_1.ma". +include "static_2/notation/functions/snitem2_3.ma". +include "static_2/notation/functions/snbind2_4.ma". +include "static_2/notation/functions/snbind2pos_3.ma". +include "static_2/notation/functions/snbind2neg_3.ma". +include "static_2/notation/functions/snflat2_3.ma". +include "static_2/notation/functions/star_1.ma". +include "static_2/notation/functions/lref_1.ma". +include "static_2/notation/functions/gref_1.ma". +include "static_2/notation/functions/snabbr_3.ma". +include "static_2/notation/functions/snabbrpos_2.ma". +include "static_2/notation/functions/snabbrneg_2.ma". +include "static_2/notation/functions/snabst_3.ma". +include "static_2/notation/functions/snabstpos_2.ma". +include "static_2/notation/functions/snabstneg_2.ma". +include "static_2/notation/functions/snappl_2.ma". +include "static_2/notation/functions/sncast_2.ma". +include "static_2/syntax/item.ma". + +(* TERMS ********************************************************************) + +(* terms ) +inductive term: Type[0] â + | TAtom: item0 â term ( atomic item construction ) + | TPair: item2 â term â term â term ( binary item construction ) +. + +interpretation "term construction (atomic)" + 'Item0 I = (TAtom I). + +interpretation "term construction (binary)" + 'SnItem2 I T1 T2 = (TPair I T1 T2). + +interpretation "term binding construction (binary)" + 'SnBind2 p I T1 T2 = (TPair (Bind2 p I) T1 T2). + +interpretation "term positive binding construction (binary)" + 'SnBind2Pos I T1 T2 = (TPair (Bind2 true I) T1 T2). + +interpretation "term negative binding construction (binary)" + 'SnBind2Neg I T1 T2 = (TPair (Bind2 false I) T1 T2). + +interpretation "term flat construction (binary)" + 'SnFlat2 I T1 T2 = (TPair (Flat2 I) T1 T2). + +interpretation "sort (term)" + 'Star s = (TAtom (Sort s)). + +interpretation "local reference (term)" + 'LRef i = (TAtom (LRef i)). + +interpretation "global reference (term)" + 'GRef l = (TAtom (GRef l)). + +interpretation "abbreviation (term)" + 'SnAbbr p T1 T2 = (TPair (Bind2 p Abbr) T1 T2). + +interpretation "positive abbreviation (term)" + 'SnAbbrPos T1 T2 = (TPair (Bind2 true Abbr) T1 T2). + +interpretation "negative abbreviation (term)" + 'SnAbbrNeg T1 T2 = (TPair (Bind2 false Abbr) T1 T2). + +interpretation "abstraction (term)" + 'SnAbst p T1 T2 = (TPair (Bind2 p Abst) T1 T2). + +interpretation "positive abstraction (term)" + 'SnAbstPos T1 T2 = (TPair (Bind2 true Abst) T1 T2). + +interpretation "negative abstraction (term)" + 'SnAbstNeg T1 T2 = (TPair (Bind2 false Abst) T1 T2). + +interpretation "application (term)" + 'SnAppl T1 T2 = (TPair (Flat2 Appl) T1 T2). + +interpretation "native type annotation (term)" + 'SnCast T1 T2 = (TPair (Flat2 Cast) T1 T2). + +( Basic properties *********************************************************) + +(* Basic_1: was: term_dec ) +lemma eq_term_dec: âT1,T2:term. Decidable (T1 = T2). +#T1 elim T1 -T1 #I1 [| #V1 #T1 #IHV1 #IHT1 ] #I2 [2,4: #V2 #T2 ] +[1,4: @or_intror #H destruct +| elim (eq_item2_dec I1 I2) #HI + [ elim (IHV1 V2) -IHV1 #HV + [ elim (IHT1 T2) -IHT1 /2 width=1 by or_introl/ #HT ] + ] + @or_intror #H destruct /2 width=1 by/ +| elim (eq_item0_dec I1 I2) /2 width=1 by or_introl/ #HI + @or_intror #H destruct /2 width=1 by/ +] +qed-. + +(* Basic inversion lemmas *************************************************) + +fact destruct_tatom_tatom_aux: âI1,I2. âª{I1} = âª{I2} â I1 = I2. +#I1 #I2 #H destruct // +qed-. + +fact destruct_tpair_tpair_aux: âI1,I2,T1,T2,V1,V2. â¡{I1}T1.V1 = â¡{I2}T2.V2 â + â§â§T1 = T2 & I1 = I2 & V1 = V2. +#I1 #I2 #T1 #T2 #V1 #V2 #H destruct /2 width=1 by and3_intro/ +qed-. + +lemma discr_tpair_xy_x: âI,T,V. â¡{I}V.T = V â â¥. +#I #T #V elim V -V +[ #J #H destruct +| #J #W #U #IHW #_ #H elim (destruct_tpair_tpair_aux â¦ H) -H /2 width=1 by/ () (* destruct lemma needed ) +] +qed-. + +( Basic_1: was: thead_x_y_y *) +lemma discr_tpair_xy_y: âI,V,T. â¡{I}V.T = T â â¥. +#I #V #T elim T -T +[ #J #H destruct +| #J #W #U #_ #IHU #H elim (destruct_tpair_tpair_aux â¦ H) -H /2 width=1 by/ (**) (* destruct lemma needed ) +] +qed-. + +lemma eq_false_inv_tpair_sn: âI,V1,T1,V2,T2. + (â¡{I}V1.T1 = â¡{I}V2.T2 â â¥) â + (V1 = V2 â â¥) â¨ (V1 = V2 â§ (T1 = T2 â â¥)). +#I #V1 #T1 #V2 #T2 #H +elim (eq_term_dec V1 V2) /3 width=1 by or_introl/ #HV12 destruct +@or_intror @conj // #HT12 destruct /2 width=1 by/ +qed-. + +lemma eq_false_inv_tpair_dx: âI,V1,T1,V2,T2. + (â¡{I} V1. T1 = â¡{I}V2.T2 â â¥) â + (T1 = T2 â â¥) â¨ (T1 = T2 â§ (V1 = V2 â â¥)). +#I #V1 #T1 #V2 #T2 #H +elim (eq_term_dec T1 T2) /3 width=1 by or_introl/ #HT12 destruct +@or_intror @conj // #HT12 destruct /2 width=1 by/ +qed-. + +( Basic_1: removed theorems 3: + not_void_abst not_abbr_void not_abst_void +*) diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/term_simple.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/term_simple.ma new file mode 100644 index 000000000..4bef6764d --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/term_simple.ma @@ -0,0 +1,42 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/relations/simple_1.ma". +include "static_2/syntax/term.ma". + +(* SIMPLE (NEUTRAL) TERMS ***************************************************) + +inductive simple: predicate term â + | simple_atom: âI. simple (âª{I}) + | simple_flat: âI,V,T. simple (â{I}V.T) +. + +interpretation "simple (term)" 'Simple T = (simple T). + +(* Basic inversion lemmas ***************************************************) + +fact simple_inv_bind_aux: âT. ðâ¦Tâ¦ â âp,J,W,U. T = â{p,J}W.U â â¥. +#T * -T +[ #I #p #J #W #U #H destruct +| #I #V #T #a #J #W #U #H destruct +] +qed-. + +lemma simple_inv_bind: âp,I,V,T. ðâ¦â{p,I} V. Tâ¦ â â¥. +/2 width=7 by simple_inv_bind_aux/ qed-. + +lemma simple_inv_pair: âI,V,T. ðâ¦â¡{I}V.Tâ¦ â âJ. I = Flat2 J. +* /2 width=2 by ex_intro/ +#p #I #V #T #H elim (simple_inv_bind â¦ H) +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/term_vector.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/term_vector.ma new file mode 100644 index 000000000..b5da507bc --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/term_vector.ma @@ -0,0 +1,42 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "ground_2/lib/list.ma". +include "static_2/notation/functions/snapplvector_2.ma". +include "static_2/syntax/term_simple.ma". + +(* TERMS ********************************************************************) + +rec definition applv Vs T on Vs â + match Vs with + [ nil â T + | cons hd tl â âhd. (applv tl T) + ]. + +interpretation "application to vector (term)" + 'SnApplVector Vs T = (applv Vs T). + +(* Basic properties *********************************************************) + +lemma applv_nil: âT. â¶âº.T = T. +// qed. + +lemma applv_cons: âV,Vs,T. â¶Vâ¨®Vs.T = âV.â¶Vs.T. +// qed. + +(* Properties with simple terms *********************************************) + +lemma applv_simple: âT,Vs. ðâ¦Tâ¦ â ðâ¦â¶Vs.Tâ¦. +#T * // +qed. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/term_weight.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/term_weight.ma new file mode 100644 index 000000000..c8d4c974d --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/term_weight.ma @@ -0,0 +1,38 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/functions/weight_1.ma". +include "static_2/syntax/term.ma". + +(* WEIGHT OF A TERM *********************************************************) + +rec definition tw T â match T with +[ TAtom _ â 1 +| TPair _ V T â â(tw V + tw T) +]. + +interpretation "weight (term)" 'Weight T = (tw T). + +(* Basic properties *********************************************************) + +(* Basic_1: was: tweight_lt ) +lemma tw_pos: âT. 1 â¤ â¯{T}. +#T elim T -T // +qed. + +( Basic_1: removed theorems 11: + wadd_le wadd_lt wadd_O weight_le weight_eq weight_add_O + weight_add_S tlt_trans tlt_head_sx tlt_head_dx tlt_wf_ind +) +( Basic_1: removed local theorems 1: q_ind *) diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/theq.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/theq.ma new file mode 100644 index 000000000..37c4af70a --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/theq.ma @@ -0,0 +1,177 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/notation/relations/topiso_4.ma". +include "static_2/syntax/item_sd.ma". +include "static_2/syntax/term.ma". + +(* HEAD EQUIVALENCE FOR TERMS ***********************************************) + +(* Basic_2A1: includes: tsts_atom tsts_pair ) +inductive theq (h) (o): relation term â +| theq_sort: âs1,s2,d. deg h o s1 d â deg h o s2 d â theq h o (âs1) (âs2) +| theq_lref: âi. theq h o (#i) (#i) +| theq_gref: âl. theq h o (Â§l) (Â§l) +| theq_pair: âI,V1,V2,T1,T2. theq h o (â¡{I}V1.T1) (â¡{I}V2.T2) +. + +interpretation "head equivalence (term)" 'TopIso h o T1 T2 = (theq h o T1 T2). + +( Basic inversion lemmas ***************************************************) + +fact theq_inv_sort1_aux: âh,o,X,Y. X â©³[h, o] Y â âs1. X = âs1 â + ââs2,d. deg h o s1 d & deg h o s2 d & Y = âs2. +#h #o #X #Y * -X -Y +[ #s1 #s2 #d #Hs1 #Hs2 #s #H destruct /2 width=5 by ex3_2_intro/ +| #i #s #H destruct +| #l #s #H destruct +| #I #V1 #V2 #T1 #T2 #s #H destruct +] +qed-. + +(* Basic_1: was just: iso_gen_sort ) +lemma theq_inv_sort1: âh,o,Y,s1. âs1 â©³[h, o] Y â + ââs2,d. deg h o s1 d & deg h o s2 d & Y = âs2. +/2 width=3 by theq_inv_sort1_aux/ qed-. + +fact theq_inv_lref1_aux: âh,o,X,Y. X â©³[h, o] Y â âi. X = #i â Y = #i. +#h #o #X #Y -X -Y // +[ #s1 #s2 #d #_ #_ #j #H destruct +| #I #V1 #V2 #T1 #T2 #j #H destruct +] +qed-. + +(* Basic_1: was: iso_gen_lref ) +lemma theq_inv_lref1: âh,o,Y,i. #i â©³[h, o] Y â Y = #i. +/2 width=5 by theq_inv_lref1_aux/ qed-. + +fact theq_inv_gref1_aux: âh,o,X,Y. X â©³[h, o] Y â âl. X = Â§l â Y = Â§l. +#h #o #X #Y -X -Y // +[ #s1 #s2 #d #_ #_ #k #H destruct +| #I #V1 #V2 #T1 #T2 #k #H destruct +] +qed-. + +lemma theq_inv_gref1: âh,o,Y,l. Â§l â©³[h, o] Y â Y = Â§l. +/2 width=5 by theq_inv_gref1_aux/ qed-. + +fact theq_inv_pair1_aux: âh,o,T1,T2. T1 â©³[h, o] T2 â + âJ,W1,U1. T1 = â¡{J}W1.U1 â + ââW2,U2. T2 = â¡{J}W2.U2. +#h #o #T1 #T2 * -T1 -T2 +[ #s1 #s2 #d #_ #_ #J #W1 #U1 #H destruct +| #i #J #W1 #U1 #H destruct +| #l #J #W1 #U1 #H destruct +| #I #V1 #V2 #T1 #T2 #J #W1 #U1 #H destruct /2 width=3 by ex1_2_intro/ +] +qed-. + +(* Basic_1: was: iso_gen_head ) +( Basic_2A1: was: tsts_inv_pair1 ) +lemma theq_inv_pair1: âh,o,J,W1,U1,T2. â¡{J}W1.U1 â©³[h, o] T2 â + ââW2,U2. T2 = â¡{J}W2. U2. +/2 width=7 by theq_inv_pair1_aux/ qed-. + +fact theq_inv_pair2_aux: âh,o,T1,T2. T1 â©³[h, o] T2 â + âJ,W2,U2. T2 = â¡{J}W2.U2 â + ââW1,U1. T1 = â¡{J}W1.U1. +#h #o #T1 #T2 -T1 -T2 +[ #s1 #s2 #d #_ #_ #J #W2 #U2 #H destruct +| #i #J #W2 #U2 #H destruct +| #l #J #W2 #U2 #H destruct +| #I #V1 #V2 #T1 #T2 #J #W2 #U2 #H destruct /2 width=3 by ex1_2_intro/ +] +qed-. + +(* Basic_2A1: was: tsts_inv_pair2 ) +lemma theq_inv_pair2: âh,o,J,T1,W2,U2. T1 â©³[h, o] â¡{J}W2.U2 â + ââW1,U1. T1 = â¡{J}W1.U1. +/2 width=7 by theq_inv_pair2_aux/ qed-. + +( Advanced inversion lemmas ************************************************) + +lemma theq_inv_sort1_deg: âh,o,Y,s1. âs1 â©³[h, o] Y â âd. deg h o s1 d â + ââs2. deg h o s2 d & Y = âs2. +#h #o #Y #s1 #H #d #Hs1 elim (theq_inv_sort1 â¦ H) -H +#s2 #x #Hx <(deg_mono h o â¦ Hx â¦ Hs1) -s1 -d /2 width=3 by ex2_intro/ +qed-. + +lemma theq_inv_sort_deg: âh,o,s1,s2. âs1 â©³[h, o] âs2 â + âd1,d2. deg h o s1 d1 â deg h o s2 d2 â + d1 = d2. +#h #o #s1 #y #H #d1 #d2 #Hs1 #Hy +elim (theq_inv_sort1_deg â¦ H â¦ Hs1) -s1 #s2 #Hs2 #H destruct +<(deg_mono h o â¦ Hy â¦ Hs2) -s2 -d1 // +qed-. + +lemma theq_inv_pair: âh,o,I1,I2,V1,V2,T1,T2. â¡{I1}V1.T1 â©³[h, o] â¡{I2}V2.T2 â + I1 = I2. +#h #o #I1 #I2 #V1 #V2 #T1 #T2 #H elim (theq_inv_pair1 â¦ H) -H +#V0 #T0 #H destruct // +qed-. + +(* Basic properties *********************************************************) + +(* Basic_1: was: iso_refl ) +( Basic_2A1: was: tsts_refl ) +lemma theq_refl: âh,o. reflexive â¦ (theq h o). +#h #o // +* /2 width=1 by theq_lref, theq_gref/ +#s elim (deg_total h o s) /2 width=3 by theq_sort/ +qed. + +(* Basic_2A1: was: tsts_sym ) +lemma theq_sym: âh,o. symmetric â¦ (theq h o). +#h #o #T1 #T2 -T1 -T2 /2 width=3 by theq_sort/ +qed-. + +(* Basic_2A1: was: tsts_dec ) +lemma theq_dec: âh,o,T1,T2. Decidable (T1 â©³[h, o] T2). +#h #o [ * #s1 | #I1 #V1 #T1 ] * [1,3,5,7: * #s2 |: #I2 #V2 #T2 ] +[ elim (deg_total h o s1) #d1 #H1 + elim (deg_total h o s2) #d2 #H2 + elim (eq_nat_dec d1 d2) #Hd12 destruct /3 width=3 by theq_sort, or_introl/ + @or_intror #H + lapply (theq_inv_sort_deg â¦ H â¦ H1 H2) -H -H1 -H2 /2 width=1 by/ +|2,3,13: + @or_intror #H + elim (theq_inv_sort1 â¦ H) -H #x1 #x2 #_ #_ #H destruct +|4,6,14: + @or_intror #H + lapply (theq_inv_lref1 â¦ H) -H #H destruct +|5: + elim (eq_nat_dec s1 s2) #Hs12 destruct /2 width=1 by or_introl/ + @or_intror #H + lapply (theq_inv_lref1 â¦ H) -H #H destruct /2 width=1 by/ +|7,8,15: + @or_intror #H + lapply (theq_inv_gref1 â¦ H) -H #H destruct +|9: + elim (eq_nat_dec s1 s2) #Hs12 destruct /2 width=1 by or_introl/ + @or_intror #H + lapply (theq_inv_gref1 â¦ H) -H #H destruct /2 width=1 by/ +|10,11,12: + @or_intror #H + elim (theq_inv_pair1 â¦ H) -H #X1 #X2 #H destruct +|16: + elim (eq_item2_dec I1 I2) #HI12 destruct + [ /3 width=1 by theq_pair, or_introl/ ] + @or_intror #H + lapply (theq_inv_pair â¦ H) -H /2 width=1 by/ +] +qed-. + +( Basic_2A1: removed theorems 2: + tsts_inv_atom1 tsts_inv_atom2 +*) diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/theq_simple.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/theq_simple.ma new file mode 100644 index 000000000..9ad5ed550 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/theq_simple.ma @@ -0,0 +1,31 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/term_simple.ma". +include "static_2/syntax/theq.ma". + +(* HEAD EQUIVALENCE FOR TERMS ***********************************************) + +(* Properies with simple (neutral) terms ************************************) + +(* Basic_2A1: was: simple_tsts_repl_dx ) +lemma simple_theq_repl_dx: âh,o,T1,T2. T1 â©³[h, o] T2 â ðâ¦T1â¦ â ðâ¦T2â¦. +#h #o #T1 #T2 -T1 -T2 // +#I #V1 #V2 #T1 #T2 #H +elim (simple_inv_pair â¦ H) -H #J #H destruct // +qed-. + +(* Basic_2A1: was: simple_tsts_repl_sn *) +lemma simple_theq_repl_sn: âh,o,T1,T2. T1 â©³[h, o] T2 â ðâ¦T2â¦ â ðâ¦T1â¦. +/3 width=5 by simple_theq_repl_dx, theq_sym/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/theq_simple_vector.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/theq_simple_vector.ma new file mode 100644 index 000000000..f7212ee11 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/theq_simple_vector.ma @@ -0,0 +1,31 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/term_vector.ma". +include "static_2/syntax/theq_simple.ma". + +(* HEAD EQUIVALENCE FOR TERMS ***********************************************) + +(* Advanced inversion lemmas with simple (neutral) terms ********************) + +(* Basic_1: was only: iso_flats_lref_bind_false iso_flats_flat_bind_false ) +( Basic_2A1: was: tsts_inv_bind_applv_simple *) +lemma theq_inv_applv_bind_simple: âh,o,p,I,Vs,V2,T1,T2. â¶Vs.T1 â©³[h, o] â{p,I}V2.T2 â + ðâ¦T1â¦ â â¥. +#h #o #p #I #Vs #V2 #T1 #T2 #H elim (theq_inv_pair2 â¦ H) -H +#V0 #T0 elim Vs -Vs normalize +[ #H destruct #H /2 width=5 by simple_inv_bind/ +| #V #Vs #_ #H destruct +] +qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/theq_tdeq.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/theq_tdeq.ma new file mode 100644 index 000000000..99447dba7 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/theq_tdeq.ma @@ -0,0 +1,24 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/tdeq.ma". +include "static_2/syntax/theq.ma". + +(* HEAD EQUIVALENCE FOR TERMS ***********************************************) + +(* Properties with degree-based equivalence for terms ***********************) + +lemma tdeq_theq: âh,o,T1,T2. T1 â[h, o] T2 â T1 â©³[h, o] T2. +#h #o #T1 #T2 * -T1 -T2 /2 width=3 by theq_sort, theq_pair/ +qed. diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/theq_theq.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/theq_theq.ma new file mode 100644 index 000000000..e9e586d00 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/syntax/theq_theq.ma @@ -0,0 +1,40 @@ +(**************************************************************************) +(* ___ ) +( ||M|| ) +( ||A|| A project by Andrea Asperti ) +( ||T|| ) +( ||I|| Developers: ) +( ||T|| The HELM team. ) +( ||A|| http://helm.cs.unibo.it ) +( \ / ) +( \ / This file is distributed under the terms of the ) +( v GNU General Public License Version 2 ) +( *) +(**************************************************************************) + +include "static_2/syntax/theq.ma". + +(* HEAD EQUIVALENCE FOR TERMS ***********************************************) + +(* Main properties **********************************************************) + +(* Basic_1: was: iso_trans ) +( Basic_2A1: was: tsts_trans ) +theorem theq_trans: âh,o. Transitive â¦ (theq h o). +#h #o #T1 #T -T1 -T +[ #s1 #s #d #Hs1 #Hs #X #H + elim (theq_inv_sort1_deg â¦ H â¦ Hs) -s /2 width=3 by theq_sort/ +| #i1 #i #H <(theq_inv_lref1 â¦ H) -H // +| #l1 #l #H <(theq_inv_gref1 â¦ H) -H // +| #I #V1 #V #T1 #T #X #H + elim (theq_inv_pair1 â¦ H) -H #V2 #T2 #H destruct // +] +qed-. + +(* Basic_2A1: was: tsts_canc_sn ) +theorem theq_canc_sn: âh,o. left_cancellable â¦ (theq h o). +/3 width=3 by theq_trans, theq_sym/ qed-. + +( Basic_2A1: was: tsts_canc_dx ) +theorem theq_canc_dx: âh,o. right_cancellable â¦ (theq h o). +/3 width=3 by theq_trans, theq_sym/ qed-. diff --git a/matita/matita/contribs/lambdadelta/static_2/web/static_2.ldw.xml b/matita/matita/contribs/lambdadelta/static_2/web/static_2.ldw.xml new file mode 100644 index 000000000..5df6a4609 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/web/static_2.ldw.xml @@ -0,0 +1,32 @@ + + + + + + Contents of the Specification + This specification contains the syntactic components of Î»Î´ version 2 + that every forthcoming system of the Î»Î´ family will share. + + + Summary of the Specification + Here is a numerical account of the specification's contents + and its timeline. + + + + + The specification stands alone. + + + Logical Structure of the Specification + This table reports the specification's components and their planes. + +
+ +
+ diff --git a/matita/matita/contribs/lambdadelta/static_2/web/static_2_src.tbl b/matita/matita/contribs/lambdadelta/static_2/web/static_2_src.tbl new file mode 100644 index 000000000..740b3482e --- /dev/null +++ b/matita/matita/contribs/lambdadelta/static_2/web/static_2_src.tbl @@ -0,0 +1,167 @@ +name "static_2_src" + +table { + class "gray" + [ { "component" } { + [ { "section" * } { + [ [ "plane" ] "files" * ] + } + ] + } + ] + class "water" + [ { "iterated static typing" * } { + [ { "iterated generic extension of a context-sensitive relation" * } { + [ [ "for lenvs on referred entries" ] "rexs" + "( ? âª¤[?,?] ? )" "rexs_length" + "rexs_lex" + "rexs_drops" + "rexs_fqup" + "rexs_rexs" ] + } + ] + } + ] + class "green" + [ { "static typing" * } { + [ { "generic reducibility" * } { + [ [ "restricted refinement for lenvs" ] "lsubc" + "( ? â¢ ? â«[?] ? )" "lsubc_drops" + "lsubc_lsubr" + "lsubc_lsuba" * ] + [ [ "candidates" ] "gcp_cr" + "( â¦?,?,?â¦ Ïµ[?] ã?ã )" "gcp_aaa" * ] + [ [ "computation properties" ] "gcp" ] + } + ] + [ { "atomic arity assignment" } { + [ [ "restricted refinement for lenvs" ] "lsuba" + "( ? â¢ ? â«â ? )" "lsuba_drops" + "lsuba_lsubr" + "lsuba_aaa" + "lsuba_lsuba" * ] + [ [ "for terms" ] "aaa" + "( â¦?,?â¦ â¢ ? â ? )" "aaa_drops" + "aaa_fqus" + "aaa_rdeq" + "aaa_fdeq" + "aaa_aaa" * ] + } + ] + [ { "degree-based equivalence" * } { + [ [ "for closures on referred entries" ] "fdeq" + "( â¦?,?,?â¦ â[?,?] â¦?,?,?â¦ )" "fdeq_fqup" + "fdeq_fqus" + "fdeq_req" + "fdeq_fdeq" * ] + [ [ "for lenvs on referred entries" ] "rdeq" + "( ? â[?,?,?] ? )" "rdeq_length" + "rdeq_drops" + "rdeq_fqup" + "rdeq_fqus" + "rdeq_req" + "rdeq_rdeq" * ] + } + ] + [ { "syntactic equivalence" * } { + [ [ "for lenvs on referred entries" ] "req" + "( ? â¡[?] ? )" "req_fqup" + "req_fsle" * ] + } + ] + [ { "generic extension of a context-sensitive relation" * } { + [ [ "for lenvs on referred entries" ] "rex" + "( ? âª¤[?,?] ? )" "rex_length" + "rex_lex" + "rex_drops" + "rex_fqup" + "rex_fsle" + "rex_rex" * ] + } + ] + [ { "context-sensitive free variables" * } { + [ [ "inclusion for restricted closures" ] "fsle" + "( â¦?,?â¦ â â¦?,?â¦ )" "fsle_length" + "fsle_drops" + "fsle_fqup" + "fsle_fsle" * ] + [ [ "restricted refinement for lenvs" ] "lsubf" + "( â¦?,?â¦ â«ð* â¦?,?â¦ )" "lsubf_lsubr" + "lsubf_frees" + "lsubf_lsubf" * ] + [ [ "for terms" ] "frees" + "( ? â¢ ðâ¦?â¦ â ? )" "frees_append" + "frees_drops" + "frees_fqup" + "frees_frees" ] + } + ] + [ { "local environments" * } { + [ [ "restricted refinement" ] "lsubr" + "( ? â« ? )" "lsubr_length" + "lsubr_drops" + "lsubr_lsubr" * ] + } + ] + } + ] + class "grass" + [ { "s-computation" * } { + [ { "iterated structural successor" * } { + [ [ "for closures" ] "fqus" + "( â¦?,?,?â¦ â[?] â¦?,?,?â¦ )" + "( â¦?,?,?â¦ â â¦?,?,?â¦ )" "fqus_weight" + "fqus_drops" + "fqus_fqup" + "fqus_fqus" * ] + [ [ "proper for closures" ] "fqup" + "( â¦?,?,?â¦ â+[?] â¦?,?,?â¦ )" + "( â¦?,?,?â¦ â+ â¦?,?,?â¦ )" "fqup_weight" + "fqup_drops" + "fqup_fqup" * ] + } + ] + } + ] + class "yellow" + [ { "s-transition" * } { + [ { "structural successor" * } { + [ [ "for closures" ] "fquq" + "( â¦?,?,?â¦ ââ¸®[?] â¦?,?,?â¦ )" + "( â¦?,?,?â¦ ââ¸® â¦?,?,?â¦ )" "fquq_length" + "fquq_weight" * ] + [ [ "proper for closures" ] "fqu" + "( â¦?,?,?â¦ â[?] â¦?,?,?â¦ )" + "( â¦?,?,?â¦ â â¦?,?,?â¦ )" "fqu_length" + "fqu_weight" + "fqu_tdeq" * ] + } + ] + } + ] + class "orange" + [ { "relocation" * } { + [ { "generic slicing" * } { + [ [ "for lenvs" ] "drops" + "( â¬[?,?] ? â ? )" + "( â¬[?] ? â ? )" "drops_ctc" + "drops_ltc" + "drops_weight" + "drops_length" + "drops_cext2" + "drops_sex" + "drops_lex" + "drops_seq" + "drops_drops" + "drops_vector" * ] + } + ] + [ { "generic relocation" * } { + [ [ "for binders" ] "lifts_bind" + "( â¬[?] ? â ? )" "lifts_weight_bind" + "lifts_lifts_bind" ] + [ [ "for term vectors" ] "lifts_vector" + "( â¬[?] ? â ? )" "lifts_lifts_vector" ] + [ [ "for terms" ] "lifts" + "( â¬[?] ? â ? )" "lifts_simple" + "lifts_weight" + "lifts_tdeq" + "lifts_lifts" ] + } + ] + [ { "syntactic equivalence" * } { + [ [ "for lenvs on selected entries" ] "seq" + "( ? â¡[?] ? )" "seq_length" + "seq_seq" * ] + } + ] + [ { "generic entrywise extension" * } { + [ [ "for lenvs of one contex-sensitive relation" ] "lex" + "( ? âª¤[?] ? )" "lex_tc" + "lex_length" + "lex_lex" * ] + [ [ "for lenvs of two contex-sensitive relations" ] "sex" + "( ? âª¤[?,?,?] ? )" "sex_tc" + "sex_length" + "sex_sex" * ] + } + ] + } + ] + class "red" + [ { "syntax" * } { + [ { "equivalence up to exclusion binders" * } { + [ [ "for lenvs" ] "lveq" + "( ? ââ§[?,?] ? )" "lveq_length" + "lveq_lveq" ] + } + ] + [ { "append" * } { + [ [ "for lenvs" ] "append" + "( ? + ? )" "append_length" * ] + } + ] + [ { "head equivalence" * } { + [ [ "for terms" ] "theq" + "( ? â©³[?,?] ? )" "theq_simple" + "theq_tdeq" + "theq_theq" + "theq_simple_vector" * ] + } + ] + [ { "degree-based equivalence" * } { + [ [ "" ] "tdeq_ext" + "( ? â[?,?] ? )" + "( ? â¢ ? â[?,?] ? )" * ] + [ [ "" ] "tdeq" + "( ? â[?,?] ? )" "tdeq_tdeq" * ] + } + ] + [ { "closures" * } { + [ [ "" ] "cl_weight" + "( â¯{?,?,?} )" * ] + [ [ "" ] "cl_restricted_weight" + "( â¯{?,?} )" * ] + } + ] + [ { "global environments" * } { + [ [ "" ] "genv_length" + "( |?| )" * ] + [ [ "" ] "genv_weight" + "( â¯{?} )" * ] + [ [ "" ] "genv" * ] + } + ] + [ { "local environments" * } { + [ [ "" ] "ceq_ext" "ceq_ext_ceq_ext" * ] + [ [ "" ] "cext2" * ] + [ [ "" ] "lenv_length" + "( |?| )" * ] + [ [ "" ] "lenv_weight" + "( â¯{?} )" * ] + [ [ "" ] "lenv" * ] + } + ] + [ { "binders for local environments" * } { + [ [ "" ] "ext2" "ext2_tc" + "ext2_ext2" * ] + [ [ "" ] "bind" "bind_weight" * ] + } + ] + [ { "terms" * } { + [ [ "" ] "term_vector" + "( â¶?.? )" * ] + [ [ "" ] "term_simple" + "( ðâ¦?â¦ )" * ] + [ [ "" ] "term_weight" + "( â¯{?} )" * ] + [ [ "" ] "term" * ] + } + ] + [ { "items" * } { + [ [ "" ] "item_sd" * ] + [ [ "" ] "item_sh" * ] + [ [ "" ] "item" * ] + } + ] + [ { "atomic arities" * } { + [ [ "" ] "aarity" * ] + } + ] + } + ] +} + +class "top" { * } + +class "capitalize italic" { 0 1 } + +class "italic" { 2 }