anchor.diff:    | QForall (bs, trigger, e1)
     | QExists (bs, trigger, e1) ->
         let binders_doc = p_binders true bs in
  -      let term_doc = p_noSeqTerm ps pb e1 in
  +      let term_doc = p_noSeqTermAndComment ps pb e1 in
         //VD: We could dispense with this pattern matching if we removed trailing whitespace after the fact
         (match trigger with
          | [] ->
  
positive.code:         | _ -> str "and"
        in
        let doc_pat = p_letlhs doc_let_or_and (pat, e) in
        let doc_expr = p_term false false e in
        attrs ^^
        (if is_last then
         surround 2 1 (flow break1 [doc_pat; equals]) doc_expr (str "in")
  
negative.code:   | Op ({idText = ".()<-"}, [ e1; e2; e3 ]) ->
        group (
          group (p_atomicTermNotQUident e1 ^^ dot ^^ soft_parens_with_nesting (p_term false false e2)
            ^^ space ^^ larrow) ^^ jump2 (p_noSeqTermAndComment ps pb e3))
    | Op ({idText = ".[]<-"}, [ e1; e2; e3 ]) ->
        group (
          group (p_atomicTermNotQUident e1 ^^ dot ^^ soft_brackets_with_nesting (p_term false false e2)
            ^^ space ^^ larrow) ^^ jump2 (p_noSeqTermAndComment ps pb e3))
    | Requires (e, wtf) ->
        assert (wtf = None);
        group (str "requires" ^/^ p_typ ps pb e)
  