mirror of
https://github.com/anoma/juvix.git
synced 2025-01-08 16:51:53 +03:00
29 lines
343 B
Plaintext
29 lines
343 B
Plaintext
|
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;
|