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

29 lines
343 B
Plaintext
Raw Normal View History

module M;
inductive Bool {
false : Bool;
true : Bool;
};
inductive T {
t : T;
};
inductive Nat {
zero : Nat;
suc : Nat → Nat;
};
f : _;
f false false ≔ true;
f true _ ≔ false;
inductive Pair (A : Type) (B : Type) {
mkPair : A → B → Pair A B;
};
g : _;
g (mkPair (mkPair zero false) true) ≔ mkPair false zero;
end;