Re: [Agda] Function.Equivalence._⇔_

Andrés Sicard-Ramírez andres.sicard.ramirez at gmail.com
Thu Oct 24 21:43:21 CEST 2013


On 24 October 2013 14:15, Sergei Meshveliani <mechvel at botik.ru> wrote:

> I manage to build a value in  A ⇔ B  by applying the function
>  Equiv.equivalence.
> But, for example, having
>                   e  :  m≤n ⇔ suc-m≤suc-n
>
> how to extract    to :  m ≤ n → suc m ≤ suc n
> from  e  ?
>

Using auto (C-c C-a) I got:

open import Function.Equivalence
open import Function.Equality

foo : {A B : Set} → A ⇔ B → A → B
foo h = _⟨$⟩_ (Equivalence.to h)

-- 
Andrés
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.chalmers.se/pipermail/agda/attachments/20131024/82db6196/attachment.html


More information about the Agda mailing list