-- 上で各 DataSegement の定義を行なっているとする
open import subtype Context as N    -- Meta Datasegment を定義

-- Meta DataSegment を持つ Meta Meta DataSegment を定義できる
record Meta : Set where
  field
    context : Context
    c'      : Int
    next    : N.CodeSegment Context Context

open import subtype Meta as M
-- 以下よりメタメタレベルのプログラムを記述できる