From 8efca60569b5f8b53e9839253c6b0392e23c4fc5 Mon Sep 17 00:00:00 2001 From: letouzey Date: Sat, 7 Jul 2012 13:48:11 +0000 Subject: Ring_polynom : a restricted simpl instead of a unfold;fold git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15545 85f007b7-540e-0410-9357-904b9bb8a0f7 --- plugins/setoid_ring/Ring_polynom.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'plugins/setoid_ring/Ring_polynom.v') diff --git a/plugins/setoid_ring/Ring_polynom.v b/plugins/setoid_ring/Ring_polynom.v index 4822a0c99..1f21e6dc0 100644 --- a/plugins/setoid_ring/Ring_polynom.v +++ b/plugins/setoid_ring/Ring_polynom.v @@ -1020,7 +1020,7 @@ Section POWER. | None, None => (norm_aux pe1) ++ (norm_aux pe2) end. Proof. - unfold norm_aux at 1; fold norm_aux. + simpl (norm_aux (PEadd _ _)). destruct pe1; [ | | | | | reflexivity | ]; destruct pe2; simpl get_PEopp; reflexivity. Qed. -- cgit v1.2.3