testsuite/compiler/check/abstract-operations/Nat.gf


1
2
3
4
5
6
7
8
9
10
11
12
13

abstract Nat = {

cat Nat ;
data zero : Nat ;
     succ : Nat -> Nat ;
     
oper plus : Nat -> Nat -> Nat ;
def  plus zero     y = y ;
     plus (succ x) y = succ (plus x y) ;

oper twice : Nat -> Nat = \x -> plus x x ;

}