test(tests/lean/run/blast_cc3): add test for congruence_closure with dependent types
This commit is contained in:
parent
8f368cebbf
commit
2627eade8b
1 changed files with 15 additions and 0 deletions
15
tests/lean/run/blast_cc3.lean
Normal file
15
tests/lean/run/blast_cc3.lean
Normal 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
|
Loading…
Reference in a new issue