diff options
| author | filliatr | 1999-08-27 16:58:43 +0000 |
|---|---|---|
| committer | filliatr | 1999-08-27 16:58:43 +0000 |
| commit | b69aafe250ca1fbb21eb2f318873fe65856511c0 (patch) | |
| tree | 0a44fc61206e9abe1d6863ac7dd8e282808cd6c1 /kernel/sosub.ml | |
| parent | dd279791aca531cd0f38ce79b675c68e08a4ff63 (diff) | |
suppression champs inutiles dans constantes et inductifs; verification definitions inductives
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@29 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/sosub.ml')
| -rw-r--r-- | kernel/sosub.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/kernel/sosub.ml b/kernel/sosub.ml index e2f2698994..904d089d34 100644 --- a/kernel/sosub.ml +++ b/kernel/sosub.ml @@ -40,13 +40,13 @@ let propagate_name smap argt new_na = | (_, _) -> smap let is_soapp_operator = function - | DOPN(XTRA("$SOAPP",[]),cl) -> true - | DOP2(XTRA("$SOAPP",[]),_,_) -> true + | DOPN(XTRA "$SOAPP",cl) -> true + | DOP2(XTRA "$SOAPP",_,_) -> true | _ -> false let dest_soapp_operator = function - | DOPN(XTRA("$SOAPP",[]),cl) -> (array_hd cl,array_list_of_tl cl) - | DOP2(XTRA("$SOAPP",[]),c1,c2) -> (c1,[c2]) + | DOPN(XTRA "$SOAPP",cl) -> (array_hd cl,array_list_of_tl cl) + | DOP2(XTRA "$SOAPP",c1,c2) -> (c1,[c2]) | _ -> failwith "dest_soapp_operator" let solam_names = |