Clean up Patricia trees implementation.

64b4548a · Robbert Krebbers · 0d69828b · 64b4548a · 64b4548a
Commit 64b4548a authored Nov 18, 2015 by Robbert Krebbers
Expand all Show whitespace changes
Inline Side-by-side

Showing with 179 additions and 254 deletions

prelude/base.v prelude/base.v +9 -0

prelude/pmap.v prelude/pmap.v +170 -254

No files found.
--- a/prelude/base.v
+++ b/prelude/base.v
@@ -767,6 +767,15 @@ Infix "=.>*" := (Forall2 bool_le) (at level 70).
 Instance: PartialOrder bool_le.
 Proof. repeat split; repeat intros [|]; compute; tauto. Qed.

+Lemma andb_True b1 b2 : b1 && b2 ↔ b1 ∧ b2.
+Proof. destruct b1, b2; simpl; tauto. Qed.
+Lemma orb_True b1 b2 : b1 || b2 ↔ b1 ∨ b2.
+Proof. destruct b1, b2; simpl; tauto. Qed.
+Lemma negb_True b : negb b ↔ ¬b.
+Proof. destruct b; simpl; tauto. Qed.
+Lemma Is_true_false (b : bool) : b = false → ¬b.
+Proof. now intros -> ?. Qed.
+
 (** * Miscellaneous *)
 Class Half A := half: A → A.
 Notation "½" := half : C_scope.

--- a/prelude/pmap.v
+++ b/prelude/pmap.v