From cf9949a5151aa9ed86554fb31c2a56fad0614a10 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Thu, 25 Jun 2020 18:04:49 +0100
Subject: Progress on proof of Veriloggen

---
 src/verilog/Verilog.v | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/verilog/Verilog.v')

diff --git a/src/verilog/Verilog.v b/src/verilog/Verilog.v
index 9c05fc9..d476710 100644
--- a/src/verilog/Verilog.v
+++ b/src/verilog/Verilog.v
@@ -713,6 +713,8 @@ Definition empty_stack (m : module) : assocmap_arr :=
 Inductive step : genv -> state -> Events.trace -> state -> Prop :=
   | step_module :
       forall asr asa asr' asa' basr1 nasr1 basa1 nasa1 f stval pstval m sf st g,
+      asr!(m.(mod_st)) = Some ist ->
+      valueToPos ist = st ->
       mis_stepp f (mkassociations asr empty_assocmap)
                   (mkassociations asa (empty_stack m))
                   m.(mod_body)
-- 
cgit