mirror of
https://github.com/anoma/juvix.git
synced 2024-12-14 08:27:03 +03:00
15 lines
193 B
Plaintext
15 lines
193 B
Plaintext
module M;
|
|
|
|
type Bool :=
|
|
true : Bool
|
|
| false : Bool;
|
|
|
|
type Pair (A : Type) (B : Type) :=
|
|
mkPair : A → B → Pair A B;
|
|
|
|
f : _ → _;
|
|
f (mkPair false true) := true;
|
|
f _ := false;
|
|
|
|
end;
|