X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=ocaml%2Fproblems.ml;h=2dff11df2688e65893ebfb6dd5b40bd5ea50bdef;hb=ee425005e52a3cedad28698bc4611c99e1abefb5;hp=a0ff4536266a0739e760845589d1a8e643c57a36;hpb=08d2b663e5089ed046ef771bfb2555a31e525f1c;p=fireball-separation.git diff --git a/ocaml/problems.ml b/ocaml/problems.ml index a0ff453..2dff11d 100644 --- a/ocaml/problems.ml +++ b/ocaml/problems.ml @@ -286,11 +286,11 @@ let m2 () = magic_conv None [] ;; main ([ - (* p2 ; p4 ; p5 ; p6 ; p7 ; p8 ; p9 ; p10 ; p11 ; p12 ; p13 ; p14 ; p15 ; p16 ; p17 ; p18 ; p19 ; p20 ; p21 ; p22 ; p23 ; p24 ; p25 ; p26 ; p27 ; p28 ; p29 ; p30 ; p31 ; p32 ; p33 ; p34 ; p35 ; p36 ; p37 ; *) + p2 ; p4 ; p5 ; p6 ; p7 ; p8 ; p9 ; p10 ; p11 ; p12 ; p13 ; p14 ; p15 ; p16 ; p17 ; p18 ; p19 ; p20 ; p21 ; p22 ; p23 ; p24 ; p25 ; p26 ; p27 ; p28 ; p29 ; p30 ; p31 ; p32 ; p33 ; p34 ; p35 ; p36 ; p37 ; p24 ; p25 ; ] @ List.map ((|>) ()) [ q1 ; q2; q3; q4 ; q5 ; q6 ; - (* q7 ; *) + q7 ; q8 ; q9 ; q10 ;