anchor.diff:              )     
           gLocusToSplVarNr    
   
  -
  +    ///Assigns a PeptideEvidenceClass to the peptide by using the information given through lookup and proteinInfos
       let classify (lookUp:Dictionary<'geneLocus,int>) (peptide,proteinInfos:seq<ProteinModelInfo<_,_,'geneLocus>>) =
       
           let isGeneUnambiguous (pmi:seq< ProteinModelInfo<'id,'chromosomeId,'geneLocus> >) =
  
positive.code: namespace BioFSharp
  
  ///Contains functions to classify peptides by their 
  module PeptideClassification =
      
      open FSharpAux
      open System.Collections.Generic
  
      type StrandDirection =
          | Forward = 0
          | Reverse = 1
  
      
      type ProteinModelInfo<'id,'chromosomeId,'geneLocus when 'id: comparison and 'chromosomeId: comparison and 'geneLocus: comparison> = {
          Id              : 'id
          ChromosomeId    : 'chromosomeId
  
negative.code:         Orthologs       : Set< ProteinModelInfo<'id,'chromosomeId,'geneLocus> >
          }
  
      /// Helper function to create ProteinModelInfo
      let private createProteinModelInfo id chromosomeId strand geneLocus spliceVariantId seqEquivalents orthologs = {
          Id               = id
          ChromosomeId     = chromosomeId
          Strand           = strand
  