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
12 lines
408 B
Text
12 lines
408 B
Text
open tactic
|
|
axiom Sorry : ∀ {A:PType*}, A
|
|
|
|
example (a b c : nat) (h₀ : c > 0) (h₁ : a > 1) (h₂ : b > 0) : a + b + c = 0 :=
|
|
by do
|
|
[x, y] ← match_target_subexpr `(λ x y : nat, x + y) | failed,
|
|
trace "------ subterms -------",
|
|
trace x, trace y,
|
|
(h, [z]) ← match_hypothesis `(λ x : nat, x > 1) | failed,
|
|
trace "--- hypothesis of the form x > 1 ---",
|
|
trace h, trace z,
|
|
refine `(Sorry)
|