src/Pure/Syntax/syntax_phases.ML
changeset 71675 55cb4271858b
parent 70784 799437173553
child 73163 624c2b98860a
equal deleted inserted replaced
71674:48ff625687f5 71675:55cb4271858b
   948 in
   948 in
   949 
   949 
   950 fun check_typs ctxt raw_tys =
   950 fun check_typs ctxt raw_tys =
   951   let
   951   let
   952     val (sorting_report, tys) = Proof_Context.prepare_sortsT ctxt raw_tys;
   952     val (sorting_report, tys) = Proof_Context.prepare_sortsT ctxt raw_tys;
   953     val _ = if Context_Position.is_visible ctxt then Output.report sorting_report else ();
   953     val _ = if Context_Position.reports_enabled ctxt then Output.report sorting_report else ();
   954   in
   954   in
   955     tys
   955     tys
   956     |> apply_typ_check ctxt
   956     |> apply_typ_check ctxt
   957     |> Term_Sharing.typs (Proof_Context.theory_of ctxt)
   957     |> Term_Sharing.typs (Proof_Context.theory_of ctxt)
   958   end;
   958   end;
   972           cons (Position.reported_text pos Markup.typing
   972           cons (Position.reported_text pos Markup.typing
   973             (Syntax.string_of_typ ctxt (Logic.dest_type ty)))
   973             (Syntax.string_of_typ ctxt (Logic.dest_type ty)))
   974         else I) ps tys' [];
   974         else I) ps tys' [];
   975 
   975 
   976     val _ =
   976     val _ =
   977       if Context_Position.is_visible ctxt then Output.report (sorting_report @ typing_report)
   977       if Context_Position.reports_enabled ctxt
   978       else ();
   978       then Output.report (sorting_report @ typing_report) else ();
   979   in Term_Sharing.terms (Proof_Context.theory_of ctxt) ts' end;
   979   in Term_Sharing.terms (Proof_Context.theory_of ctxt) ts' end;
   980 
   980 
   981 fun check_props ctxt = map (Type.constraint propT) #> check_terms ctxt;
   981 fun check_props ctxt = map (Type.constraint propT) #> check_terms ctxt;
   982 
   982 
   983 val uncheck_typs = apply_typ_uncheck;
   983 val uncheck_typs = apply_typ_uncheck;