data CodeSegment {l1 l2 : Level} (I : Set l1) (O : Set l2) : Set (l @$\sqcup$@ l1 @$\sqcup$@ l2) where
  cs : (I @$\rightarrow$@ O) @$\rightarrow$@ CodeSegment I O