OwnerProduct.inward: def of bendvy-ecs-core@0.1.0.3
Import: import bendvy-ecs-core@0.1.0.3/owner_product.bend as OwnerProduct
Lines 39-41 of bendvy-ecs-core@0.1.0.3/owner_product.bend: https://jend.leeeet.dev/read.txt?path=bendvy-ecs-core@0.1.0.3/owner_product.bend&start_line=39&end_line=41

import Base

def inward(~W:Type,~M:Type,~A:Type,~P:Type,~B:Type,~inner:Lens<M,P,B>,observed:A & M) -> (A & B) & P:
  match observed:
    case (rest,middle):joined(~A,~B,~P,rest,get_field(~M,~P,~B,inner)(middle))

Uses (5):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Pair
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Sigma
  https://jend.leeeet.dev/definition.txt?path=bendvy-ecs-core@0.1.0.3/owner_product.bend&name=Lens
  https://jend.leeeet.dev/definition.txt?path=bendvy-ecs-core@0.1.0.3/owner_product.bend&name=get_field
  https://jend.leeeet.dev/definition.txt?path=bendvy-ecs-core@0.1.0.3/owner_product.bend&name=joined