Module Qcert.Utils.BindingsNat

This module provides support for bindings where the key is a natural number.

Require Import Arith.
Require Import NPeano.
Require Import Bindings.

Section BindingsNat.

  Global Program Instance ODT_nat : (@ODT nat)
    := mkODT _ _ lt Nat.lt_strorder lt_dec Nat.compare _.

Next Obligation.

    simpl.
    apply Nat.compare_spec.
  Qed.

End BindingsNat.

Global Hint Unfold rec_sort rec_concat_sort : qcert.
Global Hint Resolve drec_sort_sorted drec_concat_sort_sorted : qcert.
Global Hint Resolve is_list_sorted_NoDup_strlt : qcert.