summaryrefslogtreecommitdiff
path: root/tests/coq/misc/PoloniusList.v
diff options
context:
space:
mode:
authorSon Ho2022-11-15 15:23:16 +0100
committerSon HO2022-11-16 15:45:32 +0100
commitbd5706896dec0a1aef1accdf51f93af00c5dc6fe (patch)
tree09dd5431d351c8ef894092ea25fd9d2af54d3d6e /tests/coq/misc/PoloniusList.v
parentdbb5d549176edd60440e689fd28c529944bc6e51 (diff)
Improve formatting
Diffstat (limited to 'tests/coq/misc/PoloniusList.v')
-rw-r--r--tests/coq/misc/PoloniusList.v10
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/coq/misc/PoloniusList.v b/tests/coq/misc/PoloniusList.v
index 6d6ea537..a45c77c5 100644
--- a/tests/coq/misc/PoloniusList.v
+++ b/tests/coq/misc/PoloniusList.v
@@ -4,7 +4,7 @@ Require Import Primitives.
Import Primitives.
Require Import Coq.ZArith.ZArith.
Local Open Scope Primitives_scope.
-Module PoloniusList .
+Module PoloniusList.
(** [polonius_list::List] *)
Inductive List_t (T : Type) :=
@@ -12,8 +12,8 @@ Inductive List_t (T : Type) :=
| ListNil : List_t T
.
-Arguments ListCons {T} _ _ .
-Arguments ListNil {T} .
+Arguments ListCons {T} _ _.
+Arguments ListNil {T}.
(** [polonius_list::get_list_at_x] *)
Fixpoint get_list_at_x_fwd (ls : List_t u32) (x : u32) : result (List_t u32) :=
@@ -24,7 +24,7 @@ Fixpoint get_list_at_x_fwd (ls : List_t u32) (x : u32) : result (List_t u32) :=
else (l <- get_list_at_x_fwd tl x; Return l)
| ListNil => Return ListNil
end
- .
+.
(** [polonius_list::get_list_at_x] *)
Fixpoint get_list_at_x_back
@@ -36,6 +36,6 @@ Fixpoint get_list_at_x_back
else (tl0 <- get_list_at_x_back tl x ret; Return (ListCons hd tl0))
| ListNil => Return ret
end
- .
+.
End PoloniusList .