fix(tests/lean): adjust tests to recent changes to the standard library
This commit is contained in:
parent
48f8b8f18d
commit
23dd47d27f
2 changed files with 1 additions and 4 deletions
|
@ -1,4 +1,4 @@
|
||||||
import data.nat.basic data.sum data.sigma data.bool
|
import data.nat data.sum data.sigma data.bool
|
||||||
open nat sigma
|
open nat sigma
|
||||||
|
|
||||||
inductive tree (A : Type) : Type :=
|
inductive tree (A : Type) : Type :=
|
||||||
|
|
|
@ -5,8 +5,6 @@ rewrite rules for iff
|
||||||
#1, ?M_1 < ?M_1 ↦ false
|
#1, ?M_1 < ?M_1 ↦ false
|
||||||
#1, 0 < succ ?M_1 ↦ true
|
#1, 0 < succ ?M_1 ↦ true
|
||||||
#2, ?M_1 - ?M_2 ≤ ?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, 0 ≤ ?M_1 ↦ true
|
||||||
#1, succ ?M_1 ≤ ?M_1 ↦ false
|
#1, succ ?M_1 ≤ ?M_1 ↦ false
|
||||||
#1, pred ?M_1 ≤ ?M_1 ↦ true
|
#1, pred ?M_1 ≤ ?M_1 ↦ true
|
||||||
|
@ -15,7 +13,6 @@ 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
|
#1, 0 - ?M_1 ↦ 0
|
||||||
#2, succ ?M_1 - succ ?M_2 ↦ ?M_1 - ?M_2
|
#2, succ ?M_1 - succ ?M_2 ↦ ?M_1 - ?M_2
|
||||||
#4, ite ?M_1 ?M_4 ?M_4 ↦ ?M_4
|
#4, ite ?M_1 ?M_4 ?M_4 ↦ ?M_4
|
||||||
|
|
Loading…
Reference in a new issue