車削一個<= b鍵SUC一個<= SUC b

Question

這是問題的擴展張貼在這裏：

Agda and Binary Search Trees

我有

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

用於trans₁定義，但這需要我將下面的加寬的定義更改爲：

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 < = s構造函數的小於或等於關係。請在課程論壇上詢問，而不是堆棧溢出。