fix(tests/lean): adjust tests to reflect recent changes in the standard library

This commit is contained in:
Leonardo de Moura 2015-07-13 21:46:09 -04:00
parent 84b439507b
commit 589f9df103
3 changed files with 41 additions and 0 deletions

View file

@ -8,15 +8,19 @@ false.rec_on|Π (C : Type), false → C
false.cases_on|Π (C : Type), false → C false.cases_on|Π (C : Type), false → C
false.induction_on|∀ (C : Prop), false → C false.induction_on|∀ (C : Prop), false → C
true_ne_false|¬true = false 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_is_false|is_false ?c → ¬?c
not_of_iff_false|(?a ↔ false) → ¬?a not_of_iff_false|(?a ↔ false) → ¬?a
p_ne_false|?p → ?p ≠ false p_ne_false|?p → ?p ≠ false
is_false|Π (c : Prop) [H : decidable c], Prop 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 not_of_eq_false|?p = false → ¬?p
nat.succ_le_self_iff_false|∀ (n : nat), nat.le (nat.succ n) n ↔ false
decidable.rec_on_false|Π (H3 : ¬?p), ?H2 H3 → decidable.rec_on ?H ?H1 ?H2 decidable.rec_on_false|Π (H3 : ¬?p), ?H2 H3 → decidable.rec_on ?H ?H1 ?H2
not_false|¬false not_false|¬false
decidable_false|decidable false decidable_false|decidable false
of_not_is_false|¬is_false ?c → ?c of_not_is_false|¬is_false ?c → ?c
iff_false_intro|¬?a → (?a ↔ false) iff_false_intro|¬?a → (?a ↔ false)
nat.succ_le_zero_iff_false|∀ (n : nat), nat.le (nat.succ n) nat.zero ↔ false
tactic.exfalso|tactic tactic.exfalso|tactic
-- ENDFINDP -- ENDFINDP

View file

@ -1,4 +1,21 @@
rewrite rules for iff
#2, ?M_1 - ?M_2 < succ ?M_1 ↦ true
#1, ?M_1 < 0 ↦ false
#1, ?M_1 < succ ?M_1 ↦ true
#1, ?M_1 < ?M_1 ↦ false
#1, 0 < succ ?M_1 ↦ true
#2, ?M_1 - ?M_2 ≤ ?M_1 ↦ true
#2, ?M_2 ≤ max ?M_1 ?M_2 ↦ true
#2, ?M_1 ≤ max ?M_1 ?M_2 ↦ true
#1, 0 ≤ ?M_1 ↦ true
#1, succ ?M_1 ≤ ?M_1 ↦ false
#1, pred ?M_1 ≤ ?M_1 ↦ true
#1, ?M_1 ≤ succ ?M_1 ↦ true
rewrite rules for eq rewrite rules for eq
#1, g ?M_1 ↦ f ?M_1 + 1 #1, g ?M_1 ↦ f ?M_1 + 1
#2, g ?M_1 ↦ 1 #2, g ?M_1 ↦ 1
#2, f ?M_1 ↦ 0 #2, f ?M_1 ↦ 0
#1, max ?M_1 ?M_1 ↦ ?M_1
#1, 0 - ?M_1 ↦ 0
#2, succ ?M_1 - succ ?M_2 ↦ ?M_1 - ?M_2
#4, ite ?M_1 ?M_4 ?M_4 ↦ ?M_4

View file

@ -1,2 +1,22 @@
rewrite rules for iff
#1, ?M_1 ↔ ?M_1 ↦ true
#1, false ↔ ?M_1 ↦ ¬?M_1
#1, ?M_1 ↔ false ↦ ¬?M_1
#1, true ↔ ?M_1 ↦ ?M_1
#1, ?M_1 ↔ true ↦ ?M_1
#1, ?M_1 ∧ ?M_1 ↦ ?M_1
#1, false ∧ ?M_1 ↦ false
#1, ?M_1 ∧ false ↦ false
#1, true ∧ ?M_1 ↦ ?M_1
#1, ?M_1 ∧ true ↦ ?M_1
#1, false ?M_1 ↦ ?M_1
#1, ?M_1 false ↦ ?M_1
#1, true ?M_1 ↦ true
#1, ?M_1 true ↦ true
#0, ¬false ↦ true
#0, ¬true ↦ false
rewrite rules for eq rewrite rules for eq
#2 perm, nat.add ?M_1 ?M_2 ↦ nat.add ?M_2 ?M_1 #2 perm, nat.add ?M_1 ?M_2 ↦ nat.add ?M_2 ?M_1
#3, ite false ?M_2 ?M_3 ↦ ?M_3
#3, ite true ?M_2 ?M_3 ↦ ?M_2
#4, ite ?M_1 ?M_4 ?M_4 ↦ ?M_4