anchor.diff:      (p_appTerm t ^^
         (jump 2 jump_break (group ((ifflat
           (soft_braces_with_nesting_tight phi) (soft_braces_with_nesting phi))))))
  -
  -and p_refinement aqual_opt binder t phi =
  -  let b, typ = p_refinement' aqual_opt binder t phi in
  -  cat_with_colon b typ
   
   (* TODO : we may prefer to flow if there are more than 15 binders *)
   (* Note: also skipping multiBinder here. *)
  
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:         else p_appTerm t, None, cat_with_colon (* This choice seems valid (used in p_tmNoEq') *)
      end
  
  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 =
  