[Agda] ... n ∸ m > 0

Sergei Meshveliani mechvel at botik.ru
Tue Jan 13 20:47:51 CET 2015


On Tue, 2015-01-13 at 13:30 -0500, Andrés Sicard-Ramírez wrote:
> 
> On 13 January 2015 at 12:47, Sergei Meshveliani <mechvel at botik.ru>
> wrote:
>         Thank you.
>         Indeed:
>         
>          m<n→n∸m>0 {0}     {suc n} _             =  suc>0
>          m<n→n∸m>0 {0}     {0}     ()
>          m<n→n∸m>0 {suc m} {suc n} (s≤s suc-m≤n) =  m<n→n∸m>0 {m} {n}
>         suc-m≤n
> 
> ​A version using only two equations:
> 
> ​m<n→n∸m>0 : ∀ {m n} → m < n → n ∸ m > 0
> m<n→n∸m>0 (s≤s z≤n)     = s≤s z≤n
> m<n→n∸m>0 (s≤s (s≤s h)) = m<n→n∸m>0 (s≤s h)
> 

Great! Thank you.

------
Sergei




More information about the Agda mailing list