1 files changed, 69 insertions, 0 deletions
diff --git a/property/simple_flip_flop.pro b/property/simple_flip_flop.pro
new file mode 100644
index 0000000..53b8f03
--- /dev/null
+++ b/property/simple_flip_flop.pro
@@ -0,0 +1,69 @@
+(seek
+   (
+      (reg waveform)
+      (clk waveform)
+      (ps process)
+   )
+   (and
+      (not (eq clk reg))
+      (is_explicit_process ps)
+      (is_in_sensitivity_list clk ps)
+      (CTL_verifies ps
+         (AU
+            (not (expr_writes reg))
+            (and
+               (kind "if")
+               (or
+                  (and
+                     (is_read_structure "(??)")
+                     (or
+                        (is_read_element "0" "falling_edge")
+                        (is_read_element "0" "rising_edge")
+                     )
+                     (is_read_element "1" clk)
+                  )
+                  (and
+                     (is_read_structure "(?(??)(???))")
+                     (is_read_element "0" "and")
+                     (is_read_element "1" "event")
+                     (is_read_element "2" clk)
+                     (is_read_element "3" "=")
+                     (or
+                        (is_read_element "4" clk)
+                        (is_read_element "5" clk)
+                     )
+                  )
+                  (and
+                     (is_read_structure "(?(???)(??))")
+                     (is_read_element "0" "and")
+                     (is_read_element "1" "=")
+                     (or
+                        (is_read_element "2" clk)
+                        (is_read_element "3" clk)
+                     )
+                     (is_read_element "4" "event")
+                     (is_read_element "5" clk)
+                  )
+               )
+               (EX
+                  (and
+                     (has_option "cond_was_true")
+                     (does_not_reach_parent_before
+                        (and
+                           (expr_writes reg)
+                           (AX
+                              (not
+                                 (EF
+                                    (expr_writes reg)
+                                 )
+                              )
+                           )
+                        )
+                     )
+                  )
+               )
+            )
+         )
+      )
+   )
+)