blob: 2f15aa9ea150904c4616547327158ea0068b7c0e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
Set Implicit Arguments.
Record prod A B := pair { fst : A ; snd : B }.
Definition idS := Set.
Goal forall x y : prod Set Set, forall H : fst x = fst y, fst x = fst y.
intros.
change (@fst _ _ ?z) with (@fst Set idS z) at 2.
apply H.
Qed.
(* Toplevel input, characters 20-58:
Error: Failed to get enough information from the left-hand side to type the
right-hand side. *)
|
