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)