diff options
-rw-r--r-- | ide/coq.ml | 85 | ||||
-rw-r--r-- | ide/coqide.ml | 2 |
2 files changed, 44 insertions, 43 deletions
diff --git a/ide/coq.ml b/ide/coq.ml index 54a0e4736..cf54bfa2a 100644 --- a/ide/coq.ml +++ b/ide/coq.ml @@ -112,6 +112,7 @@ let interp s = | VernacDefinition _ | VernacStartTheoremProof _ | VernacBeginSection _ | VernacGoal _ | VernacDefineModule _ | VernacDeclareModuleType _ + | VernacDeclareTacticDefinition _ when is_in_proof_mode () -> user_error_loc loc (str "CoqIDE do not support nested goals") | VernacDebug _ -> @@ -277,7 +278,7 @@ let kwd = [(* "Compile";"Inductive";"Qed";"Type";"end";"Axiom"; "Add"; "AddPath"; "Axiom"; "Chapter"; "CoFixpoint"; "CoInductive"; "Defined"; "Definition"; "End"; "Export"; "Fact"; "Fix"; "Fixpoint"; "Global"; "Grammar"; "Hint"; - "Hints"; "Hypothesis"; "Immediate"; "Implicits"; "Import"; "Inductive"; + "Hypothesis"; "Immediate"; "Implicits"; "Import"; "Inductive"; "Infix"; "Lemma"; "Load"; "Local"; "Match"; "Module"; "Module Type"; "Mutual"; "Parameter"; "Print"; "Proof"; "Qed"; @@ -336,73 +337,73 @@ let reset_to_mod id = let hyp_menu (env, sigma, ((coqident,ident),_,ast),(s,pr_ast)) = - [("Clear "^ident),("Clear "^ident^"."); + [("clear "^ident),("clear "^ident^"."); - ("Apply "^ident), - ("Apply "^ident^"."); + ("apply "^ident), + ("apply "^ident^"."); - ("Exact "^ident), - ("Exact "^ident^"."); + ("exact "^ident), + ("exact "^ident^"."); - ("Generalize "^ident), - ("Generalize "^ident^"."); + ("generalize "^ident), + ("generalize "^ident^"."); - ("Absurd <"^ident^">"), - ("Absurd "^ + ("absurd <"^ident^">"), + ("absurd "^ pr_ast ^".") ] @ (if is_equation ast then - [ "Discriminate "^ident, "Discriminate "^ident^"."; - "Injection "^ident, "Injection "^ident^"." ] + [ "discriminate "^ident, "discriminate "^ident^"."; + "injection "^ident, "injection "^ident^"." ] else []) @ (let _,t = splay_prod env sigma ast in if is_equation t then - [ "Rewrite "^ident, "Rewrite "^ident^"."; - "Rewrite <- "^ident, "Rewrite <- "^ident^"." ] + [ "rewrite "^ident, "rewrite "^ident^"."; + "rewrite <- "^ident, "rewrite <- "^ident^"." ] else []) @ - [("Elim "^ident), - ("Elim "^ident^"."); + [("elim "^ident), + ("elim "^ident^"."); - ("Inversion "^ident), - ("Inversion "^ident^"."); + ("inversion "^ident), + ("inversion "^ident^"."); - ("Inversion_clear "^ident), - ("Inversion_clear "^ident^".")] + ("inversion clear "^ident), + ("inversion_clear "^ident^".")] let concl_menu (_,_,concl,_) = let is_eq = is_equation concl in - ["Intro", "Intro."; - "Intros", "Intros."; - "Intuition","Intuition." ] @ + ["intro", "intro."; + "intros", "intros."; + "intuition","intuition." ] @ (if is_eq then - ["Reflexivity", "Reflexivity."; - "Discriminate", "Discriminate."; - "Symmetry", "Symmetry." ] + ["reflexivity", "reflexivity."; + "discriminate", "discriminate."; + "symmetry", "symmetry." ] else []) @ - ["Assumption" ,"Assumption."; - "Omega", "Omega."; - "Ring", "Ring."; - "Auto with *", "Auto with *."; - "EAuto with *", "EAuto with *."; - "Tauto", "Tauto."; - "Trivial", "Trivial."; - "Decide Equality", "Decide Equality."; - - "Simpl", "Simpl."; - "Subst", "Subst."; - - "Red", "Red."; - "Split", "Split."; - "Left", "Left."; - "Right", "Right."; + ["assumption" ,"assumption."; + "omega", "omega."; + "ring", "ring."; + "auto with *", "auto with *."; + "eauto with *", "eauto with *."; + "tauto", "tauto."; + "trivial", "trivial."; + "decide equality", "decide equality."; + + "simpl", "simpl."; + "subst", "subst."; + + "red", "red."; + "split", "split."; + "left", "left."; + "right", "right."; ] diff --git a/ide/coqide.ml b/ide/coqide.ml index 890a38bf5..201f44c93 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -873,7 +873,7 @@ object(self) true true false - (ip^"\n") + ("progress "^ip^"\n") (ip^"\n")) ) ) |