2015-11-13 04:24:59 +00:00
|
|
|
import algebra.simplifier
|
2015-11-06 02:30:23 +00:00
|
|
|
open algebra
|
2015-11-13 04:59:26 +00:00
|
|
|
|
2015-11-13 18:50:35 +00:00
|
|
|
open simplifier.numeral
|
|
|
|
|
|
|
|
|
|
set_option simplify.max_steps 5000000
|
|
|
|
|
universe l
|
|
|
|
|
constants (A : Type.{l}) (A_comm_ring : comm_ring A)
|
2015-11-06 02:30:23 +00:00
|
|
|
attribute A_comm_ring [instance]
|
|
|
|
|
|
2015-11-13 04:59:26 +00:00
|
|
|
#simplify eq 0 (0:A) + 1
|
|
|
|
|
#simplify eq 0 (1:A) + 0
|
|
|
|
|
#simplify eq 0 (1:A) + 1
|
|
|
|
|
#simplify eq 0 (0:A) + 2
|
|
|
|
|
#simplify eq 0 (1:A) + 2
|
|
|
|
|
#simplify eq 0 (2:A) + 1
|
|
|
|
|
#simplify eq 0 (3:A) + 1
|
|
|
|
|
#simplify eq 0 (2:A) + 2
|
|
|
|
|
#simplify eq 0 (4:A) + 1
|
|
|
|
|
#simplify eq 0 (3:A) + 2
|
|
|
|
|
#simplify eq 0 (2:A) + 3
|
|
|
|
|
#simplify eq 0 (0:A) + 6
|
|
|
|
|
#simplify eq 0 (3:A) + 3
|
|
|
|
|
#simplify eq 0 (4:A) + 2
|
|
|
|
|
#simplify eq 0 (5:A) + 1
|
|
|
|
|
#simplify eq 0 (4:A) + 3
|
|
|
|
|
#simplify eq 0 (1:A) + 6
|
|
|
|
|
#simplify eq 0 (6:A) + 1
|
2015-11-06 02:30:23 +00:00
|
|
|
#simplify eq 0 (5:A) + 28
|
|
|
|
|
#simplify eq 0 (0 : A) + (2 + 3) + 7
|
|
|
|
|
#simplify eq 0 (70 : A) + (33 + 2)
|
2015-11-13 18:50:35 +00:00
|
|
|
|
2015-11-06 02:30:23 +00:00
|
|
|
#simplify eq 0 (23000000000 : A) + 22000000000
|
|
|
|
|
|
|
|
|
|
#simplify eq 0 (0 : A) * 0
|
|
|
|
|
#simplify eq 0 (0 : A) * 1
|
|
|
|
|
#simplify eq 0 (0 : A) * 2
|
|
|
|
|
#simplify eq 0 (2 : A) * 0
|
|
|
|
|
#simplify eq 0 (1 : A) * 0
|
|
|
|
|
#simplify eq 0 (1 : A) * 1
|
|
|
|
|
#simplify eq 0 (2 : A) * 1
|
|
|
|
|
#simplify eq 0 (1 : A) * 2
|
|
|
|
|
#simplify eq 0 (2 : A) * 2
|
|
|
|
|
#simplify eq 0 (3 : A) * 2
|
|
|
|
|
#simplify eq 0 (2 : A) * 3
|
|
|
|
|
#simplify eq 0 (4 : A) * 1
|
|
|
|
|
#simplify eq 0 (1 : A) * 4
|
|
|
|
|
#simplify eq 0 (3 : A) * 3
|
|
|
|
|
#simplify eq 0 (3 : A) * 4
|
|
|
|
|
#simplify eq 0 (4 : A) * 4
|
|
|
|
|
#simplify eq 0 (11 : A) * 2
|
|
|
|
|
#simplify eq 0 (15 : A) * 6
|
|
|
|
|
#simplify eq 0 (123456 : A) * 123456
|
2015-11-06 03:43:10 +00:00
|
|
|
|
2015-11-13 19:31:18 +00:00
|
|
|
#simplify eq 0 (0 + 45343453:A) * (53653343 + 1) * (53453 + 2) + (0 + 1 + 2 + 2200000000034733)
|
|
|
|
|
|
2015-11-13 17:21:44 +00:00
|
|
|
-- The following test is too slow
|
|
|
|
|
-- #simplify eq 0 (23000000000343434534345316:A) * (53653343563534534 + 5367536453653573573453) * 53453756475777536 + 2200000000034733531531531534536
|
