diff options
| author | Matthieu Sozeau | 2020-04-06 14:42:12 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2020-04-06 14:42:12 +0200 |
| commit | 2089207415565e8a28816f53b61d9292d04f4c59 (patch) | |
| tree | 9d8edb9e90c93b767ef471ee76e1503624baa878 /kernel/cClosure.ml | |
| parent | 28c031158cee24faf782a7192032e29229aee4d4 (diff) | |
| parent | 5a961410854f01a4445b6605483d0b227279a1fd (diff) | |
Merge PR #11955: Use the kernel machine in whd_betaiota_deltazeta_for_iota_state
Reviewed-by: SkySkimmer
Reviewed-by: mattam82
Diffstat (limited to 'kernel/cClosure.ml')
| -rw-r--r-- | kernel/cClosure.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/cClosure.ml b/kernel/cClosure.ml index 1316dfe069..c31cdae6f5 100644 --- a/kernel/cClosure.ml +++ b/kernel/cClosure.ml @@ -678,6 +678,8 @@ let rec zip m stk = let fapp_stack (m,stk) = zip m stk +let term_of_process c stk = term_of_fconstr (zip c stk) + (*********************************************************************) (* The assertions in the functions below are granted because they are |