Commit a150e592 authored by Michael Sammler's avatar Michael Sammler
Browse files

only cbn in hyps

parent e4b924f3
Pipeline #57145 passed with stage
in 23 minutes and 19 seconds
...@@ -308,9 +308,9 @@ Ltac liRSplitBlocksIntro := ...@@ -308,9 +308,9 @@ Ltac liRSplitBlocksIntro :=
(* TODO: don't use i... tactics here *) (* TODO: don't use i... tactics here *)
Ltac split_blocks Pfull Ps := Ltac split_blocks Pfull Ps :=
(* cbn in * is important here to simplify the types of local (* cbn in *|- is important here to simplify the types of local
variables, otherwise unification gets confused later *) variables, otherwise unification gets confused later *)
cbn -[union] in *; cbn -[union] in * |-;
let rec pose_Ps Ps := let rec pose_Ps Ps :=
lazymatch Ps with lazymatch Ps with
| <[?bid:=?P]>?m => | <[?bid:=?P]>?m =>
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment