data CompatibleVars : SnocList a -> SnocList a -> TypePre : CompatibleVars xs xsExt : CompatibleVars xs ys -> CompatibleVars (xs :< n) (ys :< m)invertExt : CompatibleVars (xs :< n) (ys :< m) -> CompatibleVars xs ysextendCompats : (args : SnocList a) -> CompatibleVars xs ys -> CompatibleVars (xs ++ args) (ys ++ args)decCompatibleVars : (xs : SnocList a) -> (ys : SnocList a) -> Dec (CompatibleVars xs ys)areCompatibleVars : (xs : SnocList a) -> (ys : SnocList a) -> Maybe (CompatibleVars xs ys)