说我有一个类型:
归纳is_sorted { :Type} [decidable_linear_order ]:list - >支柱| is_sorted_zero:is_sorted []| is_sorted_one: (x: ),is_sorted [x]| is_sorted_many: {x y: } …
你应该可以使用 dec_trivial 证明 l1_sorted 。这将尝试推断出一个实例 decidable (is_sorted l1) ,如果实例的计算结果为 is_true p ,它将减少到 p 。
dec_trivial
l1_sorted
decidable (is_sorted l1)
is_true p
p