Skip to content

Instantly share code, notes, and snippets.

@illusory0x0
Created January 31, 2025 16:00
Show Gist options
  • Select an option

  • Save illusory0x0/b7da63aa4edc11e14c541636432e9983 to your computer and use it in GitHub Desktop.

Select an option

Save illusory0x0/b7da63aa4edc11e14c541636432e9983 to your computer and use it in GitHub Desktop.
Logic Lemma
(* https://math.stackexchange.com/questions/447098/why-peirces-law-implies-law-of-excluded-middle *)
Definition strengthen :
forall P : Prop,
(P \/ ~P -> False) -> ~P
:=
fun P H p =>
let e : ~P := fun p => H (or_introl p) in
H (or_intror e)
.
Definition relax :
forall P : Prop,
P -> P \/ ~P
:=
fun P p =>
or_introl p.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment