sig val lower_case : Parsetree.expression -> Parsetree.expression val genr_rule : Parsetree.pattern -> Parsetree.expression -> Code.clause end