Including entire record when pattern matching records

[smondet]

You mean this?

let find_steve = function
| { id; name } as user when id = "3" or name = "Steve" -> Some user
| _ -> None