Commit b9be34ab by MARCHE Claude

### fix for bug 13849

parent 598ae8bc
 ... @@ -26,7 +26,7 @@ Inductive b := ... @@ -26,7 +26,7 @@ Inductive b := (* DO NOT EDIT BELOW *) (* DO NOT EDIT BELOW *) Theorem x1 : ((X(T, A0):(x a b)) = (X(T, A1):(x a b))). Theorem x1 : ((X T A0:(x a b)) = (X T A1:(x a b))). (* YOU MAY EDIT THE PROOF BELOW *) (* YOU MAY EDIT THE PROOF BELOW *) intuition. intuition. ... ...
 ... @@ -271,8 +271,8 @@ and print_tnode opl opr info fmt t = match t.t_node with ... @@ -271,8 +271,8 @@ and print_tnode opl opr info fmt t = match t.t_node with if tl = [] then fprintf fmt "%a" (print_ls_real info) fs if tl = [] then fprintf fmt "%a" (print_ls_real info) fs else fprintf fmt "(%a %a)" (print_ls_real info) fs else fprintf fmt "(%a %a)" (print_ls_real info) fs (print_space_list (print_term info)) tl (print_space_list (print_term info)) tl else fprintf fmt (protect_on opl "(%a%a:%a)") (print_ls_real info) fs else fprintf fmt (protect_on opl "(%a %a:%a)") (print_ls_real info) fs (print_paren_r (print_term info)) tl (print_ty info) (t_type t) (print_space_list (print_term info)) tl (print_ty info) (t_type t) end end | Tquant _ | Tbinop _ | Tnot _ | Ttrue | Tfalse -> raise (TermExpected t) | Tquant _ | Tbinop _ | Tnot _ | Ttrue | Tfalse -> raise (TermExpected t) ... ...
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!