diff options
author | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-08-03 23:45:04 +0200 |
---|---|---|
committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-08-03 23:45:04 +0200 |
commit | 39285cc9cc8887380349bb1e75aa4e006a8ceffa (patch) | |
tree | b64ce5504960b97a0b8cf018acf86fdee779ce4d /plugins/setoid_ring/Ring_polynom.v | |
parent | ead5d80dff08f97998e81acfb2562dde741a26af (diff) |
Fix to make Coq compile, I think this should still be accepted.
Diffstat (limited to 'plugins/setoid_ring/Ring_polynom.v')
-rw-r--r-- | plugins/setoid_ring/Ring_polynom.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/setoid_ring/Ring_polynom.v b/plugins/setoid_ring/Ring_polynom.v index 5ec73950b..9e88b6c90 100644 --- a/plugins/setoid_ring/Ring_polynom.v +++ b/plugins/setoid_ring/Ring_polynom.v @@ -1397,7 +1397,7 @@ Qed. match p with | xI _ => rpow r (Cp_phi (Npos p)) | xO _ => rpow r (Cp_phi (Npos p)) - | 1 => r + | 1%positive => r end == pow_pos rmul r p. Proof. destruct p; now rewrite ?pow_th.(rpow_pow_N). Qed. |