anchor.diff:          else p_appTerm t, None, cat_with_colon (* This choice seems valid (used in p_tmNoEq') *)
       end
   
  -and p_binder is_atomic b =
  -  let b', t', catf = p_binder' is_atomic b in
  -  match t' with
  -  | Some typ -> catf b' typ
  -  | None -> b'
  +and p_refinement aqual_opt binder t phi =
  +  let b, typ = p_refinement' aqual_opt binder t phi in
  +  cat_with_colon b typ
   
   and p_refinement' aqual_opt binder t phi =
     let is_t_atomic =
  
positive.code:   let b, l = all_binders e 0 in
    if b && l > 1 then true else false
  
  let cat_with_colon x y = x ^^ colon ^/^ y
  
  
  
negative.code:     (p_appTerm t ^^
        (jump 2 jump_break (group ((ifflat
          (soft_braces_with_nesting_tight phi) (soft_braces_with_nesting phi))))))
  
  (* TODO : we may prefer to flow if there are more than 15 binders *)
  (* Note: also skipping multiBinder here. *)
  