anchor.diff:          Orthologs       : Set< ProteinModelInfo<'id,'chromosomeId,'geneLocus> >
           }
   
  -    let createProteinModelInfo id chromosomeId strand geneLocus spliceVariantId seqEquivalents orthologs = {
  +    /// Helper function to create ProteinModelInfo
  +    let private createProteinModelInfo id chromosomeId strand geneLocus spliceVariantId seqEquivalents orthologs = {
           Id               = id
           ChromosomeId     = chromosomeId
           Strand           = strand
  
positive.code:         Orthologs        = Set.ofSeq orthologs
          }       
  
      type ProteinModel<'id,'chromosomeId,'geneLocus,'sequence when 'id: comparison and 'chromosomeId: comparison and 'geneLocus: comparison and 'sequence: comparison> = {
          ProteinModelInfo : ProteinModelInfo<'id,'chromosomeId,'geneLocus>
          Sequence : 'sequence 
          }
  
      
      let createProteinModel proteinModelInfo sequence = 
          {ProteinModelInfo=proteinModelInfo;Sequence=sequence}
      
  
      type PeptideEvidenceClass = 
          | Unknown   = 0
          | C1a       = 1
          | C1b       = 2
          | C2a       = 3
          | C2b       = 4
          | C3a       = 5
          | C3b       = 6
  
      
      let createPeptideProteinRelation digest (protModels:seq<ProteinModel<'id,'chromosomeId,'geneLocus,'sequence> option>) =
          let ppRelation = BidirectionalDictionary<'sequence,ProteinModelInfo<'id,'chromosomeId,'geneLocus>>()
          protModels            
  
negative.code: namespace BioFSharp
  
  ///Contains functions to classify peptides based on their specificity when mapped to proteins
  module PeptideClassification =
      
      open FSharpAux
      open System.Collections.Generic
  
      ///Direction of strand
      type StrandDirection =
          | Forward = 0
          | Reverse = 1
  
      /// Contains information about protein used to deduce its relation to other proteins
      type ProteinModelInfo<'id,'chromosomeId,'geneLocus when 'id: comparison and 'chromosomeId: comparison and 'geneLocus: comparison> = {
          Id              : 'id
          ChromosomeId    : 'chromosomeId
  