		Search-engine friendly clone of the ACL2 documentation.

Omaps

Head-key

Signature
(head-key map) → *
Arguments: map — Guard (mapp map).

Definitions and Theorems

Function: head-key

(defun head-key (map)
  (declare (xargs :guard (mapp map)))
  (declare (xargs :guard (not (empty map))))
  (let ((__function__ 'head-key))
    (declare (ignorable __function__))
    (mv-let (key val)
            (head map)
      (declare (ignore val))
      key)))