将< = b转为suc a< = suc b

时间:2012-06-03 06:59:51

标签: equality agda

这是此处发布的问题的扩展名:

Agda and Binary Search Trees

我有

trans₁ : ∀ {a b c} → suc a ≤ suc b → suc b ≤ c → suc a ≤ c

关于trans₁的定义,但这需要我将下面的widen的定义更改为:

widen : ∀{min max newMin newMax}
      → BST min max
      → suc newMin ≤ suc min
      → max ≤ newMax
      → BST newMin newMax

我如何将a <= b更改为suc a <= suc b?这样我就可以将trans₁的定义更改为:

trans₁ : ∀ {a b c} → a ≤ b → suc b ≤ c → suc a ≤ c

非常感谢任何帮助。

1 个答案:

答案 0 :(得分:2)

查看s&lt; = s构造函数是否小于或等于关系。请在课程论坛上询问,而不是堆栈溢出。