将＆lt; = b转为suc a＆lt; = suc b

Question

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

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

非常感谢任何帮助。

Answer 1

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