EasyCrypt · Gustavo2622 · Mar 13, 2026
diff --git a/src/ecPV.ml b/src/ecPV.ml
@@ -47,6 +47,7 @@ module PVMap = struct
     Mnpv.find_opt (pvm m.pvm_env k) m.pvm_map
 
   let raw m = m.pvm_map
+
 end
 
 (* -------------------------------------------------------------------- *)

diff --git a/src/ecParser.mly b/src/ecParser.mly
@@ -2991,7 +2991,10 @@ interleave_info:
     { Pinterleave info }
 
 | CFOLD s=side? c=codepos n=word?
-    { Pcfold (s, c, n) }
+    { Pcfold (s, c, n, false) }
+
+| CFOLD STAR s=side? c=codepos n=word?
+    { Pcfold (s, c, n, true) }
 
 | RND s=side? info=rnd_info c=prefix(COLON, semrndpos)?
     { Prnd (s, c, info) }

diff --git a/src/ecParsetree.ml b/src/ecParsetree.ml
@@ -757,7 +757,7 @@ type phltactic =
   | Pcond          of pcond_info
   | Pmatch         of matchmode
   | Pswap          of ((oside * pswap_kind) located list)
-  | Pcfold         of (oside * pcodepos * int option)
+  | Pcfold         of (oside * pcodepos * int option * bool) (* side + 1st inst + n lines + eager? *)
   | Pinline        of inline_info
   | Poutline       of outline_info
   | Pinterleave    of interleave_info located
-Original file line number
+Diff line change
@@ Expand Up / @@ -47,6 +47,7 @@ module PVMap = struct @@
         Mnpv.find_opt (pvm m.pvm_env k) m.pvm_map
       let raw m = m.pvm_map
     end
     (* -------------------------------------------------------------------- *)
@@ Expand Down @@