fix(tests/lean): adjust test to reflect recent changes

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-01-20 14:47:03 -08:00
parent ad219d43d9
commit d1bd56b3d3

View file

@ -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 ()