diff options
| -rw-r--r-- | plugins/micromega/EnvRing.v | 2 | ||||
| -rw-r--r-- | plugins/setoid_ring/Ring_polynom.v | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/plugins/micromega/EnvRing.v b/plugins/micromega/EnvRing.v index e1424bb10e..fd23d874f2 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. diff --git a/plugins/setoid_ring/Ring_polynom.v b/plugins/setoid_ring/Ring_polynom.v index 4822a0c993..1f21e6dc0b 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. |