fix(tests/lean): fix three tests broken by setext renaming

This commit is contained in:
Jeremy Avigad 2015-08-09 22:04:40 -04:00
parent b130a144c8
commit 305f72bf4f
3 changed files with 3 additions and 3 deletions

View file

@ -11,7 +11,6 @@ true_ne_false|¬true = false
nat.lt_self_iff_false|∀ (n : nat), nat.lt n n ↔ false
not_of_is_false|is_false ?c → ¬?c
not_of_iff_false|(?a ↔ false) → ¬?a
p_ne_false|?p → ?p ≠ false
is_false|Π (c : Prop) [H : decidable c], Prop
nat.lt_zero_iff_false|∀ (a : nat), nat.lt a nat.zero ↔ false
not_of_eq_false|?p = false → ¬?p
@ -21,6 +20,7 @@ not_false|¬false
decidable_false|decidable false
of_not_is_false|¬is_false ?c → ?c
iff_false_intro|¬?a → (?a ↔ false)
ne_false_of_self|?p → ?p ≠ false
nat.succ_le_zero_iff_false|∀ (n : nat), nat.le (nat.succ n) nat.zero ↔ false
tactic.exfalso|tactic
-- ENDFINDP

View file

@ -4,7 +4,7 @@ open set function eq.ops
variables {X Y Z : Type}
lemma image_compose (f : Y → X) (g : X → Y) (a : set X) : (f ∘ g) '[a] = f '[g '[a]] :=
setext (take z,
ext (take z,
iff.intro
(assume Hz : z ∈ (f ∘ g) '[a],
obtain x (Hx₁ : x ∈ a) (Hx₂ : f (g x) = z), from Hz,

View file

@ -4,7 +4,7 @@ open set function eq.ops
variables {X Y Z : Type}
lemma image_compose (f : Y → X) (g : X → Y) (a : set X) : (f ∘ g) '[a] = f '[g '[a]] :=
setext (take z,
ext (take z,
iff.intro
(assume Hz,
obtain x Hx₁ Hx₂, from Hz,