diff --git a/theories/decidable.v b/theories/decidable.v index 81c18b8fd7cc292e8670c09c064563920c2d4dd1..ae6c65993d7ff114cd1784df1adba03cd1813bf5 100644 --- a/theories/decidable.v +++ b/theories/decidable.v @@ -113,6 +113,7 @@ Lemma bool_decide_unpack (P : Prop) {dec : Decision P} : bool_decide P → P. Proof. rewrite bool_decide_spec; trivial. Qed. Lemma bool_decide_pack (P : Prop) {dec : Decision P} : P → bool_decide P. Proof. rewrite bool_decide_spec; trivial. Qed. +Hint Resolve bool_decide_pack. Lemma bool_decide_true (P : Prop) `{Decision P} : P → bool_decide P = true. Proof. case_bool_decide; tauto. Qed. Lemma bool_decide_false (P : Prop) `{Decision P} : ¬P → bool_decide P = false.