anchor.diff:      let coreEnums = Assembly.GetAssembly(typeof<Index>).GetTypes()
                       |> Seq.filter (fun t -> t.IsSubclassOf(typeof<Enum>))
                       |> Seq.filter isNotInternal
  +                    |> Seq.filter (fun t -> t.DeclaringType = null)
                       |> Seq.sortBy (fun t -> t.Name)
   
       // Execute the actual validation
  
positive.code: // ----------------------------------------------------------------------------
  module SigDocValidator =
      open MessageHelpers
  
      // Validation helpers
      type ValErr<'T,'U> =
  
negative.code:                 | SameLength(expected,given) -> 
                      sprintf 
                          "Expected length to be equal to %d, but found %d.\nGiven list:%A\nExpected List:%A" 
                          (expected |> Seq.length) (given |> Seq.length) (printSeq given) (printSeq expected)
                  | NotEmpty(_,context) -> sprintf "The given string should not be empty:%A" context
                  | InList(item,list) -> sprintf "The given item '%A' is not in the list: %A" item (printSeq list)
                  |> caseToMsg this
  
      let isEqual given expected context = 
  