mirror of
https://github.com/anoma/juvix.git
synced 2024-12-02 23:43:01 +03:00
8 lines
181 B
Plaintext
8 lines
181 B
Plaintext
module Lambda;
|
|
|
|
type Pair (a : Type) (b : Type) := mkPair : a → b → Pair a b;
|
|
|
|
fst : (a : Type) → (b : Type) → Pair a b → a := λ { _ _ (mkPair _ _ x x) := x };
|
|
|
|
end;
|