0 | module Data.Container.Additive.Extension.Definition
2 | import Data.Container.Base
3 | import Data.Container.Additive.Object.Definition
6 | Ext : AddCont -> Type -> Type
7 | Ext c x = Ext (UC c) x
11 | Path : AddCont -> Type
12 | Path c = (x : c.Shp ** c.Pos x)