8b0dd2e835
This will collect definitions from Std.Logic --------- Co-authored-by: David Thrane Christiansen <david@davidchristiansen.dk> Co-authored-by: Scott Morrison <scott.morrison@gmail.com>
14 lines
579 B
Text
14 lines
579 B
Text
theorem not_mem_nil (a : Nat) : ¬ a ∈ [] := fun x => nomatch x
|
||
|
||
example (R : Nat → Prop) : (∀ (a' : Nat), a' ∈ [] → R a') := by
|
||
simp only [forall_prop_of_false (not_mem_nil _)]
|
||
exact fun _ => True.intro
|
||
|
||
def Not.elim' {α : Sort _} (H1 : ¬a) (H2 : a) : α := absurd H2 H1
|
||
theorem iff_of_true' (ha : a) (hb : b) : a ↔ b := ⟨fun _ => hb, fun _ => ha⟩
|
||
theorem iff_true_intro' (h : a) : a ↔ True := iff_of_true h ⟨⟩
|
||
|
||
example {P : Prop} : ∀ (x : Nat) (_ : x ∈ []), P :=
|
||
by
|
||
simp only [forall_prop_of_false (not_mem_nil _)]
|
||
exact fun _ => True.intro
|