diff options
| author | filliatr | 2003-06-19 07:04:04 +0000 |
|---|---|---|
| committer | filliatr | 2003-06-19 07:04:04 +0000 |
| commit | 0d6d9dcaae5b5f69c4c5711f1ca6b4ba4eef2c10 (patch) | |
| tree | 2a53c6418134b19e4f99dfc29adb9e42bdfede3d | |
| parent | ef1f5d8e846bb46d9e71014259365c0a16609c9a (diff) | |
typo
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4179 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | ide/coqide.ml | 2 | ||||
| -rw-r--r-- | theories/FSets/FSetAVL.v | 9 |
2 files changed, 3 insertions, 8 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index ee53103d82..2b07ca4c9f 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -473,7 +473,7 @@ let update_on_end_of_proof id = prerr_endline "Toggling Changing Reset id"; r := false end - | { ast = _, (VernacAbort _ | VernacAbortAll | VernacGoal_) } -> raise Exit + | { ast = _, (VernacAbort _ | VernacAbortAll | VernacGoal _) } -> raise Exit | _ -> () in try Stack.iter lookup_lemma processed_stack with Exit -> () diff --git a/theories/FSets/FSetAVL.v b/theories/FSets/FSetAVL.v index 5c10528e7f..c6145444c9 100644 --- a/theories/FSets/FSetAVL.v +++ b/theories/FSets/FSetAVL.v @@ -493,7 +493,7 @@ Module Make [X : OrderedType] <: Sdep with Module E := X. Generalize Hh z; Clear Hh z; Simpl in hl; Unfold hl hr. AVL avl_l; AVL avl_r; Intuition Try Omega. Inversion_clear avl_l; AVL H4; Omega. - Intro t2xr; Intros. + Intro t2xr; Intuition. Case (create t0 t1 t2xr). Inversion_clear bst_l; Trivial. Inversion_clear avl_l; Trivial. @@ -501,16 +501,11 @@ Module Make [X : OrderedType] <: Sdep with Module E := X. Intuition. Inversion_clear bst_l; Trivial. Inversion_clear bst_l; Trivial. - Intro; Intro; Intuition; Generalize (H10 y); Intuition. + Clear H2; Intro; Intro; Intuition; Generalize (H5 y); Intuition. Apply ME.lt_eq with x; Auto. Apply E.lt_trans with x; Auto. Apply Hl; Auto. Apply Hr; Auto. - Apply ME.lt_eq with x; Auto. - Apply E.lt_trans with x; Auto. - Apply Hl; Auto. - Apply Hr; Auto. - Defined. |