lean2/tests/lean/hott/contra1.hlean

open eq

example (a b : nat) (h : empty) : a = b :=
by contradiction

example : ∀ (a b : nat), empty → a = b :=
by contradiction

example : ∀ (a b : nat), 0 = 1 :> ℕ → a = b :=
by contradiction

example : ∀ (a b : nat), id empty → a = b :=
by contradiction

example : ∀ (a b : nat), id (0 = 1 :> ℕ) → a = b :=
by contradiction
-												fix(tests): fix tests after port

											
										
										
											2015-12-09 05:11:11 +00:00
+								open eq
-												feat(library/tactic): add 'contradiction' tactic

see issue #500

Remark: this tactic also applies no_confusion to take care of a contradiction

											
										
										
											2015-04-30 20:36:43 +00:00
+								example (a b : nat) (h : empty) : a = b :=
 								by contradiction
 								example : ∀ (a b : nat), empty → a = b :=
 								by contradiction
-												fix(tests): fix tests after port

											
										
										
											2015-12-09 05:11:11 +00:00
+								example : ∀ (a b : nat), 0 = 1 :> ℕ → a = b :=
-												feat(library/tactic): add 'contradiction' tactic

see issue #500

Remark: this tactic also applies no_confusion to take care of a contradiction

											
										
										
											2015-04-30 20:36:43 +00:00
+								by contradiction
 								example : ∀ (a b : nat), id empty → a = b :=
 								by contradiction
-												fix(tests): fix tests after port

											
										
										
											2015-12-09 05:11:11 +00:00
+								example : ∀ (a b : nat), id (0 = 1 :> ℕ) → a = b :=
-												feat(library/tactic): add 'contradiction' tactic

see issue #500

Remark: this tactic also applies no_confusion to take care of a contradiction

											
										
										
											2015-04-30 20:36:43 +00:00
+								by contradiction