anchor.diff:              #endif
   
               let result, _, _ =
  -                let head, stream = AvlTree.extractMin stream
  +                let head, stream = AvlTree.ExtractMin stream
                   inter' input (Some head) stream
   
               #if DEBUG
  
positive.code:     let inline union set1 set2 =
          CharSet.Union (set1, set2)
  
  
negative.code:     let rec comparison (t1 : CharDiet) (t2 : CharDiet) =
          match t1, t2 with
          | Node (_,_,_,_), Node (_,_,_,_) ->
              let (ix1, iy1), r1 = AvlTree.ExtractMin t1
              let (ix2, iy2), r2 = AvlTree.ExtractMin t2
              let c =
                  let d = compare ix1 ix2
                  if d <> 0 then -d
  