test(tests/lean/run/blast_cc3): add test for congruence_closure with dependent types

This commit is contained in:
Leonardo de Moura 2015-11-20 13:53:36 -08:00
parent 8f368cebbf
commit 2627eade8b

View file

@ -0,0 +1,15 @@
open nat
set_option blast.subst false
constant f (a b : nat) : a > b → nat
constant g : nat → nat
definition tst
(a₁ a₂ b₁ b₂ c d : nat)
(H₁ : a₁ > b₁)
(H₂ : a₂ > b₂) :
a₁ = c → a₂ = c →
b₁ = d → d = b₂ →
g (g (f a₁ b₁ H₁)) = g (g (f a₂ b₂ H₂)) :=
by blast
print tst