mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 23:37:08 +03:00
8 lines
109 B
Plaintext
8 lines
109 B
Plaintext
use Nat/{succ,zero}
|
|
|
|
from_nat (n: Nat) : U48 =
|
|
match n {
|
|
succ: (+ 1 (from_nat n.pred))
|
|
zero: 0
|
|
}
|