lean2/tests/lean/simp3.lean.expected.out
Leonardo de Moura 759aa61f70 refactor(builtin/kernel): define if-then-else using Hilbert's operator
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
2014-01-30 19:28:42 -08:00

35 lines
1.1 KiB
Text
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

Set: pp::colors
Set: pp::unicode
Defined: double
9
2 + 2 + (2 + 2) + 1 ≥ 3
3 ≤ 2 * 2 + (2 * 2 + (2 * 2 + (2 * 2 + 1)))
Assumed: a
Assumed: b
Assumed: c
Assumed: d
a * c + (a * d + (b * c + b * d))
trans (Nat::distributel a b (c + d))
(trans (congr (congr2 Nat::add (Nat::distributer a c d)) (Nat::distributer b c d))
(Nat::add_assoc (a * c) (a * d) (b * c + b * d)))
Proved: congr2_congr1
Proved: congr2_congr2
Proved: congr1_congr2
trans (congr (congr2 eq
(congr1 10
(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))
trans (congr (congr2 (λ x : , eq ((λ x : , x + 10) x))
(trans (congr2 (ite (a > 0) b) (Nat::add_zeror b)) (if_a_a (a > 0) b)))
(congr2 (λ x : , x + 10) (if_a_a (a > 0) b)))
(eq_id (b + 10))
a * a + (a * b + (b * a + b * b))
→ ⊥ refl ( → ⊥) false
refl () false
⊥ → ⊥ refl (⊥ → ⊥) false
⊥ refl ⊥ false