Commit 4978faed authored by Robbert Krebbers's avatar Robbert Krebbers

Add `proj1_ex` and `proj2_ex` when ∃ over `Prop`.

parent 9d08f65f
Pipeline #17818 passed with stage
in 10 minutes and 40 seconds
......@@ -753,6 +753,10 @@ Section sig_map.
End sig_map.
Arguments sig_map _ _ _ _ _ _ !_ / : assert.
Definition proj1_ex {P : Prop} {Q : P Prop} (p : x, Q x) : P :=
let '(ex_intro _ x _) := p in x.
Definition proj2_ex {P : Prop} {Q : P Prop} (p : x, Q x) : Q (proj1_ex p) :=
let '(ex_intro _ x H) := p in H.
(** * Operations on sets *)
(** We define operational type classes for the traditional operations and
......
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