Update from HH
[hl193./.git] / Rqe / matinsert_thms.ml
1
2 let matinsert_lem0 = prove_by_refinement(
3   `!S. (!x. P x) ==> (!x. S x ==> P x)`,
4 (* {{{ Proof *)
5   [MESON_TAC[]]);;
6 (* }}} *)