let key hk = match hk with | Hdecl v -> Key.VarDecl v | Hstmt sid -> Key.Stmt (fst (Kernel_function.find_from_sid sid)) | Hlabel (sid,l) -> Key.Label (sid,l)