anchor.diff:                      connectDigestedPeptides (currentPeptide::acc) digestedPeptidesA (fstPepIdx+1) (lastPepIdx+1) currentMissCleavages
           
               minToMaxMissCleavagesL
  -            |> List.collect (fun x -> (connectDigestedPeptides [] digestedPeptidesA 0 x x)) 
  +            |> List.collect (fun x -> (connectDigestedPeptides [] digestedPeptides 0 x x)) 
               |> Array.ofList
   
       ///Contains frequently needed proteases
  
positive.code:                         yield (tmp.[prefixLength].Value,tmp)
                          }
  
          ///Cuts AminoAcid sequence at each place, where the sequence fits the cutting pattern of the protease. Returns sequence of resulting AminoAcid sequences
          let digest (protease:Protease) proteinID (aas:seq<AminoAcid>) =
              let groupAfter f (input:seq<_>) =     
  
negative.code: 
  
  
          /// Returns Sequence of DigestedPeptides including those resulting of one or more Misscleavage events.
          let concernMissCleavages (minMissCleavages:int) (maxMisscleavages:int) (digestedPeptides:(DigestedPeptide<'a>) []) =
              if digestedPeptides = [||] then [||]
              else
              let lengthOfPeptideL = digestedPeptides.Length
              let minToMaxMissCleavagesL = [minMissCleavages.. maxMisscleavages]
              let rec connectDigestedPeptides acc (digestedPeptidesA: DigestedPeptide<'a> []) (fstPepIdx:int)  (lastPepIdx:int) currentMissCleavages =
                  if lengthOfPeptideL < lastPepIdx then acc
  