view src/MetaCodeSegment.agda.replaced @ 2:0d85c5be9fb6

fix miss
author soto@cr.ie.u-ryukyu.ac.jp
date Tue, 08 Sep 2020 18:43:57 +0900
parents 73127e0ab57c
children
line wrap: on
line source

data CodeSegment {l1 l2 : Level} (A : Set l1) (B : Set l2) : Set (l @$\sqcup$@ l1 @$\sqcup$@ l2) where
  cs : {{_ : DataSegment A}} {{_ : DataSegment B}}
        @$\rightarrow$@ (A @$\rightarrow$@ B) @$\rightarrow$@ CodeSegment A B