diff options
| -rw-r--r-- | theories/Bool/Bvector.v | 2 | ||||
| -rw-r--r-- | theories/ZArith/Zbinary.v | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/theories/Bool/Bvector.v b/theories/Bool/Bvector.v index aa69fccf12..75db13172f 100644 --- a/theories/Bool/Bvector.v +++ b/theories/Bool/Bvector.v @@ -196,8 +196,10 @@ Defined. End VECTORS. +(* suppressed: incompatible with Coq-Art book Implicit Arguments Vnil [A]. Implicit Arguments Vcons [A n]. +*) Section BOOLEAN_VECTORS. diff --git a/theories/ZArith/Zbinary.v b/theories/ZArith/Zbinary.v index c78e0a72f6..92fa6097c1 100644 --- a/theories/ZArith/Zbinary.v +++ b/theories/ZArith/Zbinary.v @@ -186,7 +186,7 @@ Meriterait d'etre reecrite. Lemma binary_value_Sn : forall (n:nat) (b:bool) (bv:Bvector n), - binary_value (S n) (Vcons b bv) = + binary_value (S n) (Vcons bool b n bv) = (bit_value b + 2 * binary_value n bv)%Z. Proof. intros; auto. |