mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-11-28 14:06:26 +03:00
11 lines
129 B
Idris
11 lines
129 B
Idris
|
module Nat
|
||
|
|
|
||
|
|
public export
|
||
|
|
data Nat = Z | S Nat
|
||
|
|
|
||
|
|
public export
|
||
|
|
plus : Nat -> Nat -> Nat
|
||
|
|
plus Z y = y
|
||
|
|
plus (S k) y = S (plus k y)
|
||
|
|
|