anchor.diff:                                      (RQuery(query),Conn(id,c))
                           | Handshake.InFinished(hs) ->
                                   (* Ensure we are in Finishing state *)
  -                                match x with
  +                                match c_read.disp with
                                       | Finishing ->
                                           let c = {c with read = c_read;
                                                           handshake = hs} in
  
positive.code:                                 // KB: To Fix                        
                                  //Pi.assume (GState(id,c));  
                                  (* Ensure we are in Finishing state *)
                                      match x with
                                      | Finishing ->
                                              (* Sanity check: in and out session infos should be the same *)
                                          if epochSI(id.id_in) = epochSI(id.id_out) then
  
negative.code:                                     | _ -> let closed = closeConnection (Conn(id,c)) in (RError(EInternal(Dispatcher,InvalidState)),closed) (* TODO: We might want to send some alert here. *)
                          | Handshake.InError(x,y,hs) -> let c = {c with handshake = hs} in (RError(EInternal(x,y)),Conn(id,c)) (* TODO: we might need to send some alerts *)
  
                    | (Change_cipher_spec, FirstHandshake(_)) | (Change_cipher_spec, Open) ->
                          match Handshake.recv_ccs id c.handshake rg f with 
                            | InCCSAck(nextID,nextR,hs) ->
                                let nextRCS = Record.initConnState nextID.id_in nextR in
  