Module FormalML.lib_utils.LibUtilsBindingsNat

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

Require Import Arith.
Require Import NPeano.
Require Import LibUtilsBindings.

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.

Hint Unfold rec_sort rec_concat_sort : fml.
Hint Resolve drec_sort_sorted drec_concat_sort_sorted : fml.
Hint Resolve is_list_sorted_NoDup_strlt : fml.