src/Pure/Syntax/syntax.ML
changeset 45423 92f91f990165
parent 44802 65c397cc44ec
child 45429 fd58cbf8cae3
equal deleted inserted replaced
45422:711dac69111b 45423:92f91f990165
    49     Context.generic -> Context.generic
    49     Context.generic -> Context.generic
    50   val add_typ_uncheck: int -> string -> (Proof.context -> typ list -> typ list) ->
    50   val add_typ_uncheck: int -> string -> (Proof.context -> typ list -> typ list) ->
    51     Context.generic -> Context.generic
    51     Context.generic -> Context.generic
    52   val add_term_uncheck: int -> string -> (Proof.context -> term list -> term list) ->
    52   val add_term_uncheck: int -> string -> (Proof.context -> term list -> term list) ->
    53     Context.generic -> Context.generic
    53     Context.generic -> Context.generic
    54   val typ_check: Proof.context -> typ list -> typ list
    54   val apply_typ_check: Proof.context -> typ list -> typ list
    55   val term_check: Proof.context -> term list -> term list
    55   val apply_term_check: Proof.context -> term list -> term list
    56   val typ_uncheck: Proof.context -> typ list -> typ list
    56   val apply_typ_uncheck: Proof.context -> typ list -> typ list
    57   val term_uncheck: Proof.context -> term list -> term list
    57   val apply_term_uncheck: Proof.context -> term list -> term list
    58   val check_sort: Proof.context -> sort -> sort
    58   val check_sort: Proof.context -> sort -> sort
    59   val check_typ: Proof.context -> typ -> typ
    59   val check_typ: Proof.context -> typ -> typ
    60   val check_term: Proof.context -> term -> term
    60   val check_term: Proof.context -> term -> term
    61   val check_prop: Proof.context -> term -> term
    61   val check_prop: Proof.context -> term -> term
    62   val check_typs: Proof.context -> typ list -> typ list
    62   val check_typs: Proof.context -> typ list -> typ list
   320       |> not uncheck ? map rev;
   320       |> not uncheck ? map rev;
   321   in #1 (perhaps (check_all funs) (xs0, ctxt0)) end;
   321   in #1 (perhaps (check_all funs) (xs0, ctxt0)) end;
   322 
   322 
   323 in
   323 in
   324 
   324 
   325 val typ_check = check fst false;
   325 val apply_typ_check = check fst false;
   326 val term_check = check snd false;
   326 val apply_term_check = check snd false;
   327 val typ_uncheck = check fst true;
   327 val apply_typ_uncheck = check fst true;
   328 val term_uncheck = check snd true;
   328 val apply_term_uncheck = check snd true;
   329 
   329 
   330 val check_typs = operation #check_typs;
   330 val check_typs = operation #check_typs;
   331 val check_terms = operation #check_terms;
   331 val check_terms = operation #check_terms;
   332 val check_props = operation #check_props;
   332 val check_props = operation #check_props;
   333 
   333