2022-07-15 18:57:04 +03:00
|
|
|
module M;
|
|
|
|
|
|
|
|
inductive Bool {
|
|
|
|
false : Bool;
|
|
|
|
true : Bool;
|
|
|
|
};
|
|
|
|
|
|
|
|
inductive Pair (A : Type) (B : Type) {
|
|
|
|
mkPair : A → B → Pair A B;
|
|
|
|
};
|
|
|
|
|
|
|
|
f : _ → _;
|
2022-09-30 03:55:32 +03:00
|
|
|
f (mkPair false true) := true;
|
|
|
|
f true := false;
|
2022-07-15 18:57:04 +03:00
|
|
|
|
|
|
|
end;
|