From 34c69f5b13b3aafd36d2e8a7e36a96e0748c7938 Mon Sep 17 00:00:00 2001 From: Ferruccio Guidi Date: Sun, 20 Sep 2015 17:52:45 +0000 Subject: [PATCH] old files (re)moved --- matita/matita/contribs/limits/Makefile | 16 ------ matita/matita/contribs/limits/depends | 9 ---- .../{Class/defs.ma => etc/Class/defs.etc} | 0 .../limits/{Class/eq.ma => etc/Class/eq.etc} | 0 .../{Domain/data.ma => etc/Domain/data.etc} | 0 .../{Domain/defs.ma => etc/Domain/defs.etc} | 0 .../{Subset/defs.ma => etc/Subset/defs.etc} | 0 .../matita/contribs/limits/etc/preamble.etc | 50 +++++++++++++++++++ matita/matita/contribs/limits/preamble.ma | 35 +------------ 9 files changed, 52 insertions(+), 58 deletions(-) delete mode 100644 matita/matita/contribs/limits/Makefile delete mode 100644 matita/matita/contribs/limits/depends rename matita/matita/contribs/limits/{Class/defs.ma => etc/Class/defs.etc} (100%) rename matita/matita/contribs/limits/{Class/eq.ma => etc/Class/eq.etc} (100%) rename matita/matita/contribs/limits/{Domain/data.ma => etc/Domain/data.etc} (100%) rename matita/matita/contribs/limits/{Domain/defs.ma => etc/Domain/defs.etc} (100%) rename matita/matita/contribs/limits/{Subset/defs.ma => etc/Subset/defs.etc} (100%) create mode 100644 matita/matita/contribs/limits/etc/preamble.etc diff --git a/matita/matita/contribs/limits/Makefile b/matita/matita/contribs/limits/Makefile deleted file mode 100644 index a3e891435..000000000 --- a/matita/matita/contribs/limits/Makefile +++ /dev/null @@ -1,16 +0,0 @@ -include ../Makefile.defs - -DIR=$(shell basename $$PWD) - -$(DIR) all: - $(BIN)matitac -$(DIR).opt opt all.opt: - $(BIN)matitac.opt -clean: - $(BIN)matitaclean -clean.opt: - $(BIN)matitaclean.opt -depend: - $(BIN)matitadep -depend.opt: - $(BIN)matitadep.opt diff --git a/matita/matita/contribs/limits/depends b/matita/matita/contribs/limits/depends deleted file mode 100644 index af2f6349f..000000000 --- a/matita/matita/contribs/limits/depends +++ /dev/null @@ -1,9 +0,0 @@ -preamble.ma datatypes/bool.ma datatypes/constructors.ma logic/connectives.ma -Class/eq.ma Class/defs.ma -Domain/defs.ma Class/defs.ma -Domain/data.ma Domain/defs.ma -Subset/defs.ma Domain/defs.ma -Class/defs.ma preamble.ma -datatypes/bool.ma -datatypes/constructors.ma -logic/connectives.ma diff --git a/matita/matita/contribs/limits/Class/defs.ma b/matita/matita/contribs/limits/etc/Class/defs.etc similarity index 100% rename from matita/matita/contribs/limits/Class/defs.ma rename to matita/matita/contribs/limits/etc/Class/defs.etc diff --git a/matita/matita/contribs/limits/Class/eq.ma b/matita/matita/contribs/limits/etc/Class/eq.etc similarity index 100% rename from matita/matita/contribs/limits/Class/eq.ma rename to matita/matita/contribs/limits/etc/Class/eq.etc diff --git a/matita/matita/contribs/limits/Domain/data.ma b/matita/matita/contribs/limits/etc/Domain/data.etc similarity index 100% rename from matita/matita/contribs/limits/Domain/data.ma rename to matita/matita/contribs/limits/etc/Domain/data.etc diff --git a/matita/matita/contribs/limits/Domain/defs.ma b/matita/matita/contribs/limits/etc/Domain/defs.etc similarity index 100% rename from matita/matita/contribs/limits/Domain/defs.ma rename to matita/matita/contribs/limits/etc/Domain/defs.etc diff --git a/matita/matita/contribs/limits/Subset/defs.ma b/matita/matita/contribs/limits/etc/Subset/defs.etc similarity index 100% rename from matita/matita/contribs/limits/Subset/defs.ma rename to matita/matita/contribs/limits/etc/Subset/defs.etc diff --git a/matita/matita/contribs/limits/etc/preamble.etc b/matita/matita/contribs/limits/etc/preamble.etc new file mode 100644 index 000000000..80713e416 --- /dev/null +++ b/matita/matita/contribs/limits/etc/preamble.etc @@ -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 *) +(* *) +(**************************************************************************) + +(* Project started Wed Oct 12, 2005 ***************************************) +(* Project taken over by "formal_topology" and restarted Mon Apr 6, 2009 **) + +include "logic/connectives.ma". +include "datatypes/constructors.ma". +include "datatypes/bool.ma". + +(* notations **************************************************************) + +notation < "hvbox(\iforall ident i opt (: ty) break . p)" + right associative with precedence 20 +for @{ 'iforall ${ default + @{λ ${ident i}: $ty. $p} + @{λ ${ident i}. $p} +}}. + +notation > "\iforall list1 ident x sep , opt (: T). term 19 Px" + with precedence 20 +for ${ default + @{ ${ fold right @{$Px} rec acc @{'iforall (λ ${ident x} :$T . $acc)} } } + @{ ${ fold right @{$Px} rec acc @{'iforall (λ ${ident x} . $acc)} } } +}. + +notation < "hvbox(\iexists ident i opt (: ty) break . p)" + right associative with precedence 20 +for @{ 'iexists ${ default + @{λ ${ident i}: $ty. $p} + @{λ ${ident i}. $p} +}}. + +notation > "\iexists list1 ident x sep , opt (: T). term 19 Px" + with precedence 20 +for ${ default + @{ ${ fold right @{$Px} rec acc @{'iexists (λ ${ident x}: $T. $acc)} } } + @{ ${ fold right @{$Px} rec acc @{'iexists (λ ${ident x}. $acc)} } } +}. diff --git a/matita/matita/contribs/limits/preamble.ma b/matita/matita/contribs/limits/preamble.ma index 80713e416..4741d33dc 100644 --- a/matita/matita/contribs/limits/preamble.ma +++ b/matita/matita/contribs/limits/preamble.ma @@ -14,37 +14,6 @@ (* Project started Wed Oct 12, 2005 ***************************************) (* Project taken over by "formal_topology" and restarted Mon Apr 6, 2009 **) +(* Project taken over by "lambdadelta" and restarted Sun Sept 20, 2015 ****) -include "logic/connectives.ma". -include "datatypes/constructors.ma". -include "datatypes/bool.ma". - -(* notations **************************************************************) - -notation < "hvbox(\iforall ident i opt (: ty) break . p)" - right associative with precedence 20 -for @{ 'iforall ${ default - @{λ ${ident i}: $ty. $p} - @{λ ${ident i}. $p} -}}. - -notation > "\iforall list1 ident x sep , opt (: T). term 19 Px" - with precedence 20 -for ${ default - @{ ${ fold right @{$Px} rec acc @{'iforall (λ ${ident x} :$T . $acc)} } } - @{ ${ fold right @{$Px} rec acc @{'iforall (λ ${ident x} . $acc)} } } -}. - -notation < "hvbox(\iexists ident i opt (: ty) break . p)" - right associative with precedence 20 -for @{ 'iexists ${ default - @{λ ${ident i}: $ty. $p} - @{λ ${ident i}. $p} -}}. - -notation > "\iexists list1 ident x sep , opt (: T). term 19 Px" - with precedence 20 -for ${ default - @{ ${ fold right @{$Px} rec acc @{'iexists (λ ${ident x}: $T. $acc)} } } - @{ ${ fold right @{$Px} rec acc @{'iexists (λ ${ident x}. $acc)} } } -}. +include "basics/logic.ma". -- 2.39.2