mirror of
https://github.com/anoma/juvix.git
synced 2024-12-15 01:52:11 +03:00
11 lines
173 B
Plaintext
11 lines
173 B
Plaintext
module Data.Pair;
|
|
|
|
type 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;
|