1
1
mirror of https://github.com/anoma/juvix.git synced 2025-01-05 22:46:08 +03:00
juvix/tests/positive/272/M.juvix

22 lines
315 B
Plaintext
Raw Normal View History

module M;
type Bool :=
| true : Bool
| false : Bool;
type T := t : T;
type Nat :=
| zero : Nat
| suc : Nat → Nat;
f : _
| false false := true
| true _ := false;
type Pair (A : Type) (B : Type) :=
mkPair : A → B → Pair A B;
g : _
| (mkPair (mkPair zero false) true) := mkPair false zero;