2014-08-25 02:58:48 +00:00
|
|
|
import logic
|
2014-09-03 23:00:38 +00:00
|
|
|
open num tactic
|
2014-07-14 01:53:02 +00:00
|
|
|
|
|
|
|
|
inductive inh (A : Type) : Type :=
|
2014-08-22 22:46:10 +00:00
|
|
|
inh_intro : A -> inh A
|
2014-07-14 01:53:02 +00:00
|
|
|
|
|
|
|
|
instance inh_intro
|
|
|
|
|
|
2014-07-22 16:43:18 +00:00
|
|
|
theorem inh_bool [instance] : inh Prop
|
2014-07-14 01:53:02 +00:00
|
|
|
:= inh_intro true
|
|
|
|
|
|
|
|
|
|
theorem inh_fun [instance] {A B : Type} (H : inh B) : inh (A → B)
|
|
|
|
|
:= inh_rec (λ b, inh_intro (λ a : A, b)) H
|
|
|
|
|
|
|
|
|
|
definition assump := eassumption; now
|
|
|
|
|
|
|
|
|
|
set_option elaborator.local_instances false
|
|
|
|
|
tactic_hint [inh] assump
|
|
|
|
|
tactic_hint assump
|
|
|
|
|
|
|
|
|
|
theorem tst {A B : Type} (H : inh B) : inh (A → B → B)
|
|
|
|
|
|
|
|
|
|
theorem T1 {A : Type} (a : A) : inh A
|
|
|
|
|
|
2014-07-22 16:43:18 +00:00
|
|
|
theorem T2 : inh Prop
|
