method class_expr : class_expr -> class_expr =
function
| CeNil _x -> let _x = o#loc _x in CeNil _x
| CeApp (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#class_expr _x_i1 in
let _x_i2 = o#expr _x_i2 in CeApp (_x, _x_i1, _x_i2)
| CeCon (_x, _x_i1, _x_i2, _x_i3) ->
let _x = o#loc _x in
let _x_i1 = o#virtual_flag _x_i1 in
let _x_i2 = o#ident _x_i2 in
let _x_i3 = o#ctyp _x_i3
in CeCon (_x, _x_i1, _x_i2, _x_i3)
| CeFun (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#patt _x_i1 in
let _x_i2 = o#class_expr _x_i2
in CeFun (_x, _x_i1, _x_i2)
| CeLet (_x, _x_i1, _x_i2, _x_i3) ->
let _x = o#loc _x in
let _x_i1 = o#rec_flag _x_i1 in
let _x_i2 = o#binding _x_i2 in
let _x_i3 = o#class_expr _x_i3
in CeLet (_x, _x_i1, _x_i2, _x_i3)
| CeStr (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#patt _x_i1 in
let _x_i2 = o#class_str_item _x_i2
in CeStr (_x, _x_i1, _x_i2)
| CeTyc (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#class_expr _x_i1 in
let _x_i2 = o#class_type _x_i2
in CeTyc (_x, _x_i1, _x_i2)
| CeAnd (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#class_expr _x_i1 in
let _x_i2 = o#class_expr _x_i2
in CeAnd (_x, _x_i1, _x_i2)
| CeEq (_x, _x_i1, _x_i2) ->
let _x = o#loc _x in
let _x_i1 = o#class_expr _x_i1 in
let _x_i2 = o#class_expr _x_i2
in CeEq (_x, _x_i1, _x_i2)
| CeAnt (_x, _x_i1) ->
let _x = o#loc _x in
let _x_i1 = o#string _x_i1 in CeAnt (_x, _x_i1)