feat(cmp): Proved correctness of mpn_cmp.

2025-06-11 16:54:36 +08:00
parent 4c0b0e98fa
commit 36204b8877
7 changed files with 824 additions and 18 deletions
--- a/projects/lib/GmpAux.v
+++ b/projects/lib/GmpAux.v
@ -101,6 +101,17 @@ Proof.
    reflexivity.
 Qed.

+Lemma list_app_single_l: forall (l: list Z) (a: Z),
+  ([a] ++ l)%list = a :: l.
+Proof.
+  intros.
+  induction l.
+  + simpl; reflexivity.
+  + rewrite list_app_cons.
+    simpl.
+    reflexivity.
+Qed.
+
 Lemma store_array_rec_false: forall x storeA lo hi (l: list Z),
  lo > hi ->
  store_array_rec storeA x lo hi l |-- [| False |].