fact: Record OneOf (ts : pmap Type) : Type := mkOneOf { index : positive ; value : match pmap_lookup' ts index with | None => Empty_set | Some T => T end }.
imports: Coq(PArith) ExtLib.Data.Map.FMapPositive ExtLib.Data.Eq ExtLib.Tactics.Injection Coq(PArith)