bf9f7560f7
(Type u) is the old (Type (u+1)) (PType u) is the old (Type u) Type* is the old (Type (_+1)) PType* is the old Type* The stdlib can be compiled, but we still have > 70 broken tests See discussion at #1341
50 lines
1,006 B
Text
50 lines
1,006 B
Text
open tactic bool
|
||
universe variables u
|
||
constant foo {A : Type u} [inhabited A] (a b : A) : a = default A → a = b
|
||
|
||
example (a b : nat) : a = 0 → a = b :=
|
||
by do
|
||
intro `H,
|
||
apply (expr.const `foo [level.of_nat 0]),
|
||
trace_state,
|
||
assumption
|
||
|
||
definition ex : inhabited (nat × nat × bool) :=
|
||
by apply_instance
|
||
|
||
set_option pp.all true
|
||
print ex
|
||
|
||
set_option pp.all false
|
||
|
||
example (a b : nat) : a = 0 → a = b :=
|
||
by do
|
||
intro `H,
|
||
apply_core semireducible ff tt ff (expr.const `foo [level.of_nat 0]),
|
||
trace_state,
|
||
a ← get_local `a,
|
||
trace_state,
|
||
mk_app `inhabited.mk [a] >>= exact,
|
||
trace "--------",
|
||
trace_state,
|
||
reflexivity
|
||
|
||
print "----------------"
|
||
set_option pp.all true
|
||
|
||
example (a b : nat) : a = 0 → a = b :=
|
||
by do
|
||
intro `H,
|
||
foo ← mk_const `foo,
|
||
trace foo,
|
||
apply foo,
|
||
trace_state,
|
||
assumption
|
||
|
||
|
||
example (a b : nat) : a = 0 → a = b :=
|
||
by do
|
||
`[intro],
|
||
apply_core semireducible ff tt ff (expr.const `foo [level.of_nat 0]),
|
||
`[exact inhabited.mk a],
|
||
reflexivity
|