mirror of
https://github.com/anoma/juvix.git
synced 2024-12-14 17:32:00 +03:00
12 lines
176 B
Plaintext
12 lines
176 B
Plaintext
module Pair;
|
|
|
|
inductive Pair (A : Type) (B : Type) {
|
|
mkPair : A → B → Pair A B;
|
|
};
|
|
|
|
fst : (A : Type) → (B : Type) → Pair A B → A;
|
|
fst _ _ (mkPair a b) ≔ a;
|
|
|
|
|
|
end;
|