lean2/tests/lean/run/blast_cc4.lean

open nat
set_option blast.strategy "cc"

definition tst
        (a₁ a₂ b₁ b₂ c d : nat) :
        a₁ = c → a₂ = c →
        b₁ = d → d  = b₂ →
        a₁ + b₁ + a₁ = a₂ + b₂ + c :=
by blast

print tst
test(tests/lean/run/blast_cc4): congruence_closure and type classes 2015-11-20 22:01:15 +00:00			`open nat`
feat(library/blast/strategies): add strategy for testing congruence closure module 2015-12-06 22:33:21 +00:00			`set_option blast.strategy "cc"`
test(tests/lean/run/blast_cc4): congruence_closure and type classes 2015-11-20 22:01:15 +00:00
			`definition tst`
			`(a₁ a₂ b₁ b₂ c d : nat) :`
			`a₁ = c → a₂ = c →`
			`b₁ = d → d = b₂ →`
			`a₁ + b₁ + a₁ = a₂ + b₂ + c :=`
			`by blast`

			`print tst`