diff options
| author | vsiles | 2010-05-04 16:56:40 +0000 |
|---|---|---|
| committer | vsiles | 2010-05-04 16:56:40 +0000 |
| commit | 0583805fa794380eb9031e2c8a147fee7facacf0 (patch) | |
| tree | fa6e0788a02d8844390fb859e7fa3c10a456ddd0 /toplevel/command.ml | |
| parent | 1b350172cd8448a30ac9a4167a16ca5aaac2b619 (diff) | |
- Fixing bug #2308 about Lemma ... with
- Fixing a wierd behaviour of the goal window (scroll_at_iter doesn't work)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12991 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/command.ml')
| -rw-r--r-- | toplevel/command.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index fcc6c8acea..3e16a956a0 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -547,7 +547,7 @@ let declare_fixpoint boxed ((fixnames,fixdefs,fixtypes),fiximps) indexes ntns = Some (List.map (Option.cata Tacmach.refine_no_check Tacticals.tclIDTAC) fixdefs) in Lemmas.start_proof_with_initialization (Global,DefinitionBody Fixpoint) - (Some(false,indexes,init_tac)) thms (fun _ _ -> ()) + (Some(false,indexes,init_tac)) thms None (fun _ _ -> ()) else begin (* We shortcut the proof process *) let fixdefs = List.map Option.get fixdefs in @@ -572,7 +572,7 @@ let declare_cofixpoint boxed ((fixnames,fixdefs,fixtypes),fiximps) ntns = Some (List.map (Option.cata Tacmach.refine_no_check Tacticals.tclIDTAC) fixdefs) in Lemmas.start_proof_with_initialization (Global,DefinitionBody CoFixpoint) - (Some(true,[],init_tac)) thms (fun _ _ -> ()) + (Some(true,[],init_tac)) thms None (fun _ _ -> ()) else begin (* We shortcut the proof process *) let fixdefs = List.map Option.get fixdefs in |