Module Patterns.Half_simple
type view = [ | Patterns.Simple.view| `Or of Typedtree.pattern * Typedtree.pattern * Types.row_desc option
]type pattern = Patterns.Half_simple.view Typedtree.pattern_dataPatterns.Half_simpletype view = [ | Patterns.Simple.view| `Or of Typedtree.pattern * Typedtree.pattern * Types.row_desc option ]type pattern = Patterns.Half_simple.view Typedtree.pattern_data