Definition contraTT := contraLR.

(* Specifications: *)
Lemma contraT b : (~~ b -> false) -> b.
Lemma wlog_neg b : (~~ b -> b) -> b.
Lemma contraFT (c b : bool) : (~~ c -> b) -> b = false -> c.
Lemma contraFN (c b : bool) : (c -> b) -> b = false -> ~~ c.
Lemma contraTF (c b : bool) : (c -> ~~ b) -> b -> c = false.
Lemma contraNF (c b : bool) : (c -> b) -> ~~ b -> c = false.
Lemma contraFF (c b : bool) : (c -> b) -> b = false -> c = false.
Lemma contra_not (P Q : Prop) : (Q -> P) -> (~ P -> ~ Q).
Lemma contraPnot (P Q : Prop) : (Q -> ~ P) -> (P -> ~ Q).
Lemma contraTnot (b : bool) (P : Prop) : (P -> ~~ b) -> (b -> ~ P).
Lemma contraNnot (P : Prop) (b : bool) : (P -> b) -> (~~ b -> ~ P).
Lemma contraPT (P : Prop) (b : bool) : (~~ b -> ~ P) -> P -> b.
Lemma contra_notT (P : Prop) (b : bool) : (~~ b -> P) -> ~ P -> b.
Lemma contra_notN (P : Prop) (b : bool) : (b -> P) -> ~ P -> ~~ b.
Lemma contraPN (P : Prop) (b : bool) : (b -> ~ P) -> (P -> ~~ b).
Lemma contraFnot (P : Prop) (b : bool) : (P -> b) -> b = false -> ~ P.
Lemma contraPF (P : Prop) (b : bool) : (b -> ~ P) -> P -> b = false.
Lemma contra_notF (P : Prop) (b : bool) : (b -> P) -> ~ P -> b = false.