diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-07-07 13:48:11 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-07-07 13:48:11 +0000 |
commit | 8efca60569b5f8b53e9839253c6b0392e23c4fc5 (patch) | |
tree | 513ee900f72e629452485d5b2c3273517c3afec6 /plugins/micromega/EnvRing.v | |
parent | 73d5a4fd2d54c21a7d3b493993313d13618ce831 (diff) |
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
Diffstat (limited to 'plugins/micromega/EnvRing.v')
-rw-r--r-- | plugins/micromega/EnvRing.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/micromega/EnvRing.v b/plugins/micromega/EnvRing.v index e1424bb10..fd23d874f 100644 --- a/plugins/micromega/EnvRing.v +++ b/plugins/micromega/EnvRing.v @@ -1043,7 +1043,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. |