surete tp1

surete/tp1/temp_prop/after.ec

@@ -0,0 +1,13 @@
+node after
+  (a: bool)
+returns
+  (o: bool);
+
+var
+  V4_prev_o: bool;
+
+let
+  o = (V4_prev_o or a);
+  V4_prev_o = (false -> (pre o));
+tel
+

surete/tp1/temp_prop/always_since.ec

@@ -0,0 +1,14 @@
+node always_since
+  (a: bool;
+  b: bool)
+returns
+  (o: bool);
+
+var
+  V9_prev_o: bool;
+
+let
+  o = (if b then a else (V9_prev_o and a));
+  V9_prev_o = (false -> (pre o));
+tel
+

surete/tp1/temp_prop/build.sh

@@ -0,0 +1,15 @@
+#!/bin/sh
+set -e
+cd "$(dirname "$(realpath "$0")")"
+
+
+if [ $# -lt 1 ]
+then echo "Usage: ./build.sh <node>" && exit 1
+fi
+
+
+node="$1"
+src=./nodes.lus
+
+
+luciole $src "$node"

surete/tp1/temp_prop/nodes.lus

@@ -0,0 +1,30 @@
+
+node after (a: bool) returns (o: bool);
+var prev_o: bool;
+let
+  prev_o = false -> pre o;
+  o = prev_o or a;
+tel;
+
+node always_since (a: bool; b: bool) returns (o: bool);
+var prev_o: bool;
+let
+  prev_o = false -> pre o;
+  o = if b then a else prev_o and a;
+tel;
+
+node once_since(a: bool; reset: bool) returns (o: bool);
+var a_happened: bool;
+let
+  a_happened = a -> if reset then false else (pre a_happened or a);
+  o = (a and not reset) -> a_happened;
+tel;
+
+node always_from_to(b: bool; reset: bool; c: bool) returns (x: bool);
+var
+  c_happened: bool;
+  prev_b: bool;
+let
+  c_happened = c -> if reset then false else (c or pre c_happened);*
+  prev_b = b -> if reset then true else (b and prev_b);
+tel;

surete/tp1/temp_prop/once_since.ec

@@ -0,0 +1,15 @@
+node once_since
+  (a: bool;
+  reset: bool)
+returns
+  (o: bool);
+
+var
+  V14_a_happened: bool;
+
+let
+  o = ((a and (not reset)) -> V14_a_happened);
+  V14_a_happened = (a -> (if reset then false else ((pre V14_a_happened) or a))
+  );
+tel
+