Re: [Agda] ... n ∸ m > 0
Andrés Sicard-Ramírez
asr at eafit.edu.co
Tue Jan 13 19:30:30 CET 2015
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)
--
Andrés
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.chalmers.se/pipermail/agda/attachments/20150113/615bb36e/attachment.html
More information about the Agda
mailing list