2014-08-24 19:58:48 -07:00
|
|
|
import logic
|
2014-09-03 16:00:38 -07:00
|
|
|
open tactic
|
2014-07-14 06:27:36 +01:00
|
|
|
|
|
|
|
section
|
|
|
|
set_option pp.universes true
|
|
|
|
set_option pp.implicit true
|
2014-10-09 07:13:06 -07:00
|
|
|
variable {A : Type}
|
|
|
|
variables {a b : A}
|
|
|
|
variable H : a = b
|
|
|
|
variables H1 H2 : b = a
|
2014-07-14 06:27:36 +01:00
|
|
|
check H1
|
|
|
|
check H
|
|
|
|
check H2
|
2014-11-21 10:07:16 -08:00
|
|
|
include H
|
2014-07-14 06:27:36 +01:00
|
|
|
theorem test : a = b ∧ a = a
|
2014-10-22 18:11:09 -07:00
|
|
|
:= by apply and.intro; apply H; apply eq.refl
|
2014-07-14 06:27:36 +01:00
|
|
|
end
|
|
|
|
|
2014-09-03 16:00:38 -07:00
|
|
|
check @test
|