remove old parse dir
This commit is contained in:
parent
9eaaca4ed2
commit
2c380ad564
|
@ -1,4 +0,0 @@
|
|||
open Raw
|
||||
|
||||
module A = AbsImplicitt
|
||||
module R = RawSyntax
|
|
@ -1,12 +0,0 @@
|
|||
(library
|
||||
(name Parse)
|
||||
(libraries Raw)
|
||||
(flags (:standard -w -27 -w -39 -w -33)))
|
||||
|
||||
(rule
|
||||
(deps "implicitt.cf")
|
||||
(targets AbsImplicitt.ml BNFC_Util.ml LexImplicitt.mll ParImplicitt.mly PrintImplicitt.ml ShowImplicitt.ml SkelImplicitt.ml TestImplicitt.ml)
|
||||
(action (run bnfc --ocaml %{deps})))
|
||||
|
||||
(ocamllex LexImplicitt)
|
||||
(ocamlyacc ParImplicitt)
|
|
@ -1,62 +0,0 @@
|
|||
entrypoints [Def], Term;
|
||||
|
||||
token Id ((letter|digit|["[]_"])+) ;
|
||||
|
||||
comment "--" ;
|
||||
comment "{-" "-}" ;
|
||||
|
||||
Defn. Def ::= "def" Id ":" Term ":=" Term;
|
||||
separator nonempty Def "" ;
|
||||
|
||||
-- names bound by lambdas
|
||||
NImp. Name ::= "{" Id "}";
|
||||
NExp. Name ::= Id;
|
||||
separator nonempty Name "" ;
|
||||
|
||||
-- Term 3
|
||||
TType. Term3 ::= "Type";
|
||||
|
||||
TT0. Term3 ::= "𝟘";
|
||||
TInd0. Term3 ::= "𝟘-elim";
|
||||
|
||||
TT1. Term3 ::= "𝟙";
|
||||
TT1tr. Term3 ::= "★";
|
||||
|
||||
TBool. Term3 ::= "𝟚";
|
||||
TTrue. Term3 ::= "true";
|
||||
TFalse. Term3 ::= "false";
|
||||
TIndB. Term3 ::= "𝟚-elim";
|
||||
|
||||
TNat. Term3 ::= "ℕ";
|
||||
TZero. Term3 ::= "0";
|
||||
TSuc. Term3 ::= "suc";
|
||||
TIndN. Term3 ::= "ℕ-elim";
|
||||
|
||||
TFst. Term3 ::= "pr₁";
|
||||
TSnd. Term3 ::= "pr₂";
|
||||
|
||||
TLam. Term3 ::= "λ" [Name] "." Term;
|
||||
|
||||
TVar. Term3 ::= Id;
|
||||
|
||||
-- Term2
|
||||
|
||||
TAppEx. Term2 ::= Term2 Term3;
|
||||
TAppIm. Term2 ::= Term2 "{" Term "}";
|
||||
|
||||
-- Term1
|
||||
TPiAr. Term1 ::= Term2 "→" Term1;
|
||||
TSgCr. Term1 ::= Term2 "×" Term1;
|
||||
|
||||
-- Term0
|
||||
TLet. Term ::= "let" Id ":" Term ":=" Term "in" Term ;
|
||||
|
||||
TPiEx. Term ::= "(" Id ":" Term ")" "→" Term;
|
||||
TPiIm. Term ::= "{" Id ":" Term "}" "→" Term;
|
||||
|
||||
TSg. Term ::= "(" Id ":" Term ")" "×" Term;
|
||||
TPair. Term ::= "⟨" Term "," Term "⟩";
|
||||
|
||||
THole. Term ::= "?";
|
||||
|
||||
coercions Term 3;
|
Loading…
Reference in New Issue
Block a user