61 lines
1.2 KiB
CFEngine3
61 lines
1.2 KiB
CFEngine3
|
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 2
|
|||
|
|
TVar. Term2 ::= Id;
|
|||
|
|
|
|||
|
|
TType. Term2 ::= "Type";
|
|||
|
|
|
|||
|
|
TT0. Term2 ::= "𝟘";
|
|||
|
|
|
|||
|
|
TT1. Term2 ::= "𝟙";
|
|||
|
|
TT1tr. Term2 ::= "★";
|
|||
|
|
|
|||
|
|
TBool. Term2 ::= "𝟚";
|
|||
|
|
TTrue. Term2 ::= "true";
|
|||
|
|
TFalse. Term2 ::= "false";
|
|||
|
|
|
|||
|
|
TNat. Term2 ::= "ℕ";
|
|||
|
|
TZero. Term2 ::= "0";
|
|||
|
|
|
|||
|
|
TLam. Term2 ::= "λ" [Name] "." Term;
|
|||
|
|
|
|||
|
|
-- Term1
|
|||
|
|
TInd0. Term1 ::= "𝟘-elim" Term2 Term2;
|
|||
|
|
|
|||
|
|
TIndB. Term1 ::= "𝟚-elim" Term2 Term2 Term2 Term2;
|
|||
|
|
|
|||
|
|
TSuc. Term1 ::= "suc" Term2;
|
|||
|
|
TIndN. Term1 ::= "ℕ-elim" Term2 Term2 Term2 Term2;
|
|||
|
|
|
|||
|
|
TFst. Term1 ::= "pr₁" Term2;
|
|||
|
|
TSnd. Term1 ::= "pr₂" Term2;
|
|||
|
|
|
|||
|
|
TApp. Term1 ::= Term1 Term2;
|
|||
|
|
|
|||
|
|
-- Term0
|
|||
|
|
TLet. Term ::= "let" Id ":" Term ":=" Term "in" Term ;
|
|||
|
|
|
|||
|
|
TPiAr. Term ::= Term "→" Term;
|
|||
|
|
TPiEx. Term ::= "(" Id ":" Term ")" "→" Term;
|
|||
|
|
TPiIm. Term ::= "{" Id ":" Term "}" "→" Term;
|
|||
|
|
|
|||
|
|
TSgCr. Term ::= Term "×" Term;
|
|||
|
|
TSg. Term ::= "(" Id ":" Term ")" "×" Term;
|
|||
|
|
TPair. Term ::= "⟨" Term "," Term "⟩";
|
|||
|
|
|
|||
|
|
|
|||
|
|
coercions Term 2;
|