From 925f6ae9d1b7a1a893960740fb9ffc0c2c52aa27 Mon Sep 17 00:00:00 2001 From: Sylvain Boulmé Date: Fri, 16 Oct 2020 18:37:36 +0200 Subject: replace exec_body_simulation_star' by exec_body_simulation_plus_gen --- kvx/lib/IterList.v | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'kvx') diff --git a/kvx/lib/IterList.v b/kvx/lib/IterList.v index b9eb5922..49beb1c5 100644 --- a/kvx/lib/IterList.v +++ b/kvx/lib/IterList.v @@ -82,4 +82,15 @@ Proof. destruct (le_lt_dec n (List.length l)); try omega. intros; exploit (iter_tail_inject1 n (length l) l); try omega. rewrite iter_tail_reach_nil. auto. -Qed. \ No newline at end of file +Qed. + +Lemma list_length_z_nat (A: Type) (l: list A): list_length_z l = Z.of_nat (length l). +Proof. + induction l; auto. + rewrite list_length_z_cons. simpl. rewrite Zpos_P_of_succ_nat. omega. +Qed. + +Lemma list_length_nat_z (A: Type) (l: list A): length l = Z.to_nat (list_length_z l). +Proof. + intros; rewrite list_length_z_nat, Nat2Z.id. auto. +Qed. -- cgit