We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent efe9fc8 commit 8417d55Copy full SHA for 8417d55
1 file changed
src/checker/Pulse.Typing.FV.fst
@@ -637,19 +637,6 @@ fun #g #t #c d cb ->
637
freevars p);
638
}
639
640
-// let st_typing_freevars_while : st_typing_freevars_case T_While? =
641
-// fun d cb ->
642
-// match d with
643
-// | T_While _ inv post _ _ inv_typing post_typing cond_typing body_typing ->
644
-// tot_or_ghost_typing_freevars inv_typing;
645
-// tot_or_ghost_typing_freevars post_typing;
646
-// cb cond_typing;
647
-// cb body_typing;
648
-// assert (freevars tm_false `Set.equal` Set.empty);
649
-// freevars_open_term inv tm_false 0;
650
-// assert (freevars (open_term' inv tm_false 0) `Set.subset` freevars inv)
651
-#pop-options
652
-
653
let st_typing_freevars_rewrite : st_typing_freevars_case T_Rewrite? =
654
fun d cb ->
655
match d with
0 commit comments