agdainstance
import Categorical.Raw as C
open ≈-Reasoning
open import Relation.Binary.PropositionalEquality hiding (sym; refl)
logicH : LogicH _⇨_ _↠_ q
logicH = record
{ F-false = Fₘ-f∘ε≈β∘f false
; F-true = Fₘ-f∘ε≈β∘f true
_<_>_
という関数