(wip) mini-compiler: fix a ghost + new execution example

examples/in_progress/mini-compiler/compiler.mlw

@@ -196,6 +196,9 @@ module Compile_com
     let code = Cseq (Cassign x (Anum 1)) lp in
     compile_program code
 
+  let test2 () : code =
+    compile_program (Cwhile Btrue Cskip)
+
 end
 
 

examples/in_progress/mini-compiler/logic.mlw

@@ -93,7 +93,7 @@ module Compiler_logic
 
   (* Code combinator for sequence, with wp. *)
 
-  let (%) (s:wp 'a) (exn:pre 'a) : wp 'a
+  let (%) (s:wp 'a) (ghost exn:pre 'a) : wp 'a
     requires { wp_correctness s }
     ensures  { result.wp = fork_wp s.wp exn }
     ensures  { result.wcode.length = s.wcode.length /\ wp_correctness result }