From 39285cc9cc8887380349bb1e75aa4e006a8ceffa Mon Sep 17 00:00:00 2001 From: Matthieu Sozeau Date: Sun, 3 Aug 2014 23:45:04 +0200 Subject: Fix to make Coq compile, I think this should still be accepted. --- 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 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. -- cgit v1.2.3