Module `Cmm_peephole_engine.Syntax`

val (=>) : 
  Cmm_peephole_engine.cmm_pattern ->
  (Cmm_peephole_engine.Env.t -> 'a) ->
  'a Cmm_peephole_engine.clause

Constructor for clauses: lhs => rhs

val (#.) : 
  Cmm_peephole_engine.Env.t ->
  'a Cmm_peephole_engine.pattern_var ->
  'a

Environment accessor: env#.var

Module Cmm_peephole_engine.Syntax