diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-06-19 07:04:04 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-06-19 07:04:04 +0000 |
| commit | 0d6d9dcaae5b5f69c4c5711f1ca6b4ba4eef2c10 (patch) | |
| tree | 2a53c6418134b19e4f99dfc29adb9e42bdfede3d /theories/FSets/FSetAVL.v | |
| parent | ef1f5d8e846bb46d9e71014259365c0a16609c9a (diff) | |
typo
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4179 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/FSets/FSetAVL.v')
| -rw-r--r-- | theories/FSets/FSetAVL.v | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/theories/FSets/FSetAVL.v b/theories/FSets/FSetAVL.v index 5c10528e7..c6145444c 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. |