juvix/tests/positive/MiniC/Lib/Data/Pair.juvix

module Data.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;