fix(tests/lean): adjust test to reflect recent changes
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
parent
ad219d43d9
commit
d1bd56b3d3
1 changed files with 3 additions and 3 deletions
|
@ -25,9 +25,9 @@ trans (congr (congr2 eq
|
|||
(congr2 Nat::add (trans (congr2 (ite (a > 0) b) (Nat::add_zeror b)) (if_a_a (a > 0) b)))))
|
||||
(congr1 10 (congr2 Nat::add (if_a_a (a > 0) b))))
|
||||
(eq_id (b + 10))
|
||||
let κ::1 := congr2 (λ x : ℕ → ℕ, eq (x 10))
|
||||
(congr2 Nat::add (trans (congr2 (ite (a > 0) b) (Nat::add_zeror b)) (if_a_a (a > 0) b)))
|
||||
in trans (congr κ::1 (congr1 10 (congr2 Nat::add (if_a_a (a > 0) b)))) (eq_id (b + 10))
|
||||
let κ::1 := congr2 (λ x : ℕ, eq ((λ x : ℕ, x + 10) x))
|
||||
(trans (congr2 (ite (a > 0) b) (Nat::add_zeror b)) (if_a_a (a > 0) b))
|
||||
in trans (congr κ::1 (congr2 (λ x : ℕ, x + 10) (if_a_a (a > 0) b))) (eq_id (b + 10))
|
||||
a * a + a * b + b * a + b * b
|
||||
⊤ → ⊥ refl (⊤ → ⊥)
|
||||
⊤ → ⊤ refl (⊤ → ⊤)
|
||||
|
|
Loading…
Reference in a new issue