mirror of
https://github.com/anoma/juvix.git
synced 2025-01-07 16:22:14 +03:00
16 lines
198 B
Plaintext
16 lines
198 B
Plaintext
module NatMatch2;
|
|
|
|
open import Stdlib.Prelude;
|
|
|
|
f : Nat → Nat → Nat;
|
|
f zero k := zero;
|
|
f n (suc (suc m)) := n;
|
|
|
|
n : Nat;
|
|
n := suc (suc (suc (suc (suc zero))));
|
|
|
|
main : Nat;
|
|
main := f n n;
|
|
|
|
end;
|