Skip to content
Snippets Groups Projects

Use `SProp` to obtain better definitional equality for `pmap`, `gmap`, `gset`, `Qp`, and `coPset`

Merged Robbert Krebbers requested to merge robbert/sprop into master
All threads resolved!
2 files
+ 225
102
Compare changes
  • Side-by-side
  • Inline
Files
2
+ 2
7
@@ -273,13 +273,8 @@ Next Obligation.
Qed.
Global Program Instance Qp_countable : Countable Qp :=
inj_countable
Qp_to_Qc
(λ p : Qc, guard (0 < p)%Qc as Hp; Some (mk_Qp p Hp)) _.
Next Obligation.
intros [p Hp]. unfold mguard, option_guard; simpl.
case_match; [|done]. f_equal. by apply Qp_to_Qc_inj_iff.
Qed.
inj_countable Qp_to_Qc Qc_to_Qp _.
Next Obligation. intros p. by apply Qc_to_Qp_Some. Qed.
Global Program Instance fin_countable n : Countable (fin n) :=
inj_countable
Loading