Tezos_raw_protocol_alpha.Script_comparable
val compare_comparable : 'a Script_typed_ir.comparable_ty -> 'a -> 'a -> int
val compare_address : Script_typed_ir.address -> Script_typed_ir.address -> int