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;