Indexing.Sum
module L : CARDINAL
module R : CARDINAL
type n
val n : n cardinal
val inj_l : L.n index -> n index
val inj_r : R.n index -> n index
val prj : n index -> (L.n index, R.n index) either