anchor.diff:                  |> List.map (fun p -> match p.Name with Some name -> name.Length | None -> p.DisplayName.Length)
               match allLengths with
               | [] -> 0
  -            | l -> l |> List.max
  +            | l -> l |> List.maxUnderThreshold maxPadding
   
           let formatName indent padding (parameter:FSharpParameter) =
               let name = match parameter.Name with Some name -> name | None -> parameter.DisplayName
  
positive.code: 
  
  module SymbolTooltips =
  
      type NestedFunctionParams =
      | GenericParam of FSharpGenericParameter
      | TupleParam of IList<FSharpType>
  
negative.code:         | many ->
                let allParamsLengths =
                    many |> List.map (List.map (fun p -> (p.Type.Format displayContext).Length) >> List.sum)
                let maxLength = (allParamsLengths |> List.maxUnderThreshold maxPadding)+1
  
                let parameterTypeWithPadding (p: FSharpParameter) length =
                    escapeText (p.Type.Format displayContext) + (String.replicate (if length >= maxLength then 1 else maxLength - length) " ")
  
                let allParams =
                    List.zip many allParamsLengths
  