Skip to content
Snippets Groups Projects
Commit 79830523 authored by Glen Mével's avatar Glen Mével
Browse files

remove lemma `finite_dec`

parent 10d52cfd
No related branches found
No related tags found
No related merge requests found
......@@ -373,13 +373,6 @@ Qed.
Lemma fin_card n : card (fin n) = n.
Proof. unfold card; simpl. induction n; simpl; rewrite ?fmap_length; auto. Qed.
Lemma finite_dec (P : Prop) `{Hfin : Finite P} : Decision P.
Proof.
destruct Hfin as [[ | p proofs'] _ Hproofs].
{ right. intros p. specialize (Hproofs p) as ?%not_elem_of_nil. naive_solver. }
{ left. done. }
Qed.
(* shouldn’t be an instance (cycle with [sig_finite]): *)
Lemma finite_sig_dec `{!EqDecision A} (P : A Prop) `{Finite (sig P)} x :
Decision (P x).
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment