michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/lean/simp3.lean.expected.out
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))))) (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)))) (congr1 10 (congr2 Nat::add (if_a_a (a > 0) b))))
(eq_id (b + 10)) (eq_id (b + 10))
let κ::1 := congr2 (λ x : ℕ → ℕ, eq (x 10)) let κ::1 := congr2 (λ x : ℕ, eq ((λ x : ℕ, x + 10) x))
(congr2 Nat::add (trans (congr2 (ite (a > 0) b) (Nat::add_zeror b)) (if_a_a (a > 0) b))) (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)) 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 a * a + a * b + b * a + b * b
⊤ → ⊥ refl (⊤ → ⊥) ⊤ → ⊥ refl (⊤ → ⊥)
⊤ → ⊤ refl (⊤ → ⊤) ⊤ → ⊤ refl (⊤ → ⊤)