def taken
import bendvy-ecs-core@0.1.0.3/resource_field.bend as ResourceFieldimport Base
import bendvy-ecs-core@0.1.0.3/owner_product.bend as Product
8def taken(~R:Type,~P:Type,~Rest:Type,~V:Data,~lens:Product.Lens<R,P,Rest>,~view:P -> P & V,result:Rest & P) -> R & V:
9 match result:
10 case (rest,part):viewed(~R,~P,~Rest,~V,~lens,rest,view(part))