anchor.diff:  	    case resumable(IsResumable)
   		andalso (OwnCert == SessionOwnCert)
   		andalso valid_session(Session, SecondLifeTime)
  +		andalso reusable_options(Options, Session)
   		andalso ReuseFun(SuggestedSessionId, PeerCert,
   				 Compression, CipherSuite)
   	    of
  
positive.code:     false;
  resumable(IsResumable) ->
      IsResumable.
  
negative.code: 	[[Id, _]|_] -> Id
      end.
  
  is_resumable(_, _, #ssl_options{reuse_sessions = false}, _, _, _, _) ->
      {false, undefined};
  is_resumable(SuggestedSessionId, Port, #ssl_options{reuse_session = ReuseFun} = Options, Cache,
  	     CacheCb, SecondLifeTime, OwnCert) ->
      case CacheCb:lookup(Cache, {Port, SuggestedSessionId}) of
  	#session{cipher_suite = CipherSuite,
  