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