2015-11-20 21:53:36 +00:00
|
|
|
open nat
|
2015-12-06 22:33:21 +00:00
|
|
|
set_option blast.strategy "cc"
|
|
|
|
|
|
2015-11-20 21:53:36 +00:00
|
|
|
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
|
