fix grammar
This commit is contained in:
parent
ae9f061b31
commit
1e8ec6d71a
4
lib/Raw/PostProcess.ml
Normal file
4
lib/Raw/PostProcess.ml
Normal file
|
@ -0,0 +1,4 @@
|
||||||
|
module A = AbsImplicitt
|
||||||
|
module R = RawSyntax
|
||||||
|
|
||||||
|
open R
|
|
@ -8,8 +8,6 @@ type icit
|
||||||
type ast
|
type ast
|
||||||
= Var of var
|
= Var of var
|
||||||
|
|
||||||
| Test of A.exp
|
|
||||||
|
|
||||||
| Type
|
| Type
|
||||||
|
|
||||||
| T0
|
| T0
|
||||||
|
|
|
@ -15,4 +15,9 @@
|
||||||
|
|
||||||
(library
|
(library
|
||||||
(name Raw)
|
(name Raw)
|
||||||
(modules AbsImplicitt BNFC_Util LexImplicitt ParImplicitt RawSyntax))
|
(modules AbsImplicitt
|
||||||
|
BNFC_Util
|
||||||
|
LexImplicitt
|
||||||
|
ParImplicitt
|
||||||
|
RawSyntax
|
||||||
|
PostProcess))
|
||||||
|
|
|
@ -14,7 +14,8 @@ ExpPiI. Exp ::= "Π" "{" Id ":" Exp "}" Exp;
|
||||||
ExpSig. Exp ::= "Σ" "(" Id ":" Exp ")" Exp;
|
ExpSig. Exp ::= "Σ" "(" Id ":" Exp ")" Exp;
|
||||||
ExpLet. Exp ::= "let" Id ":" Exp ":=" Exp "in" Exp;
|
ExpLet. Exp ::= "let" Id ":" Exp ":=" Exp "in" Exp;
|
||||||
ExpLam. Exp ::= "λ" [BD] "." Exp;
|
ExpLam. Exp ::= "λ" [BD] "." Exp;
|
||||||
ExpApp. Exp1 ::= Exp1 Exp2;
|
ExpAppI. Exp1 ::= Exp1 "{" Exp "}";
|
||||||
|
ExpAppE. Exp1 ::= Exp1 Exp2;
|
||||||
ExpVar. Exp2 ::= Id;
|
ExpVar. Exp2 ::= Id;
|
||||||
ExpT0. Exp2 ::= "⊥";
|
ExpT0. Exp2 ::= "⊥";
|
||||||
ExpT1. Exp2 ::= "⊤";
|
ExpT1. Exp2 ::= "⊤";
|
||||||
|
@ -29,6 +30,8 @@ ExpTPair. Exp2 ::= "⟨" Exp "," Exp "⟩";
|
||||||
ExpTFst. Exp2 ::= "pr₁";
|
ExpTFst. Exp2 ::= "pr₁";
|
||||||
ExpTSnd. Exp2 ::= "pr₂";
|
ExpTSnd. Exp2 ::= "pr₂";
|
||||||
|
|
||||||
|
coercions Exp 2 ;
|
||||||
|
|
||||||
VarDef. Def ::= "def" Id ":" Exp ":=" Exp;
|
VarDef. Def ::= "def" Id ":" Exp ":=" Exp;
|
||||||
|
|
||||||
separator Def ";" ;
|
separator Def "" ;
|
Loading…
Reference in New Issue
Block a user