X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_omdoc%2Fcontent2cic.ml;h=7641ad90e59f9912fad9e098058cbd9ef3817201;hb=15baa1a6ab26699e2afe8fef2dc53bd87cc75dcd;hp=49468eafbefad7e1ae9484f5f0e502f6fd308ee7;hpb=4d7349fb1ecfb173f64fad0a97884d1d8e738904;p=helm.git diff --git a/helm/ocaml/cic_omdoc/content2cic.ml b/helm/ocaml/cic_omdoc/content2cic.ml index 49468eafb..7641ad90e 100644 --- a/helm/ocaml/cic_omdoc/content2cic.ml +++ b/helm/ocaml/cic_omdoc/content2cic.ml @@ -39,9 +39,9 @@ let proof2cic term2cic p = let module C = Cic in let module Con = Content in let rec extend_premise_env current_env = - function + function [] -> current_env - | p::atl -> + | p::atl -> extend_premise_env ((p.Con.proof_id,(proof2cic current_env p))::current_env) atl in let new_premise_env = extend_premise_env premise_env p.Con.proof_apply_context in