mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-10 05:29:30 -06:00
15 lines
273 B
Plaintext
15 lines
273 B
Plaintext
abstract lazy = {
|
|
|
|
cat Nat ;
|
|
data zero : Nat ;
|
|
succ : Nat -> Nat ;
|
|
|
|
fun infinity : Nat ;
|
|
def infinity = succ infinity ;
|
|
|
|
fun min : Nat -> Nat -> Nat ;
|
|
def min zero _ = zero ;
|
|
min _ zero = zero ;
|
|
min (succ x) (succ y) = succ (min x y) ;
|
|
|
|
} |