propUniverse l x = universeOf l x == map pos (contextsOf l x) propId l x = all (== x) [extract w | w <- contextsOf l x]
contextsOf :: Traversal' a a -> a -> [Context a a a]
contextsOn b ≡ contextsOnOf b plate
contextsOn :: Plated a => Traversal' s a -> s -> [Context a a s]
contextsOnOf :: Traversal' s a -> Traversal' a a -> s -> [Context a a s]