diff options
Diffstat (limited to 'plugins/firstorder/ground.ml')
-rw-r--r-- | plugins/firstorder/ground.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/plugins/firstorder/ground.ml b/plugins/firstorder/ground.ml index e0f4fa95f..3faf7f802 100644 --- a/plugins/firstorder/ground.ml +++ b/plugins/firstorder/ground.ml @@ -119,5 +119,6 @@ let ground_tac solver startseq gl= end with Heap.EmptyHeap->solver end gl in - wrap (List.length (pf_hyps gl)) true (toptac []) (startseq gl) gl + let seq, gl' = startseq gl in + wrap (List.length (pf_hyps gl)) true (toptac []) seq gl' |