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