- let pres_goal =
- make_tr (term2pres ty) in
- (p_mtable
- [None,"align","baseline 1"; None,"equalrows","false";
- None,"columnalign","left"; None,"rowlines","solid"]
- [pres_context;pres_goal])
+ let pres_goal = term2pres ty in
+ (Box.b_h [] [
+ Box.b_space;
+ (Box.b_v []
+ [Box.b_space;
+ pres_context;
+ b_ink [None,"width","4cm"; None,"height","2px"]; (* sequent line *)
+ Box.b_space;
+ pres_goal])
+ ])