sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>
On This Page
Reduction.ValueReduction rules for products of values abstractions
type 'a value_reduction_man = {get : 'r. 'r Core.Id.id -> 'a -> 'r;get id pv returns the value of domain with identifier id in the product value pv
set : 'r. 'r Core.Id.id -> 'r -> 'a -> 'a;set id v pv sets the value of domain with identifier id in the product value pv
}Manager for value reduction rules
module type VALUE_REDUCTION = sig ... endval register_value_reduction : (module VALUE_REDUCTION) -> unitRegister a new value reduction
val find_value_reduction : string -> (module VALUE_REDUCTION)Find a value reduction by its name