anchor.diff:        | Module _ | ActivePatternCase | Record _ | Union _ | TypeAbbreviation | Class _ -> style.UserTypes
         | Namespace _ -> style.PlainText
         | Property fromDef -> if fromDef then style.UserPropertyDeclaration else style.UserPropertyUsage
  -      | Field fromDef -> if fromDef then style.UserFieldDeclaration else style.UserFieldUsage
  +      | Field (fromDef,isMut) ->
  +        if isMut then style.UserTypesMutable
  +        elif fromDef then style.UserFieldDeclaration
  +        else style.UserFieldUsage
  +
         | Function fromDef -> if fromDef then style.UserMethodDeclaration else style.UserMethodUsage
  -      | Val fromDef -> if fromDef then style.UserFieldDeclaration else style.UserFieldUsage
  +      | Val (fromDef,isMut) ->
  +        if isMut then style.UserTypesMutable
  +        elif fromDef then style.UserFieldDeclaration
  +        else style.UserFieldUsage
  +
         | UnionCase | Enum _ -> style.UserTypesEnums
         | Delegate _ -> style.UserTypesDelegates
         | Event fromDef -> if fromDef then style.UserEventDeclaration else style.UserEventUsage
  
positive.code:     match ts with
      | IdentifierSymbol symbolUse -> 
        match symbolUse with
        | SymbolUse.Val _ -> Some symbolUse.IsFromDefinition
        | _ -> None
      | _ -> None
    
  
negative.code:     
      let tokenSymbol = 
        { TokenInfo = token; SymbolUse = symbol; ExtraColorInfo = extraColor }
  
      let chunkStyle =
        match tokenSymbol with
        | InactiveCode -> style.ExcludedCode
  