Caml1999I037,/ _d%Subst%subst;!k@s@A@A@A@B@@@0typing/subst.mligg@@@@A@A@$safe;@@@AР$Safe@@@@tA@@@u@@@@ii'@@A@&B@A@&unsafe;@@@AР&Unsafe@@@@vA@@@w@@@@'j(((j(?@@A@9C@A@!t;@@@A@2@@@x@@@y@@@@;lAA@@?@mm@@d@@1add_type_function@$!t@@@@¶ms$listK%)type_expr@@@A@@@B$body/)type_expr@@@C@v@@@Dy@@@E@@F@@G@@H@@I@noN@@e@@/add_module_path @V!t@@@J@^!t@@@K@@@@L@@@M@@N@@O@@P@pOQpO@@f@@%error!;@@9Fcm_type_substituted_away&|!t@@@Rt+module_type@@@Q@@ss@@h@@@A@@@@@r@@@@g@A@0type_declaration"@@@@S@0type_declaration@@@T&Stdlib&result0type_declaration@@@V@@@@U@@@W@@X@@Y@,w-w;@@>j@@.signature_item#@@@@Z@@@@[@.signature_item@@@\-*.signature_item@@@^)@@@]@@@_@@`@@a@@b@Tx<>Ux<@@fk@@)signature$@@@@c@@@@d@)signature@@@eUR)signature@@@gQ@@@f@@@h@@i@@j@@k@|y}y@@l@@'compose%@@@@@l@E@@@mvsL@@@op@@@n@@@p@@q@@r@{{@@m@@@@`}}@n@@@Ӡ$Lazy@+module_decl&;@@(mdl_type3@@'modtype'@@@ @@u@.mdl_attributes@@)Parsetree*attributes@@@  6@@x@'mdl_loc@@!t@@@7=7Q@@y@'mdl_uid@@Y#Uid!t@@@RXRg@@{@@@A@@@@@hm@@@@o@A@:;@@*MtyL_ident!t@@@@@@@|@.MtyL_signature)signature)@@@@@@@ }@,MtyL_functor1functor_parameter+@@@l@@@@@"#@@4~@*MtyL_alias!t@@@@@23@@D@@@A@@@@@6oq@@@@Gp@B@3modtype_declaration(;@@)mtdl_type@@&optionL@@@@@@M,2N,L@@_@@/mtdl_attributes@@*attributes@@@[ci\c@@mA@(mtdl_loc@@L!t@@@ij@@{B@(mtdl_uid@@#Uid!t@@@xy@@C@@@A@@@@@|  }@@@@q@B@w;@@@A@@@@@@@@@r@B@.signature_item*;@@*SigL_value&!t@@@ڠ1value_description@@@٠*visibility@@@@@.@@D@)SigL_typeB!t@@@נ00type_declaration@@@֠6*rec_status@@@ՠ<*visibility@@@@@/3/v@@E@+SigL_typextd!t@@@ӠR5extension_constructor@@@ҠX*ext_status@@@Ѡ^*visibility@@@@@w{w@@F@+SigL_module!t@@@Ϡt/module_presence@@@ΠY@@@͠*rec_status@@@̠*visibility@@@@@$@@#G@,SigL_modtype!t@@@ʠ@@@ɠ*visibility@@@@@,%)-%e@@>H@*SigL_class!t@@@Ǡ1class_declaration@@@Ơ*rec_status@@@Š*visibility@@@@@NfjOf@@`I@/SigL_class_type!t@@@à6class_type_declaration@@@ *rec_status@@@*visibility@@@@@pq@@J@@@A@@@@@t@@@@s@B@^;@@$Unit@@:>:D@@K@%NamedG !t@@@@@@ݠ@@@@@EIEl@@L@@@A@@@@@ "@@@@t@B@.of_module_decl,@ 2module_declaration@@@@@@@@@oqo@@N@@*of_modtype-@4+module_type@@@@@@@@@@@O@@/of_modtype_decl.@H3modtype_declaration@@@@@@@@@&@@P@@,of_signature/@\)signature@@@@@@@@@')'X@@Q@@2of_signature_items0@Qt@@@@@@@@@@@@Y[Y@@R@@1of_signature_item1@.signature_item@@@@@@@@@@@)S@@+module_decl2@@@@@@@@@+@@@.@@@@@@@@@@23@@DT@@'modtype3@@@@@@@@@@@@@@@@@@@@@@MNH@@_U@@,modtype_decl4@@@@@@@@@@@@@C@@@@@@@@@@hIKiI@@zV@@)signature5@ @@@@!@@@@u@@@x@@@ @@ @@ @@ @@@W@@.signature_item6@(@@@ @<@@@@@@@@@@@@@@@@@@@X@@1force_module_decl7@@@@%2module_declaration@@@@@@\@@Y@@-force_modtype8@ @@@9+module_type@@@@@@]_]@@Z@@2force_modtype_decl9@@@@M3modtype_declaration@@@@@@@@[@@/force_signature:@@@@a)signature@@@@@@@@\@@4force_signature_once;@@@@ V@@@!@@@"@@#@N@@]@@4force_signature_item<@@@@$.signature_item@@@%@@&@OQO@@*^@@@@@._@@@@8Π%Subst0ڙٍ>s(Warnings0mJɒkgrWA+9*X*Format_doc0]mWϓ:Mݠ0CamlinternalLazy0&͂7 Pˆ8CamlinternalFormatBasics0%FU(Q/Tu(Asttypes0>n{T8cئ@@@Caml1999T037XyOt{C%Subst*ocaml.text&_none_@@A/ Substitutions 0typing/subst.mliP77P7K@@@@@@3@@@@@@#intA;@@@A@@@@@:@A@$charB;@@A@@@@@>@A@&stringQ;@@ A@@@@@B@@@%bytesC;@@ A@@@@@F@@@%floatD;@@A@@@@@J@@@$boolE;@@%falsec@@T@$trued@@Z@@@A@@@@@[@A@$unitF;@@"()e@@e@@@A@@@@@f@A@ #exnG;@@@A@@@@@j@@@#effH;@@O@A@A@@@@@@s@@@,continuationI;@@Q@@P@B@A@nY@@@@@@@@@%arrayJ;@@R@A@A@@@@@@@@@ $listK;@@S@A"[]f@@@"::g@@@T@@@ @@A@Y@@@@@@@@&optionL;@@V@A$Noneh@@@$Somei@@@@@A@Y@@@@@@@@)nativeintM;@@A@@@@@@@@%int32N;@@A@@@@@@@@%int64O;@@A@@@@@@@@&lazy_tP;@@X@AJA@Y@@@@@@@@5extension_constructorR;@@A@@@@@@@@*floatarrayS;@@A@@@@@@@@&iarrayT;@@Y@A[A@Y@@@@@@@@*atomic_locU;@@Z@AdA@@@@@@@@@.Assert_failure`#@@@@@J@@@@@@@@[@@A=ocaml.warn_on_literal_pattern @ @0Division_by_zero]#@@@A  @+End_of_file\#$@@@A@'FailureY#,@'@@A!$$@0Invalid_argumentX#5@0@@A*$-#-@-Match_failureV#>@@=@9@;@@a@@A;5>4>@)Not_foundZ#O@@@AC=F<F@-Out_of_memoryW#W@@@AKENDN@.Stack_overflow^#_@@@ASMVLV@.Sys_blocked_io_#g@@@A[U^T^@)Sys_error[#o@j@@Ad^g]g@:Undefined_recursive_modulea#x@@w@s@u@@h@@Auoxnx@:Continuation_already_takenb#@@@A}wv@&Stdlib@Axࠐ%Types%TypesRMRRMW@@A3@ @ARMM@@@ } Substitutions are used to translate a type from one context to another. This requires substituting paths for identifiers, and possibly also lowering the level of non-generic variables so that they are inferior to the maximum level of the new context. Substitutions can also be used to create a "clean" copy of a type. Indeed, non-variable node of a type are duplicated, with their levels set to generic level. That way, the resulting type is well-formed (decreasing levels), even if the original one was not. In the presence of local substitutions for module types, a substitution for a type expression may fail to produce a well-formed type. In order to confine this issue to local substitutions, the type of substitutions is split into a safe and unsafe variant. Only unsafe substitutions may expand a module type path into a generic module type. UZZd@@@@@@A+%substAg g@А!k@ 3@*;@@ @A@A@G@B@@@g@)ocaml.docʐ Type familly for substitutions ff@@@@@@@@@A@@Ag g @@@A@;%@A@A@A@B@@@@@ @@A@㐠@@@@@@@Y':@A+$safeBii@@;@@AР$Safe@@@@ A@@@ @@@@ii'@@A@B@@@Aзi!i&@A@@@@@@3@f8";@@@A*@@@ @ @@@@@@@@Ai @@@@3  @ @A@A+&unsafeCj(-j(3@@;@@OAР&Unsafe@@@@ A@@@ @@@@)j((*j(?@@A@BC@@@Aз4j(75j(>@A@@@@@@343344444@5VP";@@@A*@@@ @ @@@@@@@@ADj(6@@@@3BAABBBBB@ @A@A+!tDPlAFQlAG@@;@@Aw@@@ @@@ @@@@^lAA_lAT@6 Standard substitutionlmUUmmUp@@@@@@@@@D@@@Aг%substvlAO@г $safe~lAJlAN@@(3}||}}}}}@Jke7;@@@A?@@@ @ @@@@/,@@@A@@@9 /@@1/.@..@@@.@.@@3@@A=<@(identityorvor~@г%substoror@А!a@ E@ 3@7mg@Aoror@@@ @@@  @@@orr@@E@@@@&unsafepp@б@г!tpp@@ @@@ 3@(A@A@@гD%substpp@г֠&unsafepp@@ @@@ @@@@@@  @@@$@@ !'@@@p@@F@@@@'(add_type rr@б@г%Ident!t%Identrr@ "r#r@@@@@@ 53%$$%%%%%@K`*@A @@б@г$Path!t$Path:r;r@ >r?r@@@@@@  @@б@г%substNrOr@А!k@ E@ 1Zr[r@@@ @@@ 8@@гĠ%substhrir@А!kForpr@@@ @@@ M @@@@@ P@@@:@@ SB@@@Y@@ Va@@@r@@G@@@@\*add_moduless@б@г!t%Identss@ ss@@@@@@ 3@~(@A @@б@г}!t$Pathss@ s s @@@@@@  @@б@г%%substs s @А!k@ E@ /s s @@@ @@@ 6@@г?%substs s @А!kDs s @@@ @@@ K @@@@@ N@@@:@@ QB@@@W@@ T_@@@s@@H@@@@Z+add_modtype t  t  )@б@г!t%Identt  +t  0@ t  1t  2@@@@@@ 3@|(@A @@б@г!t$Path0t  61t  :@ 4t  ;5t  <@@@@@@  @@б@г%substDt  CEt  H@А!k@ E@ /Pt  @Qt  B@@@ @@@ 6@@г%subst^t  O_t  T@А!kDet  Lft  N@@@ @@@ K @@@@@ N@@@:@@ QB@@@W@@ T_@@@wt  @@I@@@@Z*for_savingàv V Zv V d@б@г=!tv V fv V g@@ @@@ 3@s@A@@гL!tv V kv V l@@ @@@ @@@@@ @@@v V V @@J@@ @@0reset_for_savingĠw m qw m @б@гj$unitw m w m @@ @@@ 3@1F@A@@гy$unitw m w m @@ @@@ @@@@@ @@@w m m @@K@@ @@+change_locs x  x  @б@гI%substx  x  @А!k@KE@ 3@7L%@Ax  x  @@@ @@@  @@б@г(Location!t(Locationx  x  @ x  x  @@@@@@E# @@г%subst#x  $x  @А!k61*x  +x  @@@<@@@G8 @@@@@H;#@@@9@@I><@@@9x  @@QL@@@@D+module_path Dz  Ez  @б@г!tOz  Pz  @@ @@@L3QPPQQQQQ@]x@A@@б@г,!t$Pathdz  ez  @ hz  iz  @@@@@@M @@гB!t$Pathzz  {z  @ ~z  z  @@@@@@N0 @@@@@O3$ @@@9@@P6< @@@z  @@M@@@@<)type_path {  {  @б@гS!t{  {  @@ @@@Q3@Uj@A@@б@г!t$Path{  {  @ {  {  @@@@@@R @@г!t$Path{  {  @ {  {  @@@@@@S0 @@@@@T3$ @@@9@@U6< @@@{  @@N@@@@<,modtype_path |  |  !@б@г!t|  #|  $@@ @@@V3@Uj@A@@б@г!t$Path |  ( |  ,@ |  -|  .@@@@@@W @@г!t$Path"|  2#|  6@ &|  7'|  8@@@@@@X0 @@@@@Y3$ @@@9@@Z6< @@@5|  @@MO@@@@<)type_expr@~ : >A~ : G@б@г!tK~ : IL~ : J@@ @@@[3MLLMMMMM@Uj@A@@б@г)type_expr\~ : N]~ : W@@ @@@\@@г)type_expri~ : [j~ : d@@ @@@]@@@@@^!@@@'@@_$* @@@w~ : :@@P@@@@**class_type e i e s@б@г=!t e u e v@@ @@@`3@CX@A@@б@г*class_type e z e @@ @@@a@@г+*class_type e  e @@ @@@b@@@@@c!@@@'@@d$* @@@ e e@@Q@@@@*1value_description@  @  @б@г!t@  @  @@ @@@e3@CX@A@@б@г`1value_description@  @  @@ @@@f@@гm1value_description@  @  @@ @@@g@@@@@h!@@@'@@i$* @@@@  @@R@@@@*0type_declarationA  A  @б@г!tA  A  @@ @@@j3@CX@A@@б@г0type_declaration"A  #A  @@ @@@k@@г0type_declaration/A  0A  @@ @@@l@@@@@m!@@@'@@n$* @@@=A  @@US@@@@*5extension_constructorHB  IB  /@б@г!tSC 1 9TC 1 :@@ @@@o3UTTUUUUU@CX@A@@б@г5extension_constructordC 1 >eC 1 S@@ @@@p@@г5extension_constructorqC 1 WrC 1 l@@ @@@q@@@@@r!@@@'@@s$* @@@B  @@T@@@@*1class_declarationD m qD m @б@гE!tD m D m @@ @@@t3@CX@A@@б@г&1class_declarationD m D m @@ @@@u@@г31class_declarationD m D m @@ @@@v@@@@@w!@@@'@@x$* @@@D m m@@U@@@@*2cltype_declarationE  E  @б@г!tE  E  @@ @@@y3@CX@A@@б@гh6class_type_declarationE  E  @@ @@@z@@гu6class_type_declarationE  E  @@ @@@{@@@@@|!@@@'@@}$* @@@E  @@V@@@@* l When applied to a signature item, a substitution not only modifies the types present in its declaration, but also refreshes the identifier of the item. Effectively this creates new declarations, and so one should decide what the scope of this new declaration should be. This is decided by the [scoping] argument passed to the following functions. G  N n p@@@@@@3@<Q@AA+'scopingE"P r w#P r ~@@;@@$Keep@@,Q  -Q  @@EX@*Make_local@@5R  6R  @@NY@'Rescope@@@~@@CS  DS  @@\Z@@@A@@@@@GP r r@@@@_W@@#$$NQ  "@!@@@%@#!!TR  @@@@"@#ZS  [S  @@г #intdS  !@@'3baabbbbb@OI;@@@A@@@@@#@@@!@A&@@@@(@@A@$@@S$'@'modtypesU  tU  @б@г\'scoping~U  U  @@ @@@3@mga@A@@б@г?!tU  U  @@ @@@@@б@г+module_typeU  U  @@ @@@ @@г++module_typeU  U  @@ @@@-@@@@@0@@@%@@3( @@@9@@6<@@@U  @@[@@@@<)signatureV  V  @б@г'scopingV  V  @@ @@@3@Uj@A@@б@г!tV  V @@ @@@@@б@гr)signatureV V  @@ @@@ @@г)signatureV  V @@ @@@-@@@@@0@@@%@@3( @@@9@@6<@@@ V  @@ (\@@@@<.signature_item W W-@б@г'scoping &W/ 'W6@@ @@@3 ( ' ' ( ( ( ( (@Uj@A@@б@г砐!t 7W: 8W;@@ @@@@@б@г.signature_item FW? GWM@@ @@@ @@г.signature_item SWQ TW_@@ @@@-@@@@@0@@@%@@3( @@@9@@6<@@@ dW@@ |]@@@@<3modtype_declaration oX`d pX`w@б@гX'scoping zYy{ {Yy@@ @@@3 | { { | | | | |@Uj@A@@б@г;!t Yy Yy@@ @@@@@б@г3modtype_declaration Yy Yy@@ @@@ @@г'3modtype_declaration Yy Yy@@ @@@-@@@@@0@@@%@@3( @@@9@@6<@@@ X``@@ ^@@@@<2module_declaration Z Z@б@г'scoping Z Z@@ @@@3        @Uj@A@@б@г!t Z Z@@ @@@@@б@гn2module_declaration Z Z@@ @@@ @@г{2module_declaration Z Z@@ @@@-@@@@@0@@@%@@3( @@@9@@6<@@@ Z@@ $_@@@@<'compose ^cg ^cn@б@гҠ!t "^cp #^cq@@ @@@3 $ # # $ $ $ $ $@Uj@A@@б@г㠐!t 3^cu 4^cv@@ @@@@@г!t @^cz A^c{@@ @@@@@@@@!@@@'@@$* @@@ N^cc@ U Composition of substitutions: apply (compose s1 s2) x = apply s2 (apply s1 x) * [\ \]*b@@@@@@@ t`@@@ o@@@@@@C&Unsafe,F t`} u`}@ n@@БA+!tG b b@@;@@Av@@@@@@@@@@ b b@ڐ Unsafe substitutions introduced by [with] constraints, local substitutions ([type t := int * int]) or recursive module check.  c d5@@@@@@@@@ a@@@Aг%subst b@г &unsafe b b@@(3        @j7;@@@A?@@@@@@@@/,@@@A@@@9 /@@1  ѐ/.@..@@@.@.@@3        @@A=<@+add_modtype  h h@б@г!t%Ident h h@  h h@@@@@@3        @<rl@A @@б@г {+module_type h h@@ @@@@@б@г f%subst h h@А#any@H@& h h@@@ @@@-@@г!t $h %h@@ @@@:@@@@@=@@@2@@@5 @@@F@@CN@@@ 5h@ } Replacing a module type name S by a non-path signature is unsafe as the packed module type [(module S)] becomes ill-formed.  Bf77 Cg@@@@@@@ [b@@!@  V@@@@@@b0add_modtype_path! Yi Zi@б@г0!t$Path hi ii@  li mi@@@@@@3 o n n o o o o o@A@A @@б@г +module_type ~i i(@@ @@@@@б@г 預%subst i1 i6@А#any@H@& i, i0@@@ @@@-@@г$!t i: i;@@ @@@:@@@@@=@@@2@@@5 @@@F@@CN@@@ i@@ c@@@@I-add_type_path" m m@б@г!t$Path m m@  m m@@@@@@3        @k(@A @@б@г!t$Path m m@  m m@@@@@@ @@б@г}!t m m@@ @@@)@@г!t m m@@ @@@6@@@@@9@@@%@@<- @@@B@@?J@@@ m@ f Deep editing inside a module type require to retypecheck the module, for applicative functors in path and module aliases.  +k=? ,l@@@@@@@ Dd@@!@ v ?@@@@@@^1add_type_function# Bn Cn @б@г !t$Path Qo Ro@  Uo Vo@@@@@@3 X W W X X X X X@A@A @@б¶msг 堐$list io. jo2@г )type_expr so$ to-@@ @@@@@@@@@" @@б$bodyг )type_expr o; oD@@ @@@3@@б@г!t oH oI@@ @@@B@@г"!t oM oN@@ @@@O@@@@@R@@0%@@U o6 @@T;@@Y o@@@`@@]h@@@ n@@ e@@@@c/add_module_path$ pOU pOd@б@г !t$Path pOf pOj@  pOk pOl@@@@@@3        @(@A @@б@г !t$Path pOp pOt@  pOu pOv@@@@@@ @@б@г!t pOz pO{@@ @@@)@@г!t pO pO@@ @@@6@@@@@9@@@%@@<- @@@B@@?J@@@ !pOQ@@ 9f@@@@EA+%error%H -r .r@@;@@9Fcm_type_substituted_away& !t@@@ +module_type@@@@@ Es Fs@@ ^h@@@A@@@@@ Ir@@@@ ag@@# Ps Qs@ @г$Path \s ]s@$ `s as@@@,3 ` _ _ ` ` ` ` `@G=;@@@A@@@@@ @@@@A @@г,%Types rs ss@3 vs1@2@@:3@@@@5@@A@1@@3 v u u v v v v v@@A25@+#res'I u u@А!a@3        @+ga@A u u@@BA@; @A A &&resultJ@y@@@@@@Y@@@@@ u u@@@@ i@@@Aг u @А!a' u u@@г%error u u@@"3@@@+4 u@@@@6@0type_declaration( w w @б@гU!t w w@@ @@@3        @P_K@A@@б@г i0type_declaration w w#@@ @@@@@гr#res w8 w;@г 0type_declarationw'w7@@ @@@(@@@@@@- @@@"@@0%@@@6@@39@@@w@@+j@@@@9.signature_item)x<Bx<P@б@г'scoping)x<R*x<Y@@ @@@3+**+++++@Rg@A@@б@г!t:x<];x<^@@ @@@@@б@г .signature_itemIx<bJx<p@@ @@@ @@гҠ#resVx<Wx<@г .signature_item`x<tax<@@ @@@7@@@@@@< @@@"@@ ?%@@@4@@!B7@@@H@@"EK@@@vx<> @@k@@"@@K)signature*yy@б@гj'scopingyy@@ @@@#3@dy@A@@б@г!tyy@@ @@@$@@б@г ,)signatureyy@@ @@@% @@г5#resyy@г C)signatureyy@@ @@@&7@@@@@@(< @@@"@@)?%@@@4@@*B7@@@H@@+EK@@@y @@l@@"@@K'compose+{{@б@гl!t{{@@ @@@,3@dy@A@@б@г}!t{{@@ @@@-@@г#res {{@г!t{{@@ @@@.(@@@@@@0- @@@"@@10%@@@6@@239@@@*{@ r Composition of substitutions is eager and fails when the two substitution are incompatible, for example [ module type t := sig end] is not compatible with [module type s := sig type t=(module t) end]7|8~z@@@@@@@Pm@@-@ K@@@@@@R@;@@@AĠ@@@4@@@3@@@@@@A@@}|@@@;@ i@@@:@`V@@@9J@@@8@@7@@6@@5@64&@@@@@B@ @@@A@@@@@@@@?@@>@@=@@<@@@@@@@I@@@@H@@@@G@@@F@@E@@D@@C@|zl@]@XW@@@SDB.;@@@R@@@Q.5,@@@P@#@@@O@@@N@@M@@L@@K@@J@@@@@@@Z@@@@Y@@@@X@@@W@@V@@U@@T@@@;@@@@@[@@@\@@@@@A@@@@@@@@A@@@@@d@s @@@c[|@@@`[@@@b@@@a@_@@^@@]@@@@@@@n@@@@m@@@@l|@@@i|@@@k@@@j@h@@g@@f@@e@@@@@@@x@@@@w@@@@v{@@@s@@@u@@@t@r@@q@@p@@o@h@f@b@]@@@@Q@@@B@@@|@@@~@@@}@{@@z@@y@1/!@@3WVVWWWWW@g|4@A3ZYYZZZZZ@@A_`}`@@@b`}}@@$LazyJno@_@@БA++module_decl-K}~@@;@@(mdl_type3@@'modtype.K@@@ @@u@.mdl_attributes@@)Parsetree*attributes@@@  6@@x@'mdl_loc@@ !t@@@7=7Q@@y@'mdl_uid@@9#Uid!t@@@RXRg@@{@@@A@@@@@hm@@@@o@@#@@9@8@@Ш@гC'modtype @@K3@#i@]A@ @t@#^@I@$*@A@!@@q@@@@zw;@@@A@@@@@6@@@3j;@@@A@@@@@oq@@@@p@3modtype_declaration/K;@@@A@@@@@  @@@@q@)signature0K;@@@A@@@@@@@@@r@.signature_item1K;@@@A@@@@@ @@@@&s@1functor_parameter2K;@@@A@@@@@ "El@@@@.t@@AKJ@@@@K@@# @@@Ш@г)Parsetree* !+ *@. +/ 5@@@a@@@@d@@#87D@@@Ш@г(LocationC7FD7N@G7OH7P@@@z@@@@}@@#QR_@@@Ш@г[Ra\Rd@_Re`Rf@@@@@@@@@@A@@+ߠ߰ioujo|@@;@@*MtyL_identF!t@@@!@@z{@@|@.MtyL_signature@@@"@@@@}@,MtyL_functor@@@#@@@$@@@@~@*MtyL_aliasw!t@@@%@@@@@@@A@@@@@@@@@#AA@8@гC$Path@JH@I@@QJ@@@@L@#HH@A@гJ)signatureK@@QL@@@@N@#JJ@>@гL1functor_parameter@@T@@гQ'modtypeR@@XS@@@@U@#QQ@I@гS$Path@Z@@@a5@@@@\@@A@@+    #@@;@@)mtdl_type@@x@@@&@@@(,2,L@@5@@/mtdl_attributes@@*attributes@@@+*ci+c@@CA@(mtdl_loc@@ -!t@@@.89@@QB@(mtdl_uid@@#Uid!t@@@1GH@@`C@@@A@@@@@N@@@K@#==3O,;@2@@Ш@г@&optionX,EY,K@гE'modtypea,=b,D@@M@@@R @@U@@)@L@#HHAkcx@@@@Ш@гK)Parsetreevczwc@Rzc{c@@@Z@@]@@,@W@#SSL@K@@Ш@гV(Location@]@@@eư@@h@@/@b@#^^V@U@@Ш@гac@f@@@oް@@r@@2@k@@A@@+@@;@@A@@@@@@@@@@A@@+@@;@@*SigL_value!t@@@4S1value_description@@@5Y*visibility@@@6@@.@@D@)SigL_type!t@@@7o0type_declaration@@@8u*rec_status@@@9{*visibility@@@:@@/3/v@@E@+SigL_typext!t@@@;5extension_constructor@@@<*ext_status@@@=*visibility@@@>@@w{w@@5F@+SigL_module!t@@@?/module_presence@@@@@@@A*rec_status@@@B*visibility@@@C@@CD$@@\G@,SigL_modtype;!t@@@D^@@@E*visibility@@@F@@^%)_%e@@wH@*SigL_classV!t@@@G1class_declaration@@@H*rec_status@@@I*visibility@@@J@@fjf@@I@/SigL_class_typex!t@@@K6class_type_declaration@@@L*rec_status@@@M#*visibility@@@N@@@@J@@@A@@@@@@@@@#@@г砡%Ident @  @@@@@г!@@@@г$@@@@@@@#/5/>@@г%Ident/B/G@/H/I@@@@@г/L/\@@@@г/_/i@@&@@г/l@@ .@@@@@#w}w@@г%Identww@ ww@@@F@@гww@@O@@г&w'w@@X@@г/w@@`@@@@@#56@@г%IdentAB@EF@@@#x@@гOP@@%@@г!+module_declYZ @@)@@г&'b c@@-@@г)*k(@@/)@@@@+@#''q%+r%7@@г)%Ident}%;~%@@0%A%B@@@8@@г33modtype_declaration%E%X@@;@@г89%[7@@>ư8@@@@:@#66flfv@@г8%Identfzf@?ff@@@Gް@@гBCff@@I@@гEFff@@L@@гHIfG@@NH@@@@J@#FF@,@гH%Ident@O@@@W@@гRS@@Y@@гUV@@\"@@гXY@@^*@@@@Z@@A@@+ & 7@@;@@$Unit@@ :> :D@@"K@%Namedx!t@@@O@@@Q@@@R@@#EI@@;L@@@A@@@@@@@@@###*:@!@ @@@$@#  0EK1EP@@г"&option:E\;Eb@г'%IdentEETFEY@.IEZJE[@@@6|@@@;} @@г1'modtypeUEe@@@8A@@@@5@@A@C@@3TSSTTTTT@@AC@.of_module_declaoubo@б@г2module_declaration%Typespoqo@ touo@@@@@@o3wvvwwwww@qyu@A @@г +module_decloo@@ @@@p@@@@@q"@@@oq @@N@@ @@*of_modtype@б@г*+module_type%Types@ @@@@@@r3@?](@A @@г6'modtype@@ @@@s@@@@@t@@@ @@O@@ @@/of_modtype_decl@б@гc3modtype_declaration%Types@ @@@@@@u3@:X(@A @@г3modtype_declaration&@@ @@@v@@@@@w@@@ @@P@@ @@,of_signature'-'9@б@г)signature%Types '<!'A@ $'B%'K@@@@@@x3'&&'''''@:X(@A @@г0)signature4'O5'X@@ @@@y@@@@@z@@@?') @@WQ@@ @@2of_signature_itemsJY_KYq@б@гѠ$listUYVY@гS.signature_item_Yt`Y@@ @@@{3a``aaaaa@;Y)@A@@@ @@@} @@гo)signaturesYtY@@ @@@~@@@@@@@@~Y[ @@R@@ @@1of_signature_item@б@г.signature_item%Types@ @@@@@@3@?^(@A @@г.signature_item@@ @@@@@@@@@@@ @@S@@ @@+module_decl@б@г'scoping@@ @@@3@1O@A@@б@г!t@@ @@@@@б@гp+module_decl@@ @@@ @@г}+module_decl @@ @@@-@@@@@0@@@%@@3( @@@9@@6<@@@ @@#T@@@@<'modtype#@б@г'scoping!&"-@@ @@@3#""#####@Uj@A@@б@г⠐!t2132@@ @@@@@б@г'modtypeA6B=@@ @@@ @@г 'modtypeNAOH@@ @@@-@@@@@0@@@%@@3( @@@9@@6<@@@_@@wU@@@@<,modtype_decljIOkI[@б@гS'scopinguI^vIe@@ @@@3wvvwwwww@Uj@A@@б@г6!tIiIj@@ @@@@@б@г3modtype_declarationInI@@ @@@ @@г3modtype_declarationII@@ @@@-@@@@@0@@@%@@3( @@@9@@6<@@@IK@@V@@@@<)signature@б@г'scoping@@ @@@3@Uj@A@@б@г!t@@ @@@@@б@г堐)signature@@ @@@ @@г)signature@@ @@@-@@@@@0@@@%@@3( @@@9@@6<@@@@@W@@@@<.signature_item@б@г'scoping@@ @@@3@Uj@A@@б@гޠ!t./@@ @@@@@б@г1.signature_item=>@@ @@@ @@г>.signature_itemJ K@@ @@@-@@@@@0@@@%@@3( @@@9@@6<@@@[@@sX@@@@<1force_module_declf!g2@б@г+module_declq5r@@@ @@@3srrsssss@Uj@A@@г2module_declaration%TypesDI@ J\@@@@@@ @@@@@! @@@ @@Y@@@@!-force_modtype]c]p@б@г'modtype]s]z@@ @@@3@:O@A@@г9+module_type%Types]~]@ ]]@@@@@@ @@@@@! @@@]_ @@Z@@@@!2force_modtype_decl@б@г砐3modtype_declaration@@ @@@3@:O@A@@гr3modtype_declaration%Types@ @@@@@@ @@@@@! @@@ @@[@@@@!/force_signature@б@г)signature@@ @@@3@:O@A@@г)signature%Types/0@ 34@@@@@@ @@@@@! @@@? @@W\@@@@!4force_signature_onceJK+@б@гQ)signatureU.V7@@ @@@3WVVWWWWW@:O@A@@гࠐ$listdJeN@гb.signature_itemn;oI@@ @@@@@@@@@ @@@$@@!'@@@~@@]@@@@'4force_signature_itemOUOi@б@г.signature_itemOlOz@@ @@@3@@U@A@@г#.signature_item%TypesO~O@ OO@@@@@@ @@@@@! @@@OQ @@^@@@@!@ C =A@ 6SB@B@ B@B@B@k6@/@@@T@M@@y@r'@ @@|L@E@@@j@c3@@3@Pe5@A13@ @A@@@@@@T&A@ A@A@A@];@4@@z@@a@Z3@,@@z/@(@@]@V@@@]@V@A@h@a@@r@k @@@ @ @@ @H@C @@@3/../////@ ] @  A@ B@ D0B@ >B@ 8B@ 2AB@@{@tD@= @@@G@@@@Q@J@@@Z@S#@@@@@u @A@ H************************************************************************hA@@iA@L@ H nBMMoBM@ H OCaml tCuC@ H zD{D3@ H Xavier Leroy, projet Cristal, INRIA Rocquencourt E44E4@ H FF@ H Copyright 1996 Institut National de Recherche en Informatique et GG@ H en Automatique. HHg@ H IhhIh@ H All rights reserved. This file is distributed under the terms of JJ@ H the GNU Lesser General Public License version 2.1, with the KKN@ H special exception on linking described in the file LICENSE. LOOLO@ H MM@ H************************************************************************NN5@0* Substitutions  ~* Substitutions are used to translate a type from one context to another. This requires substituting paths for identifiers, and possibly also lowering the level of non-generic variables so that they are inferior to the maximum level of the new context. Substitutions can also be used to create a "clean" copy of a type. Indeed, non-variable node of a type are duplicated, with their levels set to generic level. That way, the resulting type is well-formed (decreasing levels), even if the original one was not. In the presence of local substitutions for module types, a substitution for a type expression may fail to produce a well-formed type. In order to confine this issue to local substitutions, the type of substitutions is split into a safe and unsafe variant. Only unsafe substitutions may expand a module type path into a generic module type. & !* Type familly for substitutions 7* Standard substitutionY m* When applied to a signature item, a substitution not only modifies the types present in its declaration, but also refreshes the identifier of the item. Effectively this creates new declarations, and so one should decide what the scope of this new declaration should be. This is decided by the [scoping] argument passed to the following functions.  V* Composition of substitutions: apply (compose s1 s2) x = apply s2 (apply s1 x) *p * Unsafe substitutions introduced by [with] constraints, local substitutions ([type t := int * int]) or recursive module check. / * Replacing a module type name S by a non-path signature is unsafe as the packed module type [(module S)] becomes ill-formed.  * Deep editing inside a module type require to retypecheck the module, for applicative functors in path and module aliases.  * Composition of substitutions is eager and fails when the two substitution are incompatible, for example [ module type t := sig end] is not compatible with [module type s := sig type t=(module t) end] 0 Note: abstract ,N,b@@-./boot/ocamlc)-nostdlib"-I&./boot*-use-prims2runtime/primitives"-g0-strict-sequence*-principal(-absname"-w8+a-4-9-40-41-42-44-45-48+-warn-error"+a*-bin-annot/-strict-formats"-I&typing"-I%utils"-I'parsing"-I&typing"-I(bytecomp"-I,file_formats"-I&lambda"-I*middle_end"-I2middle_end/closure"-I2middle_end/flambda"-I=middle_end/flambda/base_types"-I'asmcomp"-I&driver"-I(toplevel"-I%tools"-I'runtime"-I1otherlibs/dynlink"-I-otherlibs/str"-I4otherlibs/systhreads"-I.otherlibs/unix"-I8otherlibs/runtime_events"-c =/builds/workspace/precheck/flambda/false/label/ocaml-linux-32 >10/.-,+*)('&%$#"! @@0=xU=&321122222@0@@(Asttypes0>n{T8cئ8CamlinternalFormatBasics0%FU(Q/Tu0CamlinternalLazy0&͂7 Pˆ*Format_doc0]mWϓ:Mݠ%Ident0">WA+9*X,Identifiable0 {d\FX'`(Location0a7cK_H%9)Longident0s `7mɕc+Outcometree0kX%d5Q/+)Parsetree0T鿁ۘ7Qu$Path0Y2kf֯J._Ϡ)Primitive0²~$xzT෠%Shape0oNՄBH&Stdlib0Lku]8_٠.Stdlib__Buffer08APF< t..Stdlib__Domain0:M;׉<O$Ġ.Stdlib__Either0Vy`u~c à.Stdlib__Format0ܚ#G7m|/Stdlib__Hashtbl0ѱN][/!,Stdlib__Lazy0* -S$.)"0D.Stdlib__Lexing0e<.V +Stdlib__Map0L5xE|O0~,J-+Stdlib__Seq0nwzG&amg+Stdlib__Set0\$;7 +Stdlib__Sys0 -ռ鱦s5/-Stdlib__Uchar056uf4[_А0ڙٍ>s.Type_immediacy0A^abOhՠB0^Y~# )Unit_info0ڀh%((Warnings0mJɒkgrsA[  q@ZߐVې@#@ ΐ@ݐ + @@ې+@k G@Ep @u@@@  @&R@@ܰ"rx@ ~ Cܓ@@R@yP@s@@@ K@  c  @@@x+@@[@"`@  J@xȰ  @А  @@ u \@2 E װȖҰ|@t  o@@@$@ɰ  @@@@ ( ސU@@ A]@ ̕ @  A@Md@[@$Y _  i b"N@[@@@dݐ @o@@Փ6@ Г @ D Uj@  ԰b@@(@@P@@