说我有一个类型:
inductive is_sorted {α: Type} [decidable_linear_order α] : list α -> Prop
| is_sorted_zero : is_sorted []
| is_sorted_one : Π (x: α), is_sorted [x]
| is_sorted_many : Π {x y: α} {ys: list α}, x < y -> is_sorted (y::ys) -> is_sorted (x::y::ys)
这是可以判定的:
instance decidable_sorted {α: Type} [decidable_linear_order α] : ∀ (l : list α), decidable (is_sorted l)
如果我有一个特定的清单:
def l1: list ℕ := [2,3,4,5,16,66]
是否有可能证明它是在“编译时”排序的;在顶层产生is_sorted l1
?
我已经尝试了def l1_sorted: is_sorted l1 := if H: is_sorted l1 then H else sorry
,但我不知道如何证明后一种情况是不可能的。我也尝试过simp
战术,但似乎没有帮助。
我可以用#reduce
证明它,但是不可能将其输出分配给变量。
答案 0 :(得分:2)
您应该可以使用dec_trivial
来证明l1_sorted
。这将尝试推断decidable (is_sorted l1)
的实例,如果实例的计算结果为is_true p
,则会减少为p
。