pl/frap
1
0
Fork 0
mirror of https://github.com/achlipala/frap.git synced 2024-09-19 19:57:13 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Harmonize inductive-definition convention

Browse source
This commit is contained in:
Adam Chlipala 2016-02-16 11:41:30 -05:00
parent 0123f45d21
commit 33d01606bf
2 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
TransitionSystems.v
View file

@ -301,12 +301,12 @@ Qed.
* kinds of *local*state* in a thread:
* - program counter
* - values of local variables that may be ready eventually *)
Inductive increment_program : Set :=
| Lock : increment_program
| Read : increment_program
| Write : nat -> increment_program
| Unlock : increment_program
| Done : increment_program.
Inductive increment_program :=
| Lock
| Read
| Write (local : nat)
| Unlock
| Done.
(* Next, a type for state shared between threads. *)
Record inc_state := {

12
TransitionSystems_template.v
View file

@ -203,12 +203,12 @@ Qed.
* kinds of *local*state* in a thread:
* - program counter
* - values of local variables that may be ready eventually *)
Inductive increment_program : Set :=
| Lock : increment_program
| Read : increment_program
| Write : nat -> increment_program
| Unlock : increment_program
| Done : increment_program.
Inductive increment_program :=
| Lock
| Read
| Write (local : nat)
| Unlock
| Done.
(* Next, a type for state shared between threads. *)
Record inc_state := {