Module RegisterShift.E

type key = Lang.lfun
type data = shift
val name : string
val compare : key -> key -> int
val pretty : Stdlib.Format.formatter -> key -> unit