Do not escape active pattern names

Fix #740.
FSI for `let (|Pattern1|_|) (_: int) = None` shows `val ( |Pattern1|_| ) : int -> 'a option`

So I think `DisplayName` is preferable here.