From 1c8e0373d735ac88740f96c5da1d929ce3f7b688 Mon Sep 17 00:00:00 2001
From: Michalis Pardalos <m.pardalos@gmail.com>
Date: Sat, 5 Jun 2021 23:17:33 +0100
Subject: Move HTL renaming pass to own file

---
 src/common/Maps.v | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

(limited to 'src/common')

diff --git a/src/common/Maps.v b/src/common/Maps.v
index 21a1d9e..3aa0b33 100644
--- a/src/common/Maps.v
+++ b/src/common/Maps.v
@@ -93,6 +93,22 @@ Definition contains (A: Type) (i: positive) (m: t A) : bool :=
   | Some _ => true
   | None => false
   end.
+End PTree.
 
+Definition max_pc_map {A: Type} (m : Maps.PTree.t A) :=
+  PTree.fold (fun m pc i => Pos.max m pc) m 1%positive.
 
-End PTree.
+Lemma max_pc_map_sound:
+  forall A m pc i, m!pc = Some i -> Ple pc (@max_pc_map A m).
+Proof.
+  intros until i. unfold max_pc_map.
+  apply PTree_Properties.fold_rec with (P := fun c m => c!pc = Some i -> Ple pc m).
+  (* extensionality *)
+  intros. apply H0. rewrite H; auto.
+  (* base case *)
+  rewrite PTree.gempty. congruence.
+  (* inductive case *)
+  intros. rewrite PTree.gsspec in H2. destruct (peq pc k).
+  inv H2. xomega.
+  apply Ple_trans with a. auto. xomega.
+Qed.
-- 
cgit