mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-12 14:29:31 -06:00
18 lines
340 B
Plaintext
18 lines
340 B
Plaintext
abstract Nat = {
|
|
|
|
cat Nat ;
|
|
|
|
data zero : Nat ;
|
|
succ : Nat -> Nat ;
|
|
|
|
cat NE (i,j : Nat) ;
|
|
|
|
data zNE : (i,j : Nat) -> NE i j -> NE (succ i) (succ j) ;
|
|
lNE : (j : Nat) -> NE zero (succ j) ;
|
|
rNE : (j : Nat) -> NE (succ j) zero ;
|
|
|
|
fun plus : Nat -> Nat -> Nat ;
|
|
def plus zero n = n ;
|
|
plus (succ m) n = succ (plus m n) ;
|
|
|
|
} |