let constant e = match (Cil.constFold true e).enode with | Const (CInt64(k,_,_)) -> k | _ -> WpLog.fatal "Non-constant expression (%a)" !Ast_printer.d_exp e