X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2FapplyTransformation.mli;h=dbd0343ff600d4bdd3e09e62963c340e5adcacdb;hb=9935a5bf5bdc98ad01a2b0234cf4e612a62c939f;hp=8e023aea626f366cbfdc7cdf6778fa01f5854903;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git diff --git a/helm/software/matita/applyTransformation.mli b/helm/software/matita/applyTransformation.mli index 8e023aea6..dbd0343ff 100644 --- a/helm/software/matita/applyTransformation.mli +++ b/helm/software/matita/applyTransformation.mli @@ -44,6 +44,12 @@ val mml_of_cic_sequent: (Cic.id, Cic.hypothesis) Hashtbl.t * (* id -> hypothesis *) (Cic.id, Cic2acic.sort_kind) Hashtbl.t)) (* ids_to_inner_sorts *) +val nmml_of_cic_sequent: + #NCicCoercion.status -> + NCic.metasenv -> NCic.substitution -> (* metasenv, substitution *) + int * NCic.conjecture -> (* sequent *) + Gdome.document (* Math ML *) + val mml_of_cic_object: Cic.obj -> (* object *) Gdome.document * (* Math ML *) @@ -55,3 +61,37 @@ val mml_of_cic_object: (Cic.id, Cic2acic.sort_kind) Hashtbl.t * (* ids_to_inner_sorts *) (Cic.id, Cic2acic.anntypes) Hashtbl.t)) (* ids_to_inner_types *) +val nmml_of_cic_object: #NCicCoercion.status -> NCic.obj -> Gdome.document + +val txt_of_cic_term: + map_unicode_to_tex:bool -> int -> Cic.metasenv -> Cic.context -> Cic.term -> + string +val txt_of_cic_sequent: + map_unicode_to_tex:bool -> int -> Cic.metasenv -> Cic.conjecture -> string +val txt_of_cic_sequent_conclusion: + map_unicode_to_tex:bool -> output_type:[`Pattern | `Term] -> int -> + Cic.metasenv -> Cic.conjecture -> string + +(* columns, params, object *) +val txt_of_cic_object: + map_unicode_to_tex:bool -> + ?skip_thm_and_qed:bool -> ?skip_initial_lambdas:int -> + int -> GrafiteAst.inline_param list -> Cic.obj -> + string + +(* params, uri or baseuri *) +val txt_of_inline_macro: + map_unicode_to_tex:bool -> GrafiteAst.inline_param list -> string -> + string + +val txt_of_macro: + map_unicode_to_tex:bool -> + Cic.metasenv -> + Cic.context -> + (Cic.term, Cic.lazy_term) GrafiteAst.macro -> string + +(* columns, rendering depth, context, term *) +val procedural_txt_of_cic_term: + map_unicode_to_tex:bool -> int -> GrafiteAst.inline_param list -> + Cic.context -> Cic.term -> + string