Commit de801e30 authored by Robbert Krebbers's avatar Robbert Krebbers

Clean up Patricia trees implementation.

parent a4363377
......@@ -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.
......
This diff is collapsed.
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment