blob: a1444a4f63518b82138cbb20a09c0f4cafac7fc5 (
plain)
1
2
3
4
5
6
7
|
(* [Unset Bracketing Last Introduction Pattern] was not working *)
Unset Bracketing Last Introduction Pattern.
Goal forall T (x y : T * T), fst x = fst y /\ snd x = snd y -> x = y.
do 10 ((intros [] || intro); simpl); reflexivity.
Qed.
|
