diff options
| author | herbelin | 2000-10-11 13:41:26 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-11 13:41:26 +0000 |
| commit | 9ca14acd5acdd6159540d072a777adb4b9ed5ed0 (patch) | |
| tree | e8b5a84f915e575aa150ddc1b52a55a89f4d4609 /tactics | |
| parent | d510a00bbe0223a34e1fe2f8ad77f9141ec700e2 (diff) | |
Prise en compte de Let dans build_dependent_inductive
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@683 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/equality.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index c27aeb195e..b1d0348d3c 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -461,8 +461,8 @@ let descend_then sigma env head dirn = (dirn_nlams, dirn_env, (fun dirnval (dfltval,resty) -> - let aritysign,_ = get_arity indf in - let p = lam_it (lift (mis_nrealargs mispec) resty) aritysign in + let arign,_ = get_arity indf in + let p = it_mkLambda_or_LetIn (lift (mis_nrealargs mispec) resty) arign in let build_branch i = let result = if i = dirn then dirnval else dfltval in it_mkLambda_or_LetIn_name env result cstr.(i-1).cs_args @@ -505,7 +505,7 @@ let construct_discriminator sigma env dirn c sort = | Type_Type -> build_UnitT (), build_EmptyT (), (Type dummy_univ) | _ -> build_True (), build_False (), (Prop Null) in - let p = lam_it (mkSort sort_0) arsign in + let p = it_mkLambda_or_LetIn (mkSort sort_0) arsign in let cstrs = get_constructors indf in let build_branch i = let endpt = if i = dirn then true_0 else false_0 in |