A formally verified idris program that evaluates executions for finite state machines (FSM) and Petri nets.
The program uses the input provided to build the underlying (hyper)graph of a FSM (Petri net), and generates the (monoidal) free category on it using idris-ct. It then uses the initial state and path provided in the execution (call them x and [x1, ... , xn], respectively) to evaluate the composition idx;x1;...;xn. It returns success or error depending if this defines a valid morphism in the (monoidal) free category or not.
The project uses Typedefs to encode types, which are serialized/deserialized in/from JSON.
We use elba to download dependencies and compile the binary, just type:
$ elba install
This will install the binary in elba's binary folder. Typically ~/.elba/bin if this folder is in your path you can simply call fsm-oracle to test it out.
You can find elba and instructions on how to install it on the official repository.
To evaluate a Petri net, just put your input (as specified below) in a file, for example input.JSON, and run:
fsm-oracle -p input.json
If instead you want to evaluate a FSM, run:
fsm-oracle --fsm input.json
If the execution is valid, Idris will return a json output of the following form:
{
"_0": {}
}If the execution produces an error, the output will be:
{
"_1": {
"inn" : {
"_x": {}
}
}
}Where x denotes an error code according to the following table:
| Error Code | Description |
|---|---|
0 |
The specification is invalid. |
1 |
The initial state is invalid. |
2 |
The path is invalid. |
3 |
Input cannot be parsed as JSON. |
4 |
Filesystem error: File cannot be read. |
Input has to be fed as JSON, and is converted to Idris terms and types through the use of Typedefs. The Idris types for Petri net executions are defined in the file PetriFormat.idr, while the ones for the FSM case are defined in FSMFormat.idr.
Overall, an input as to be passed by giving the following JSON:
{
"_0": spec
"_1": state
"_2": path
}where spec, state and path are defined below.
This will be parsed into a term having type PetriExec. This is a record consisting of a three things: A term of type PetriSpec k, one of type PetriState spec and one of type
PetriPath (Places spec) k.
Internally, specifications have type of PetriSpec k, which is a type depending on a natural number k. It is a record consisting of Places, of type Nat, and Edges, of type Vect k (List (Fin Places), List (Fin Places)). Places enumerates the number of places in the net, while Edges consists of k pairs (List (Fin Places), List (Fin Places)). Each pair represents an edge, with the first component listing its input places, and the second component listing its output places.
A specification is passed to the oracle using JSON, and representing vertexes and edges as lists of pairs. For instance, consider
{
"_0": 5,
"_1": [
{"_0": [0], "_1":[]},
{"_0" : [1,1,1], "_1" : [0,2,3]},
{"_0": [2,3,3], "_1" : [4]},
{"_0": [1], "_1" : [4,3]},
{"_0": [4,4,4], "_1": [4]},
{"_0": [], "_1" : [4,4]}
]
}This piece of JSON defines what has to be put in place of spec in
{
"_0": spec
"_1": state
"_2": path
}It specifies the Petri net of type PetriSpec 6, having:
5vertexes, enumerated0,1,2,3,46transitions: One going from0to nothing (no outputs), one going from1,1,1to0,2,3, and so on. You can denote transitions that produce more than one token in the same place by just repeating the token itself, as in{"_0": [2,3,3], "_1" : [4]}in the example above. Similarly, an empty list signifies empty inputs or outputs.
Notice that the k parameter in PetriSpec k is automatically
inferred at runtime by parsing the length of the edgelist.
For instance, in the example above the inferred parameter is 6, since the list
[
{"_0": [0], "_1":[]},
{"_0" : [1,1,1], "_1" : [0,2,3]},
{"_0": [2,3,3], "_1" : [4]},
{"_0": [1], "_1" : [4,3]},
{"_0": [4,4,4], "_1": [4]},
{"_0": [], "_1" : [4,4]}
]has 6 entries.
The edgelist given at runtime has to be in range as specified by the number of vertexes. Failing to do so produces a type mismatch. As such, a specification such as
{
"_0": 5,
"_1": [
{"_0": [5], "_1":[]}
]
}is invalid (input of the first transition is not in range), and will produce an error.
Internally, a starting state has type PetriState spec, that is defined to be List (Fin (Places spec)), with spec having type PetriSpec k for some k. This specifies an initial list of places from which the computation has to start. For instance, [3,4,4,1] means "a token in 3, two in 4, one in 1".
In json, this is just specified using list notation. For instance, [3,4,4,1] can be put in place of state in
{
"_0": spec
"_1": state
"_2": path
}Again, the initial state specified in the input has to be in range as specified by the number of vertexes in PetriSpec. So, for instance, [4,2,0] is a valid state for the spec example in the previous section, while [5] is not, and will produce an error.
Internally, a path has type PetriPath places k. This is used to define a type Tree (Fin places) (Fin k), where places and k represent the number of places and transitions given in a specification. A path consists in a tree indexed by two natural numbers o and m
data Tree o m = Tensor (Tree o m) (Tree o m)
| Sequence (Tree o m) (Tree o m)
| Sym o o
| Id o
| Mor m
The following defines a valid input:
{
"_0": {
"_0": 5,
"_1": [
{"_0": [0], "_1":[]},
{"_0" : [1,1,1], "_1" : [0,2,3]},
{"_0": [2,3,3], "_1" : [4]},
{"_0": [1], "_1" : [4,3]},
{"_0": [4,4,4], "_1": [4]},
{"_0": [], "_1" : [4,4]}
]
},
"_1": [0],
"_2": {
"inn": {
"_3": 0
}
}
}Instead, the following defines an invalid input:
{
"_0": {
"_0": 1,
"_1": []
},
"_1": [],
"_2": {
"inn": {
"_1": {
"_1": {
"_1": {
"_0": 0
}
}
}
}
}
}For FSMs, the internal input format is a term of type FSMExec, and is of the form
(FSMSpec, FSMState, FSMPath). It consists of three things: A specification of the FSM on which executions are run (FSMSpec), an initial state (FSMState), and a list of actions to evaluate (FSMPath).
This is fed exactly as we do for Petri nets, using the JSON:
{
"_0": spec
"_1": state
"_2": path
}For FSMs, though, the definition of spec, state and path are different, and given below:
The type of FSMSpec is (Nat,List (Nat Nat)): The FSM is specified as a pair, where the first component denotes the number of states (vertexes) of the FSM, while the second is a list of pairs of vertexes (edgelist) denoting the possible actions.
For instance, (5,[(2,1),(4,2),(0, 3)]) specifies a FSM having 5 vertexes, enumerated 0,1,2,3,4, and three possible actions: One going from 2 to 1, one going from 4 to 2 and one going from 0 to 3.
A specification is passed to the oracle using JSON, and representing vertexes and edges as lists of pairs. For instance, consider
"_0": 5,
"_1": [
{
"input": 2,
"output": 1
},
{
"input": 4,
"output": 2
},
{
"input": 0,
"output": 3
}]This piece of JSON defines what has to be put in place of spec in
{
"_0": spec
"_1": state
"_2": path
}The edgelist has to be in range as specified by the number of vertexes. As such, specifications such as (5,[(7,1),(4,2),(0, 3)])
or (5,[(5,5)]) are considered invalid and will produce an error.
The type of FSMState is Nat. This specifies an initial vertex from which the computation has to start. In the JSON input we represent it just as it is.
Hence, any natural number can be put in place of state in the JSON:
{
"_0": spec
"_1": state
"_2": path
}The initial state has to be in range as specified by the number of vertexes in FSMSpec. So, for instance, 4 is a valid state for the FSM (5,[(2,1),(4,2),(0, 3)]), while 5 is not, and will produce an error.
The type of FSMPath is List Nat. It specifies a computation to evaluate.
In JSON we represent it just as a list. As such, any list of natural numbers can be put in place of path in the JSON:
{
"_0": spec
"_1": state
"_2": path
}Each number in the list has to be in range as specified by the length of the edgelist in FSMSpec. As such, [1,0] is a valid path for the FSM (5,[(2,1),(4,2),(0, 3)]) (indicating to first use the action going from 4 to 2 and then the one going from 2 to 1), while [3] is not.
The following define valid inputs:
((5, [(1,1),(3,4),(2,1)]) , 3, [1])
((5, [(1,1),(1,1),(2,1)]) , 2, [2,1,0])
The following define invalid inputs:
Invalid FSMSpec:
((5, [(1,1),(5,4),(2,1)]) , 2, [2,0,1])
Invalid FSMState:
((5, [(1,1),(3,4),(2,1)]) , 6, [2,1,0])
Invalid FSMPath:
((3,[]), 1, [1])
Unless explicitly stated otherwise all files in this repository are licensed under the GNU Affero General Public License.
Copyright © 2020 Stichting Statebox.