mirror of
https://github.com/anoma/juvix.git
synced 2024-12-01 00:04:58 +03:00
10 lines
182 B
Plaintext
10 lines
182 B
Plaintext
module Clause;
|
|
|
|
type 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;
|